Vermerke

2024-06-06 22:24:35 +02:00
parent 846f875a96
commit 325fabf993
10 changed files with 1063 additions and 169 deletions
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -414,7 +414,7 @@ Public Class usrcntlAktDetails
        Return ""
    End Function

-    Private Sub gridVermerke_SpaltenFestlegen()
+    Shared Sub gridVermerke_SpaltenFestlegen(gridVermerke As DataGridView)
        If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub

        With gridVermerke
@@ -860,7 +860,12 @@ Public Class usrcntlAktDetails

    End Sub

-
+    Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
+                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
+                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
+                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
+                             " WHERE AvisoID = [[AvisoId]] [[sendwhere]] " &
+                             " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
    Private Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
        If Not loaded Then Exit Sub
        aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
@@ -994,12 +999,9 @@ Public Class usrcntlAktDetails
        ' 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 As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
-                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
-                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
-                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
-                             " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
-                             " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
+        Dim hSQL = usrcntlAktDetails.vermerkehSQL
+        hSQL = hSQL.Replace("[[AvisoId]]", AvisoID)
+        hSQL = hSQL.Replace("[[sendwhere]]", sendwhere)


        infotxt = AvisoDAL.getAvisoInfo(AvisoID)
@@ -1019,7 +1021,7 @@ Public Class usrcntlAktDetails

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

        'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
        If rowindex > 0 Then
@@ -1034,269 +1036,281 @@ Public Class usrcntlAktDetails


    Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
+        Dim tmpIndex = -1
+        If (dgvSendungen.SelectedRows.Count > 0) Then
+            tmpIndex = dgvSendungen.SelectedRows(0).Index
+        End If
+        gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
+        loaded = False
+        '  Dim tmpIndex = -1
+        If init Then
+            ' If (dgvSendungen.SelectedRows.Count > 0) Then
+            '     tmpIndex = dgvSendungen.SelectedRows(0).Index
+            'End If
+            sendAktiv = False
+            initDgvSendungen()
+            sendAktiv = True
+            'dgvSendungen.ClearSelection()
+            'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
+            '    dgvSendungen.Rows(tmpIndex).Selected = True
+            'End If
+
+        End If
+        loaded = True
+        Vermerke_anzeigen(tmpIndex)
+    End Sub
+
+    Shared Sub gridVermerkeMouseClick(gridVermerke, ColumnIndex, RowIndex, AVISO, sendungsId)
        If gridVermerke.RowCount = 0 Then Exit Sub
+        Dim AvisoStatusFunctions As New AvisoStatusFunctions
+        If gridVermerke.Columns(ColumnIndex).Name = "VermerkeOptions" Then

-        If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then
-            Dim tmpIndex = -1
-            If (dgvSendungen.SelectedRows.Count > 0) Then
-                tmpIndex = dgvSendungen.SelectedRows(0).Index
-            End If

-            Dim VermekId = gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value
+            Dim VermekId = gridVermerke.Rows(RowIndex).Cells("VermerkID").Value
            Dim VermerkeDAL As New cVermerkeDAL
            Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "")
            myVermerk.VermerkID = 0
-            'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
+            'myVermerk.AvisoID = CInt(gridVermerke.Rows(RowIndex).Cells(1).Value)
            myVermerk.Datum = Now
            myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
            myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
            Dim init As Boolean = False
-            Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
+            Select Case CStr(gridVermerke.Rows(RowIndex).Cells("VermerkeCode").Value)
                Case "1"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 2
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)
+                    init = True 'Vermerke_anzeigen(RowIndex)
                    ' initDgvSendungen()

                Case "3"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 4
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)

-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "5"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 6
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)

-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "7"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 8
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "9"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 10
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "11"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 12
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()


                Case "90"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 93
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "13"
                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" OrElse VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Vermerk_VKErhalten", "AVISO") Then


-                        myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                        myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                        myVermerk.VermerkCodeId = 14
-                        If gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
-                            myVermerk.VorauskasseId = gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value
+                        If gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
+                            myVermerk.VorauskasseId = gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value
                        End If
                        Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                        VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)

