Feature "Sprachen" in Adminmodul eingebaut

UID/Programme/usrCntlProgramme.vb

@@ -205,4 +205,14 @@
         frmProgDetails.codename = "RKSV_DE"
         frmProgDetails.Show()
     End Sub
+
+    Private Sub btn_sprache_Click(sender As Object, e As EventArgs) Handles btn_sprache_aviso.Click
+        Dim f As New frmSprachen("tblTranslate", "FMZOLL", ADMIN.AVISO_ID)
+        f.Show(Me)
+    End Sub
+
+    Private Sub btn_sprache2_Click(sender As Object, e As EventArgs) Handles btn_sprache_sdl.Click
+        Dim f As New frmSprachen("tblTranslate", "FMZOLL", ADMIN.SDL_ID)
+        f.Show(Me)
+    End Sub
 End Class