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

Mailsender, cWorker (für Gesamtsicherheiten).

Browse Source
This commit is contained in:
d.breimaier
2026-03-05 08:43:01 +01:00
parent aed3851cbd
commit 1eac4a3e50
7 changed files with 178 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UID/My Project/Resources.Designer.vb generated
View File

@@ -264,6 +264,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt.
'''</summary>
Friend ReadOnly Property connStringFMZOLL_NEW() As String
Get
Return ResourceManager.GetString("connStringFMZOLL_NEW", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

3
UID/My Project/Resources.resx
View File

@@ -322,4 +322,7 @@
<data name="MDM_IT_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="connStringFMZOLL_NEW" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
</data>
</root>

9
UID/cSqlDb.vb
View File

@@ -14,8 +14,15 @@ Public Class cSqlDb
Return cn
End Function
Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = My.Resources.connStringFMZOLL
If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
cn.ConnectionString = My.Resources.connStringFMZOLL_NEW
Else
cn.ConnectionString = My.Resources.connStringFMZOLL
End If
cn.Open()
Return cn
End Function

40
UID/usrctlProcedures.vb
View File

@@ -4043,22 +4043,22 @@ Public Class usrctlProcedures
Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3))
If STDOF.hasEntry Then
Dim save As Boolean = False
'Dim save As Boolean = False
If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
save = True
STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
End If
If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
save = True
STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
End If
If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
save = True
STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
End If
'If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
' save = True
' STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
'End If
'If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
' save = True
' STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
'End If
'If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
' save = True
' STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
'End If
If save Then STDOF.SAVE()
'If save Then STDOF.SAVE()
ElseIf currentRow(2) = 117 Or currentRow(2) = 118 Or currentRow(2) = 119 Then
@@ -4068,6 +4068,18 @@ Public Class usrctlProcedures
End If
If (isleernothing(currentRow(1)) IsNot Nothing AndAlso isleernothing(currentRow(1)) <> "NULL") AndAlso (isleernothing(currentRow(2)) IsNot Nothing AndAlso isleernothing(currentRow(2)) <> "NULL") AndAlso (isleernothing(currentRow(3)) IsNot Nothing AndAlso isleernothing(currentRow(3)) <> "NULL") Then
Dim temp As cStandardofferten
'update ohne OffertenNr!
temp.updateBezeichnung_MULTILINGUAL(isleernothing(currentRow(1)), isleernothing(currentRow(2)), isleernothing(currentRow(3)), isleernothing(currentRow(12)), isleernothing(currentRow(13)), isleernothing(currentRow(14)))
End If
End If