From aa7aacf5b2dd22b11d6c49ca1f4ee8c475a244b7 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 17 Feb 2026 17:02:35 +0100
Subject: [PATCH] addin, etc.

---
 VERAGAddIn/VERAGAddIn.vbproj |  2 +-
 VERAGAddIn/rbnVERAG.vb       | 32 +++++++++++++++++---------------
 2 files changed, 18 insertions(+), 16 deletions(-)

diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj
index a880cf8..ed1c6cd 100644
--- a/VERAGAddIn/VERAGAddIn.vbproj
+++ b/VERAGAddIn/VERAGAddIn.vbproj
@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\FTP\Programme\VeragAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.135</ApplicationVersion>
+    <ApplicationVersion>1.0.1.136</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>
diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb
index eff14bd..f6eda55 100644
--- a/VERAGAddIn/rbnVERAG.vb
+++ b/VERAGAddIn/rbnVERAG.vb
@@ -37,8 +37,8 @@ Public Class VERAGRibbon
 
     Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
 
-        'cAllgemein.TESTSYSTEM = False
-        cAllgemein.TESTSYSTEM = True
+        cAllgemein.TESTSYSTEM = False
+        'cAllgemein.TESTSYSTEM = True
         LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
 
     End Sub
@@ -998,22 +998,24 @@ Public Class AVISO_Mail_Functions
                     Art = frmAvisoAnfügen.cboArt._value
                     Att = frmAvisoAnfügen.ATT
 
-                    Dim VermerkeDAL As New cVermerkeDAL
-                    Dim myVermerk As New cVermerk
-                    myVermerk.VermerkID = 0
-                    myVermerk.AvisoID = frmAvisoAnfügen.AvisoId
-                    myVermerk.SendungID = SendungsId
-                    myVermerk.Datum = Now
-                    myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
-                    myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
-                    myVermerk.Hinweis_Vermerk = INFO
-                    myVermerk.VermerkCodeId = 123
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    If INFO <> "" Then
+                        Dim VermerkeDAL As New cVermerkeDAL
+                        Dim myVermerk As New cVermerk
+                        myVermerk.VermerkID = 0
+                        myVermerk.AvisoID = frmAvisoAnfügen.AvisoId
+                        myVermerk.SendungID = SendungsId
+                        myVermerk.Datum = Now
+                        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
+                        myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
+                        myVermerk.Hinweis_Vermerk = INFO
+                        myVermerk.VermerkCodeId = 123
+                        VermerkeDAL.SpeichernVermerk(myVermerk)
+                    End If
 
                     Return AvisoId
-                End If
+                    End If
 
-                Return -1
+                    Return -1
 
             Case Else
                 Dim frmAvisoFormularAnfuegen As New frmAvisoFormularAnfuegen(Bezeichnung, sender)