ATR Archiv

Aviso/frmHauptfenster.vb

@@ -14,6 +14,7 @@ Imports System.Reflection
 Imports System.Runtime.InteropServices
 Imports GrapeCity.Viewer.Common.Model
 Imports System.Drawing.Drawing2D
+Imports SDL
 
 
 'Imports UID
@@ -201,7 +202,7 @@ Public Class frmHauptfenster
         TimerAkte.Enabled = True
         Grid_aktiv = False
 
-        Dim OptionenDAL As New cOptionenDAL
+        Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
             cboGrenzstelle.Items.Clear()
@@ -3104,7 +3105,7 @@ Public Class frmHauptfenster
 
         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)
@@ -4546,6 +4547,15 @@ Public Class frmHauptfenster
     Private Sub btnZertifikate_Click(sender As Object, e As EventArgs) Handles btnZertifikate.Click
         Process.Start("https://verag.ag/de/about-us")
     End Sub
+
+    Private Sub ToolStripMenuItem3_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
+        Dim f As New frmOriginalArchiv_ATR
+        f.Show()
+    End Sub
+
+    Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click
+
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions
@@ -5565,7 +5575,7 @@ Public Class AvisoStatusFunctions
             'Prüfung 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
                 If value Then
-                    Dim SQL As New SQL
+                    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
                     If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
                         If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
                             Return False
@@ -6873,7 +6883,7 @@ Public Class AvisoStatusFunctions
 
             frmNacherfassung.avisoLinkId = AvisoID
             frmNacherfassung.SendungID = SendungID
-            Dim SQL As New SQL
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
             frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer
             frmNacherfassung.srchFiliale = posNr.Filiale
             frmNacherfassung.srchUnterNr = posNr.UnterNr