Bugfix

VERAGAddIn/frmAvisoAnfügen.vb

@@ -63,10 +63,11 @@ Public Class frmAvisoAnfuegen
                     Dim sp = a.Split("\")
                     display = sp(sp.Count - 1)
                 End If
-                dgvAnhaenge.Rows.Add({display})
+                dgvAnhaenge.Rows.Add({display, a})
             Next
         End If
         dgvAnhaenge.ClearSelection()
+
     End Sub
 
     Private Sub txtLKWNr_TextChanged(sender As Object, e As KeyEventArgs) Handles txtLKWNr.KeyDown, txtAbfertigungsnummer.KeyDown, cboFiliale.KeyDown
@@ -92,7 +93,7 @@ Public Class frmAvisoAnfuegen
 
                 Dim sql = "SELECT TOP 10 AvisoID, Grenzstelle as Grenze, Datum, LKW_Nr,Auftraggeber,Frächter,Firma FROM Aviso left join tblSendungen on tblSnd_AvisoID=AvisoID WHERE  status <>2  " & firma & " "
                 If IsDate(txtSrchDat.Text) Then sql &= " AND Datum > '" & CDate(txtSrchDat.Text).ToShortDateString & "'"
-                If txtLKWNr.Text <> "" Then sql &= " AND LKW_Nr LIKE '%" & txtLKWNr.Text & "%'"
+                If txtLKWNr.Text <> "" Then sql &= " AND (LKW_Nr LIKE '%" & txtLKWNr.Text & "%' OR AvisoID ='" & txtLKWNr.Text & "')"
 
 
                 If cboFiliale._value <> "" Then sql &= " AND FilialenNr LIKE '%" & cboFiliale._value & "%'"
@@ -102,7 +103,9 @@ Public Class frmAvisoAnfuegen
                 .SET_SQL(sql, "AVISO")
                 .LOAD()
 
-                .Columns("AvisoId").Visible = False
+                '.Columns("AvisoId").Visible = False
+                .Columns("AvisoId").HeaderText = "LKW-ID"
+                .Columns("AvisoId").Width = 60
                 .AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
                 .Columns("Grenze").Width = 40
                 .Columns("Datum").Width = 80
@@ -242,10 +245,9 @@ Public Class frmAvisoAnfuegen
 
         Try
             If dgvAnhaenge.SelectedRows.Count > 0 Then
-                If dgvAnhaenge.SelectedRows(0).Cells(0).Value <> "" Then
+                If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
 
-                    Dim strTmpPath As String = System.IO.Path.GetTempPath()
-                    Process.Start(strTmpPath & dgvAnhaenge.SelectedRows(0).Cells(0).Value)
+                    Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
 
                 End If
             End If