-                        init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                        init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                    Else
                        MsgBox("Keine Berechtigung. Bitte wenden Sie sich an die Buchhaltung oder Abteilungsleitung.")
                    End If

                Case "17"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 18
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
                    '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                    'Vermerke_aktualisieren()
-                    init = True '   Vermerke_anzeigen(e.RowIndex)
+                    init = True '   Vermerke_anzeigen(RowIndex)

                Case "19"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 20
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "25"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 30
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "31"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
                    myVermerk.VermerkCodeId = 32
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "33"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 34
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "46"
-                    MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText)
-                    init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
+                    init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "36"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 37
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "53"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 54
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "55"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 56
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "57"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 58
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()


                Case "74"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 75
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                Case "76"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 77
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                Case "80"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
                    myVermerk.VermerkCodeId = 81
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
+

                    'Ankunft
                    If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
-                        If FUNC.setAnkunft(AvisoID) Then
+                        If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
                            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                        End If
                    End If

                Case "82"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 83
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)

                    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-                    sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1  where avisoid=" & AvisoID, "AVISO")
+                    sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1  where avisoid=" & AVISO.AvisoID, "AVISO")

                    AvisoStatusFunctions.printFinish(AVISO)

                    '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                    'Vermerke_aktualisieren()
-                    init = True '   Vermerke_anzeigen(e.RowIndex)
+                    init = True '   Vermerke_anzeigen(RowIndex)
                Case "96"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 97
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                Case "101"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
                    myVermerk.VermerkCodeId = 102
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "103"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 104
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "105"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 106
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

                Case "107"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 108
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()

            End Select
-            loaded = False
-            '  Dim tmpIndex = -1
-            If init Then
-                ' If (dgvSendungen.SelectedRows.Count > 0) Then
-                '     tmpIndex = dgvSendungen.SelectedRows(0).Index
-                'End If
-                sendAktiv = False
-                initDgvSendungen()
-                sendAktiv = True
-                'dgvSendungen.ClearSelection()
-                'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
-                '    dgvSendungen.Rows(tmpIndex).Selected = True
-                'End If

-            End If
-            loaded = True
-            Vermerke_anzeigen(tmpIndex)
        End If
    End Sub

    Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
-
        If painted Then Exit Sub
        If dgvSendungen.RowCount = 0 Then Exit Sub
+        gridVermerke_Paint(gridVermerke)
+        painted = True
+    End Sub
+    Shared Sub gridVermerke_Paint(gridvermerke As DataGridView)
+
+
        Try
-            If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
-            For Each r As DataGridViewRow In gridVermerke.Rows
+            If gridvermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
+            For Each r As DataGridViewRow In gridvermerke.Rows
                '  If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
                Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
                If CBool(r.Cells("Hervorheben").Value) Then
@@ -1305,43 +1319,43 @@ Public Class usrcntlAktDetails
                    r.DefaultCellStyle.BackColor = Color.Yellow
                End If
                If CBool(r.Cells("Geloescht").Value) Then
-                    r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Strikeout)
+                    r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout)
                End If
                If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then

                    Select Case CInt(r.Cells("VermerkeCode").Value)
                        Case 1
-                            If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Auftrag erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen."
                            End If
                        Case 3
-                            If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Rechnung erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen."
                            End If
                        Case 5
-                            If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "LS erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen."
                            End If
                        Case 7
-                            If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "ATR erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen."
                            End If
                        Case 9
-                            If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Vollmacht erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen."
                            End If
                        Case 11
-                            If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "CMR erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
                            End If
                        Case 90
-                            If Not existCodeInGridVermerke(93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Packliste erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen."
                            End If
@@ -1350,43 +1364,43 @@ Public Class usrcntlAktDetails

                            If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then

-                                If Not existCodeInGridVermerke_VK(r.Cells("VorauskasseId").Value) Then
+                                If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
                                    optionCell.Value = "Vorauskasse erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
                                End If
                            Else
-                                If Not existCodeInGridVermerke_VK_OLD(r.Cells("SendungID").Value) Then
+                                If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
                                    optionCell.Value = "Vorauskasse erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
                                End If
                            End If
                        Case 17
-                            If Not existCodeInGridVermerke(18) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 18) Then
                                optionCell.Value = "DE-ZOLL fertig"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
                            End If
                        Case 19
