ATILLA Status 2 (VERIMEX, INDONESIEN), Login Warenort, Sprache div.

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -61,7 +61,7 @@
 
                 whereMA &= " ) "
 
-                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
+                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status  FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
 
 
                 Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -120,6 +120,11 @@
                 '.Columns("ab_Beschreibung").DefaultCellStyle.ForeColor = Color.White
                 .Columns("ab_Beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
+                '.Columns("ab_Vermerk").MinimumWidth = 50
+                '.Columns("ab_Vermerk").HeaderText = "Vermerk"
+                ''.Columns("ab_Beschreibung").DefaultCellStyle.ForeColor = Color.White
+                '.Columns("ab_Vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
                 If .RowCount = 0 Then .Columns.Clear() : Exit Sub
 
 
@@ -286,6 +291,11 @@
 
     Private Sub usrCntlBenachrichtigungen_SelectionChanged() Handles gridAvisoBenachrichtigungen.SelectionChanged
         Button10.Enabled = (gridAvisoBenachrichtigungen.SelectedRows.Count = 1)
+        txtVermerk.Text = ""
+        If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
+            txtVermerk.Text = If(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_vermerk").Value, "")
+        End If
+
     End Sub
 
     Private Sub usrCntlBenachrichtigungen_SelectionChanged(sender As Object, e As EventArgs) Handles gridAvisoBenachrichtigungen.SelectionChanged