neu

Aviso/frmLogin.vb

@@ -142,14 +142,42 @@ Public Class frmLogin
             Exit Sub
         ElseIf PARAM = "SECRET" Then
             SECRET = True
+        ElseIf PARAM = "STATUS_MAIL" Then
+            Try
+                'Me.Visible = False
+                'Me.Hide()
+                'Me.WindowState = FormWindowState.Minimized
 
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
+
+                Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
+                VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "")
+
+                Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+                Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
+                Dim dt = VERAGSQL.loadDgvBySql("SELECT  [AvisoID]  FROM [Aviso] where datum >= '05.03.2022'
+                        and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where  Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0   and status NOT IN (1,2)", "AVISO")
+
+                For Each r In dt.Rows
+                    'MsgBox("SO: " & (r("AvisoID")))
+                    Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "")
+                    If AVISO IsNot Nothing Then
+                        AvisoStatusFunctions.SendStatusEmail(AVISO)
+                    End If
+                Next
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+
+            Application.Exit()
+            Exit Sub
         End If
 
         initstart(False)
 
 
 
-
         Try
             Using myGraphics As Graphics = Me.CreateGraphics()
                 VERAG_PROG_ALLGEMEIN.cAllgemein.dpi = myGraphics.DpiX
@@ -339,7 +367,7 @@ Public Class frmLogin
         End If
 
         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO"
-        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
+        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion 'My.Resources.Version2
         VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
         frmHauptfenster.Show()
         frmHauptfenster.Visible = True
@@ -392,7 +420,8 @@ Public Class frmLogin
         'auf UPDATES prüfen:
         Dim DB As New cADMIN
 
-        If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then
+        ' If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then
+        If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
             Me.Enabled = False
             If vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then
                 UpdateAVISO()