Druckerermittlung, Spedistionsbuchübersetzung, Kunendatenblatt für Verag360

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -344,6 +344,8 @@ Public Class usrCntlSpeditionsBuchSuche
     End Function
 
     Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
+
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             AVISOSERVER = "[DEVELOPER\DEVSQL].AVISO_new.dbo.AVISO"
         End If
@@ -513,7 +515,7 @@ Public Class usrCntlSpeditionsBuchSuche
 
         cboSB_TR.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
                                   " FROM [tblMitarbeiter] WHERE mit_firma IN ('VERIMEX') AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
-        Button4.PerformClick()
+        btnDetailsuche.PerformClick()
 
         cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "VermittlerKundenNr"))
         cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AvisiererKundenNr"))
@@ -627,7 +629,7 @@ Public Class usrCntlSpeditionsBuchSuche
     '      Next
     'End Sub
     '
-    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnKeine.Click
         For i = 0 To MyListBox1.Items.Count - 1
             MyListBox1.SetSelected(i, False)
         Next
@@ -639,7 +641,7 @@ Public Class usrCntlSpeditionsBuchSuche
         Next
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAlle.Click
         For i = 0 To MyListBox1.Items.Count - 1
             MyListBox1.SetSelected(i, True)
         Next
@@ -895,13 +897,13 @@ Public Class usrCntlSpeditionsBuchSuche
                 DateTimePicker1.Value = srcTAG
                 DateTimePicker2.Value = srcTAG
                 If srcTAG = Now.ToShortDateString Then
-                    Button5.Text = "Heute"
+                    btnToday.Text = "Heute"
                 ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
-                    Button5.Text = "Gestern"
+                    btnToday.Text = "Gestern"
                 ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
-                    Button5.Text = "Vorgestern"
+                    btnToday.Text = "Vorgestern"
                 Else
-                    Button5.Text = srcTAG.ToString("dd.MM")
+                    btnToday.Text = srcTAG.ToString("dd.MM")
                 End If
 
                 'End If
@@ -936,7 +938,7 @@ Public Class usrCntlSpeditionsBuchSuche
         initBtns("Jahr")
     End Sub
 
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click
         Try
 
             SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed
@@ -949,10 +951,10 @@ Public Class usrCntlSpeditionsBuchSuche
                 SplitContainer.SplitterDistance += 200
             End If
 
-            If Button4.Image Is SDL.My.Resources.Resources.pfeil_unten Then
-                Button4.Image = SDL.My.Resources.Resources.pfeil_oben
+            If btnDetailsuche.Image Is SDL.My.Resources.Resources.pfeil_unten Then
+                btnDetailsuche.Image = SDL.My.Resources.Resources.pfeil_oben
             Else
-                Button4.Image = SDL.My.Resources.Resources.pfeil_unten
+                btnDetailsuche.Image = SDL.My.Resources.Resources.pfeil_unten
             End If
 
         Catch ex As Exception
@@ -975,7 +977,7 @@ Public Class usrCntlSpeditionsBuchSuche
         initBtns("Tag")
     End Sub
 
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnToday.Click
         initBtns("Tag")
     End Sub
 
@@ -2325,7 +2327,7 @@ Public Class usrCntlSpeditionsBuchSuche
         End If
     End Sub
 
-    Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click
+    Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles btnNurAbf.Click
         Dim dt = SQL.loadDgvBySql("SELECT Abfertigungsart FROM [Abfertigungsarten] where isAbfertigung=1", "FMZOLL")
         MyListBox1.ClearSelected()
         If dt IsNot Nothing Then