shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Version 2.3

Browse Source
This commit is contained in:
Stefan Hutter
2021-05-25 21:01:12 +02:00
parent 1cc7ed8893
commit 97ef665fd1
183 changed files with 86758 additions and 197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
llblgen/clsPersonal.vb
View File

@@ -3,7 +3,7 @@ Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
Namespace db
Public Class clsPersonal
Inherits clsDBInteractionBase
@@ -12,7 +12,7 @@ Namespace DB
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iSequenz, m_iMutierer, m_iPersonalnr, m_iParentID As SqlInt32
Private m_sNextControlDate, m_sVerantwTKBMA, m_sTGNummer, m_sName, m_sBezeichnung, m_sBeschreibung As SqlString
Private m_sNextControlDate, m_sVerantwTKBMA, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
#End Region
@@ -44,6 +44,7 @@ Namespace DB
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVerantwTKBMA", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVerantwTKBMA))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
@@ -100,6 +101,7 @@ Namespace DB
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVerantwTKBMA", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVerantwTKBMA))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
@@ -272,6 +274,11 @@ Namespace DB
Else
m_sNextControlDate = New SqlString(CType(dtToReturn.Rows(0)("NextControlDate"), String))
End If
If dtToReturn.Rows(0)("EMail") Is System.DBNull.Value Then
m_sEMail = SqlString.Null
Else
m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
@@ -469,6 +476,16 @@ Namespace DB
End Set
End Property
Public Property [sEMail]() As SqlString
Get
Return m_sEMail
End Get
Set(ByVal Value As SqlString)
m_sEMail = Value
End Set
End Property
#End Region
End Class