edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

addin, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-17 17:02:35 +01:00
parent 2cc645cc2f
commit aa7aacf5b2
2 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
VERAGAddIn/rbnVERAG.vb
View File

@@ -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)