Prüfung bei AZET Zollanmeldungen über DAKOSY -> wird VERIMEX Defaultuser verwendet.

UID/Programme/frmSprachen.vb

@@ -95,6 +95,10 @@ Public Class frmSprachen
                     .Columns("trs_textDE").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                     .Columns("trs_active").HeaderText = "aktiv"
                     .Columns("trs_active").Width = 40
+                    .Columns("trs_firmaID").HeaderText = "Firma"
+                    .Columns("trs_firmaID").Width = 40
+                    .Columns("trs_option").HeaderText = "Option"
+                    .Columns("trs_option").Width = 40
                 End If
 
             End With
@@ -107,7 +111,7 @@ Public Class frmSprachen
 
     End Sub
 
-    Private Sub TextBox1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtObject.PreviewKeyDown, txtDE.PreviewKeyDown, txtSubcontrol.PreviewKeyDown, txtControl.PreviewKeyDown, txttranslate.PreviewKeyDown
+    Private Sub TextBox1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtObject.PreviewKeyDown, txtDE.PreviewKeyDown, txtSubcontrol.PreviewKeyDown, txtControl.PreviewKeyDown, txttranslate.PreviewKeyDown, txtFirmaID.PreviewKeyDown, txtOption.PreviewKeyDown
 
         Dim sqladdon As String = ""
 
@@ -132,6 +136,14 @@ Public Class frmSprachen
                 sqladdon &= " AND [trs_text] like '%" & txttranslate.Text & "%'"
             End If
 
+            If txtOption.Text <> "" Then
+                sqladdon &= " AND [trs_Option] like '%" & txtOption.Text & "%'"
+            End If
+
+            If txtFirmaID.Text <> "" Then
+                sqladdon &= " AND [trs_firmaID] = '" & txtFirmaID.Text & "'"
+            End If
+
             Dim sqlLanguage = " AND [trs_sprache] = '" & cbxSprachen.SelectedItem.ToString & "'"
 
             loadDGV(sqlLanguage, sqladdon)