AppStd/ResulHandlerMSSQL
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Mail Handling und Manual Run

Browse Source
This commit is contained in:
SchreiberM 2024-03-20 10:48:16 +01:00
parent 36e2d97b20
commit 48f9673472
3 changed files with 600 additions and 580 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/ClassWMResulthandler/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.9.0.0")> <Assembly: AssemblyVersion("3.0.0.0")>
<Assembly: AssemblyFileVersion("2.9.0.0")> <Assembly: AssemblyFileVersion("3.0.0.0")>

1174
app/ClassWMResulthandler/clsProfil.vb
View File

File diff suppressed because it is too large Load Diff

2
app/ResultHandler_Konfig/frmMain.vb
View File

@ -733,7 +733,7 @@ Public Class frmMain
For Each DR As DataRow In DT.Rows For Each DR As DataRow In DT.Rows
clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID")) clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
'Und nun das Profil durchlaufen 'Und nun das Profil durchlaufen
Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID) Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID, True)
If initresult = True Then If initresult = True Then
_profil.Profil_Durchlauf(True) _profil.Profil_Durchlauf(True)
ElseIf initresult = False Then ElseIf initresult = False Then