-                            If Not existCodeInGridVermerke(20) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 20) Then
                                optionCell.Value = "AT-ZOLL fertig"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen."
                            End If
                        Case 25
-                            If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Dokument erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen."
                            End If
                        Case 31
-                            If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Vorbereitung abgeschlossen"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen."
                            End If
                        Case 33
-                            If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "ATA-Nr. erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen."
                            End If
                        Case 36
-                            If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Kontaktdaten erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
                            End If
@@ -1417,52 +1431,52 @@ Public Class usrcntlAktDetails
                                        optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
                                        optionCell.LinkColor = Color.Red
                                        optionCell.Style.BackColor = Color.PapayaWhip
-                                        optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
+                                        optionCell.Style.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Bold)
                                        'optionCell.LinkColor = Color.White
                                        'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
                                End Select
                            End If
                        Case 53
-                            If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Ü-Dok erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
                            End If
                        Case 55
-                            If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Rg-Best. erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
                            End If
                        Case 57
-                            If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Dispoliste erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
                            End If

                        Case 74
-                            If Not existCodeInGridVermerke(75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Frachtkosten erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Frachtkosten erhalten' einzutragen."
                            End If

                        Case 76
-                            If Not existCodeInGridVermerke(77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Absend.best. erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
                            End If

                        Case 96
-                            If Not existCodeInGridVermerke(97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "T1 Bestätigung erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1 Bestätigung erhalten' einzutragen."
                            End If

                        Case 80
-                            If Not existCodeInGridVermerke(81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "ATB-Nr. erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen."
                            End If
                        Case 82
-                            If Not existCodeInGridVermerke(83) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 83) Then
                                optionCell.Value = "DE-ZOLL fertig"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
                            End If
@@ -1470,22 +1484,22 @@ Public Class usrcntlAktDetails
                        Case 101

                            If r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
-                                '  If Not existCodeInGridVermerke(102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                '  If Not existCodeInGridVermerke(gridvermerke ,102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Erledigt"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen."
                            End If
                        Case 103
-                            If Not existCodeInGridVermerke(104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Gewicht/Packstücke erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Gewicht/Packstücke erhalten' einzutragen."
                            End If
                        Case 105
-                            If Not existCodeInGridVermerke(106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Zolltarifnummer erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Zolltarifnummer erhalten' einzutragen."
                            End If
                        Case 107
-                            If Not existCodeInGridVermerke(108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                optionCell.Value = "Kostenbestätigung erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen."
                            End If
@@ -1494,7 +1508,7 @@ Public Class usrcntlAktDetails


            Next
-            painted = True
+
            ' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!

        Catch ex As Exception
@@ -1523,7 +1537,7 @@ Public Class usrcntlAktDetails
        End Select
    End Sub

-    Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean
+    Shared Function existCodeInGridVermerke(gridVermerke As DataGridView, code As Integer, Optional text As String = "") As Boolean

        For Each r As DataGridViewRow In gridVermerke.Rows
            If r.Cells("Geloescht").Value = False Then
@@ -1549,7 +1563,7 @@ Public Class usrcntlAktDetails
    End Function


-    Function existCodeInGridVermerke_VK(VorauskasseId As Object) As Boolean
+    Shared Function existCodeInGridVermerke_VK(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean

        For Each r As DataGridViewRow In gridVermerke.Rows
            If r.Cells("Geloescht").Value = False Then
@@ -1565,7 +1579,7 @@ Public Class usrcntlAktDetails
    End Function


-    Function existCodeInGridVermerke_VK_OLD(SendungID As Object) As Boolean
+    Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean

        For Each r As DataGridViewRow In gridVermerke.Rows
            Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "")