EXG

UID/Programme/usrCntlProgramme.vb

@@ -215,4 +215,16 @@
         Dim f As New frmSprachen("tblTranslate", "FMZOLL", ADMIN.SDL_ID)
         f.Show(Me)
     End Sub
+
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        frmProgDetails.codename = "VERAG_OCR"
+
+        frmProgDetails.Show()
+
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        frmProgDetails.codename = "VERAGCallAssist"
+        frmProgDetails.Show()
+    End Sub
 End Class