neu

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -1009,7 +1009,7 @@ Public Class frmSendungAnhangImport
         Return True
     End Function
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnDel.Click
         deleteActiveElement(flpnlAviso)
     End Sub
 
@@ -1077,6 +1077,8 @@ Public Class frmSendungAnhangImport
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
+        cboArt._TRANSLATE()
+
         initSendungen()
 
         '   cboSendungen.changeItem(-1)
@@ -1085,6 +1087,7 @@ Public Class frmSendungAnhangImport
 
     Private Sub frmSendungAnhangImport_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         txtSeiten.Focus()
+        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
     End Sub
 
     Private Sub txtSeiten_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSeiten.KeyDown, cboArt.KeyDown, txtBezeichnung.KeyDown
@@ -1290,7 +1293,7 @@ Public Class frmSendungAnhangImport
         flpnlAviso.Controls.Add(USRCNTL)
     End Sub
 
-    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
         cntxt.Show(Cursor.Position)
     End Sub
 
@@ -1524,7 +1527,7 @@ Public Class frmSendungAnhangImport
     End Sub
 
 
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnSeitenLoeschen.Click
         If txtSeiten.Text = "" Then Exit Sub
         '   If cboArt._value = "" Then Exit Sub
         ' If cboSendungen._value = "" Then Exit Sub