gesamtsicherheiten, etc.

Aviso/frmHauptfenster.vb

@@ -7,13 +7,13 @@ Imports com.esendex.sdk.messaging
 Imports Newtonsoft.Json
 Imports System.Reflection
 Imports System.Drawing.Drawing2D
-Imports SDL
 Imports Microsoft.Office.Interop
 Imports Spire.Pdf.Texts
 Imports System.Net
 Imports System.Text
 Imports System.IO.Pipes
 Imports System.Security.AccessControl
+Imports SDL
 'Imports UID
 Public Class frmHauptfenster
 
@@ -3474,7 +3474,7 @@ ELSE_ATILLA:
 
         Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
         If path <> "" Then
-            process.Start(path)
+            Process.Start(path)
         End If
         'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
         '    MsgBox("HURRA2" & vbNewLine & firma)
@@ -3748,7 +3748,7 @@ ELSE_ATILLA:
 
     Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX" ', "ATILLA" erst freischalten, wenn alles implementiert ist!
+            Case "IMEX", "ATILLA"
                 pnlOptionen.Visible = Not pnlOptionen.Visible
             Case Else
                 Dim s As New SDL.frmSecureLoginKassenbuch
@@ -4201,8 +4201,14 @@ ELSE_ATILLA:
         pnlOptionen.Visible = False
         Dim s As New SDL.frmSecureLoginKassenbuch
         s.openKB = True
-        s.KassenbuchNr_tmp = 5030
         s.disableCBO = False
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" : s.KassenbuchNr_tmp = 5033
+            Case Else : s.KassenbuchNr_tmp = 5030
+
+        End Select
+
         s.ShowDialog(Me)
 
     End Sub
@@ -5253,7 +5259,15 @@ ELSE_ATILLA:
 
 
     Private Sub VerträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerträgeToolStripMenuItem.Click
-        Dim f As New SDL.cKundenSearchVertrag
+        Dim f As New cKundenSearchVertrag
         f.Show(Me)
     End Sub
+
+    Private Sub UNBescheinigungAusTFEinlesenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNBescheinigungAusTFEinlesenToolStripMenuItem.Click
+
+
+        VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("381")
+
+
+    End Sub
 End Class