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

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -36,7 +36,7 @@
<PublishUrl>\\ftps.verag.ag\g\FTP\Programme\VeragAddin\</PublishUrl> <PublishUrl>\\ftps.verag.ag\g\FTP\Programme\VeragAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl> <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<TargetCulture>de</TargetCulture> <TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.135</ApplicationVersion> <ApplicationVersion>1.0.1.136</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision> <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled> <UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval> <UpdateInterval>0</UpdateInterval>

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 Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
'cAllgemein.TESTSYSTEM = False cAllgemein.TESTSYSTEM = False
cAllgemein.TESTSYSTEM = True 'cAllgemein.TESTSYSTEM = True
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser() LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
End Sub End Sub
@@ -998,22 +998,24 @@ Public Class AVISO_Mail_Functions
Art = frmAvisoAnfügen.cboArt._value Art = frmAvisoAnfügen.cboArt._value
Att = frmAvisoAnfügen.ATT Att = frmAvisoAnfügen.ATT
Dim VermerkeDAL As New cVermerkeDAL If INFO <> "" Then
Dim myVermerk As New cVermerk Dim VermerkeDAL As New cVermerkeDAL
myVermerk.VermerkID = 0 Dim myVermerk As New cVermerk
myVermerk.AvisoID = frmAvisoAnfügen.AvisoId myVermerk.VermerkID = 0
myVermerk.SendungID = SendungsId myVermerk.AvisoID = frmAvisoAnfügen.AvisoId
myVermerk.Datum = Now myVermerk.SendungID = SendungsId
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter myVermerk.Datum = Now
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
myVermerk.Hinweis_Vermerk = INFO myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.VermerkCodeId = 123 myVermerk.Hinweis_Vermerk = INFO
VermerkeDAL.SpeichernVermerk(myVermerk) myVermerk.VermerkCodeId = 123
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
Return AvisoId Return AvisoId
End If End If
Return -1 Return -1
Case Else Case Else
Dim frmAvisoFormularAnfuegen As New frmAvisoFormularAnfuegen(Bezeichnung, sender) Dim frmAvisoFormularAnfuegen As New frmAvisoFormularAnfuegen(Bezeichnung, sender)