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

6
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,6 +998,7 @@ Public Class AVISO_Mail_Functions
Art = frmAvisoAnfügen.cboArt._value
Att = frmAvisoAnfügen.ATT
If INFO <> "" Then
Dim VermerkeDAL As New cVermerkeDAL
Dim myVermerk As New cVermerk
myVermerk.VermerkID = 0
@@ -1009,6 +1010,7 @@ Public Class AVISO_Mail_Functions
myVermerk.Hinweis_Vermerk = INFO
myVermerk.VermerkCodeId = 123
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
Return AvisoId
End If