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

Addin

Browse Source
This commit is contained in:
d.breimaier
2026-02-25 11:24:30 +01:00
parent bde9f336ba
commit 4f8f2529f9
8 changed files with 106 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
VERAGAddIn/rbnVERAG.vb
View File

@@ -52,6 +52,16 @@ Public Class VERAGRibbon
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
VERAG.Label = "VERAG - UNLEASHED"
btnAVISOUnleashed.Visible = True
Else
VERAG.Label = "VERAG"
btnAVISOUnleashed.Visible = False
End If
'cAllgemein.TESTSYSTEM = True
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
@@ -785,18 +795,18 @@ Public Class AVISO_Mail_Functions
Dim sendungsNr As String = r("Record")
Dim Descr As String = r("Description")
Dim Descr As String = r("Description")
If Descr <> "" Then
Descr = Descr.ToString.Replace(";", "_")
Descr = Descr.ToString.Replace(".", "_")
Descr = Descr.ToString.Replace(" ", "_")
Descr = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(Descr)
End If
If Descr <> "" Then
Descr = Descr.ToString.Replace(";", "_")
Descr = Descr.ToString.Replace(".", "_")
Descr = Descr.ToString.Replace(" ", "_")
Descr = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(Descr)
End If
If sendungsNrOld <> "" AndAlso sendungsNrOld <> sendungsNr Then
counter = 1
End If
If sendungsNrOld <> "" AndAlso sendungsNrOld <> sendungsNr Then
counter = 1
End If
Dim file = VERAG_PROG_ALLGEMEIN.cFormularManager.getFile_FromURLStream(link, r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, ""),, False)
@@ -805,15 +815,15 @@ Public Class AVISO_Mail_Functions
Else
If missingDocuments <> "" Then
missingDocuments &= vbNewLine & r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, "")
Else
missingDocuments = "fehlende Dokumente: " & vbNewLine & r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, "")
End If
missingDocuments &= vbNewLine & r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, "")
Else
missingDocuments = "fehlende Dokumente: " & vbNewLine & r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, "")
End If
End If
counter += 1
counter += 1
sendungsNrOld = r("Record")
sendungsNrOld = r("Record")
End If