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 @@
\\ftps.verag.ag\g\FTP\Programme\VeragAddin\
http://ftps.verag.ag/VERAGAddin/
de
- 1.0.1.135
+ 1.0.1.136
true
true
0
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)