Kd VeranlKd,Aviso Birthday

Aviso/frmHauptfenster.vb

@@ -2838,12 +2838,14 @@ Public Class frmHauptfenster
         BürgschaftenExcelToolStripMenuItem.Visible = False
 
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then
 
-        If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
-            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-            Dim f As New frmAvisoBirthday
-            f.ShowDialog(frmGrayOut)
-            frmGrayOut.Close()
+            If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim f As New frmAvisoBirthday
+                f.ShowDialog(frmGrayOut)
+                frmGrayOut.Close()
+            End If
         End If
 
     End Sub