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

Update 20230511

Browse Source
This commit is contained in:
Stefan Hutter
2023-05-11 07:16:02 +02:00
parent 216c1102cd
commit 340847a5ae
135 changed files with 118556 additions and 118187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/BEA/FileContentIndex/1115155d-c5ce-4358-9daa-0edb8499a263.vsidx Normal file
View File

Binary file not shown.

0
.vs/BEA/FileContentIndex/read.lock Normal file
View File

BIN
.vs/BEA/v16/.suo
View File

Binary file not shown.

BIN
.vs/BEA/v17/.suo Normal file
View File

Binary file not shown.

2
BEA/Utils/Globals.vb
View File

@@ -18,7 +18,7 @@ Module Globals
'End Enum
Public Version As String = "2.3"
Public Versionsdatum As String = "06. Juni 2021"
Public Versionsdatum As String = "11. Mai 2023"
''' <summary>

BIN
BEA/bin/Debug/BEA.exe
View File

Binary file not shown.

BIN
BEA/bin/Debug/BEA.pdb
View File

Binary file not shown.

BIN
BEA/bin/Debug/_AllgMainObjekte.dll
View File

Binary file not shown.

BIN
BEA/bin/Debug/_AllgMainObjekte.pdb
View File

Binary file not shown.

BIN
BEA/bin/Debug/_DataClass.dll
View File

Binary file not shown.

BIN
BEA/bin/Debug/_DataClass.pdb
View File

Binary file not shown.

BIN
BEA/bin/Debug/_FunktionDetail.dll
View File

Binary file not shown.

BIN
BEA/bin/Debug/_FunktionDetail.pdb
View File

Binary file not shown.

BIN
BEA/bin/Debug/_MyBeziehungen.dll
View File

Binary file not shown.

BIN
BEA/bin/Debug/_MyBeziehungen.pdb
View File

Binary file not shown.

BIN
BEA/obj/Debug/BEA.exe
View File

Binary file not shown.

BIN
BEA/obj/Debug/BEA.pdb
View File

Binary file not shown.

BIN
BEA/obj/Debug/BEA.vbproj.AssemblyReference.cache
View File

Binary file not shown.

BIN
BEA/obj/Debug/BEA.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
BEA/obj/Debug/BEA.vbproj.ResolveComReference.cache
View File

Binary file not shown.

BIN
BEA/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
BEA/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
BEA/obj/Debug/bea.exe.licenses
View File

Binary file not shown.

BIN
BeAUserSync/obj/Debug/BeAUserSync.csproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
BeAUserSync/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

104
_AllgMainObjekte/AllgMainObjekte.Designer.vb generated
View File

@@ -25,6 +25,11 @@ Partial Class AllgMainObjekte
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AllgMainObjekte))
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.lblHauptnutzer = New System.Windows.Forms.Label()
Me.txtHauptnutzer = New System.Windows.Forms.TextBox()
Me.cbboxHauptnutzer = New DevComponents.DotNetBar.Controls.ComboBoxEx()
Me.lblEmail = New System.Windows.Forms.Label()
Me.txtMail = New System.Windows.Forms.TextBox()
Me.cbboxVerantwTKBMA = New DevComponents.DotNetBar.Controls.ComboBoxEx()
Me.dtPickernaechstePruefung = New System.Windows.Forms.DateTimePicker()
Me.txtnaechstePruefung = New System.Windows.Forms.MaskedTextBox()
@@ -78,8 +83,6 @@ Partial Class AllgMainObjekte
Me.ctxMenuBeziehungen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.InEinemNeuenFensterÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Beziehungen1 = New _MyBeziehungen.Beziehungen()
Me.txtMail = New System.Windows.Forms.TextBox()
Me.lblEmail = New System.Windows.Forms.Label()
Me.GroupBox2.SuspendLayout()
Me.ctxMenuAktiv.SuspendLayout()
CType(Me.txtSequenz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -89,6 +92,9 @@ Partial Class AllgMainObjekte
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.lblHauptnutzer)
Me.GroupBox2.Controls.Add(Me.txtHauptnutzer)
Me.GroupBox2.Controls.Add(Me.cbboxHauptnutzer)
Me.GroupBox2.Controls.Add(Me.lblEmail)
Me.GroupBox2.Controls.Add(Me.txtMail)
Me.GroupBox2.Controls.Add(Me.cbboxVerantwTKBMA)
@@ -135,11 +141,55 @@ Partial Class AllgMainObjekte
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(720, 218)
Me.GroupBox2.Size = New System.Drawing.Size(1066, 229)
Me.GroupBox2.TabIndex = 21
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Allgemein"
'
'lblHauptnutzer
'
Me.lblHauptnutzer.AutoSize = True
Me.lblHauptnutzer.Location = New System.Drawing.Point(736, 198)
Me.lblHauptnutzer.Name = "lblHauptnutzer"
Me.lblHauptnutzer.Size = New System.Drawing.Size(65, 13)
Me.lblHauptnutzer.TabIndex = 52
Me.lblHauptnutzer.Text = "Hauptnutzer"
'
'txtHauptnutzer
'
Me.txtHauptnutzer.Location = New System.Drawing.Point(807, 194)
Me.txtHauptnutzer.Name = "txtHauptnutzer"
Me.txtHauptnutzer.Size = New System.Drawing.Size(174, 20)
Me.txtHauptnutzer.TabIndex = 51
'
'cbboxHauptnutzer
'
Me.cbboxHauptnutzer.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxHauptnutzer.DisplayMember = "Text"
Me.cbboxHauptnutzer.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cbboxHauptnutzer.FormattingEnabled = True
Me.cbboxHauptnutzer.ItemHeight = 14
Me.cbboxHauptnutzer.Location = New System.Drawing.Point(801, 194)
Me.cbboxHauptnutzer.Name = "cbboxHauptnutzer"
Me.cbboxHauptnutzer.Size = New System.Drawing.Size(187, 20)
Me.cbboxHauptnutzer.TabIndex = 50
'
'lblEmail
'
Me.lblEmail.AutoSize = True
Me.lblEmail.Location = New System.Drawing.Point(630, 47)
Me.lblEmail.Name = "lblEmail"
Me.lblEmail.Size = New System.Drawing.Size(26, 13)
Me.lblEmail.TabIndex = 49
Me.lblEmail.Text = "Mail"
'
'txtMail
'
Me.txtMail.Location = New System.Drawing.Point(662, 44)
Me.txtMail.Name = "txtMail"
Me.txtMail.Size = New System.Drawing.Size(150, 20)
Me.txtMail.TabIndex = 48
'
'cbboxVerantwTKBMA
'
Me.cbboxVerantwTKBMA.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -301,6 +351,7 @@ Partial Class AllgMainObjekte
'
'ctxMenuAktiv
'
Me.ctxMenuAktiv.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ctxMenuAktiv.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem})
Me.ctxMenuAktiv.Name = "ctxMenuAktiv"
Me.ctxMenuAktiv.Size = New System.Drawing.Size(122, 26)
@@ -315,7 +366,7 @@ Partial Class AllgMainObjekte
'
Me.cbAktiv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbAktiv.AutoSize = True
Me.cbAktiv.Location = New System.Drawing.Point(455, 123)
Me.cbAktiv.Location = New System.Drawing.Point(801, 123)
Me.cbAktiv.Name = "cbAktiv"
Me.cbAktiv.Size = New System.Drawing.Size(15, 14)
Me.cbAktiv.TabIndex = 30
@@ -423,10 +474,11 @@ Partial Class AllgMainObjekte
'
'ToolStrip1
'
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnSave, Me.TSBtnAddNew, Me.TSBtnDelete, Me.TSBtnSetSecurityObject, Me.tsbtnReport, Me.tsbtncopy1, Me.tsbtnCopy2})
Me.ToolStrip1.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(714, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(1060, 27)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
@@ -436,7 +488,7 @@ Partial Class AllgMainObjekte
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSave.Name = "TSBtnSave"
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSave.Size = New System.Drawing.Size(24, 24)
Me.TSBtnSave.Text = "Speichern"
'
'TSBtnAddNew
@@ -445,7 +497,7 @@ Partial Class AllgMainObjekte
Me.TSBtnAddNew.Image = CType(resources.GetObject("TSBtnAddNew.Image"), System.Drawing.Image)
Me.TSBtnAddNew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnAddNew.Name = "TSBtnAddNew"
Me.TSBtnAddNew.Size = New System.Drawing.Size(23, 22)
Me.TSBtnAddNew.Size = New System.Drawing.Size(24, 24)
Me.TSBtnAddNew.Text = "Neu"
'
'TSBtnDelete
@@ -454,7 +506,7 @@ Partial Class AllgMainObjekte
Me.TSBtnDelete.Image = CType(resources.GetObject("TSBtnDelete.Image"), System.Drawing.Image)
Me.TSBtnDelete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnDelete.Name = "TSBtnDelete"
Me.TSBtnDelete.Size = New System.Drawing.Size(23, 22)
Me.TSBtnDelete.Size = New System.Drawing.Size(24, 24)
Me.TSBtnDelete.Text = "Löschen"
'
'TSBtnSetSecurityObject
@@ -463,7 +515,7 @@ Partial Class AllgMainObjekte
Me.TSBtnSetSecurityObject.Image = CType(resources.GetObject("TSBtnSetSecurityObject.Image"), System.Drawing.Image)
Me.TSBtnSetSecurityObject.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSetSecurityObject.Name = "TSBtnSetSecurityObject"
Me.TSBtnSetSecurityObject.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSetSecurityObject.Size = New System.Drawing.Size(24, 24)
Me.TSBtnSetSecurityObject.Text = "SecurityObjekte generieren"
'
'tsbtnReport
@@ -472,7 +524,7 @@ Partial Class AllgMainObjekte
Me.tsbtnReport.Image = CType(resources.GetObject("tsbtnReport.Image"), System.Drawing.Image)
Me.tsbtnReport.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnReport.Name = "tsbtnReport"
Me.tsbtnReport.Size = New System.Drawing.Size(23, 22)
Me.tsbtnReport.Size = New System.Drawing.Size(24, 24)
Me.tsbtnReport.Text = "Auswertung"
'
'tsbtncopy1
@@ -481,7 +533,7 @@ Partial Class AllgMainObjekte
Me.tsbtncopy1.Image = CType(resources.GetObject("tsbtncopy1.Image"), System.Drawing.Image)
Me.tsbtncopy1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtncopy1.Name = "tsbtncopy1"
Me.tsbtncopy1.Size = New System.Drawing.Size(23, 22)
Me.tsbtncopy1.Size = New System.Drawing.Size(24, 24)
Me.tsbtncopy1.Text = "In Zwischenablage kopieren"
'
'tsbtnCopy2
@@ -490,7 +542,7 @@ Partial Class AllgMainObjekte
Me.tsbtnCopy2.Image = CType(resources.GetObject("tsbtnCopy2.Image"), System.Drawing.Image)
Me.tsbtnCopy2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnCopy2.Name = "tsbtnCopy2"
Me.tsbtnCopy2.Size = New System.Drawing.Size(23, 22)
Me.tsbtnCopy2.Size = New System.Drawing.Size(24, 24)
Me.tsbtnCopy2.Text = "In Zwischenablage kopieren"
'
'txtBezeichnung
@@ -588,6 +640,7 @@ Partial Class AllgMainObjekte
'
'ctxMenuBeziehungen
'
Me.ctxMenuBeziehungen.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ctxMenuBeziehungen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InEinemNeuenFensterÖffnenToolStripMenuItem})
Me.ctxMenuBeziehungen.Name = "ctxMenuBeziehungen"
Me.ctxMenuBeziehungen.Size = New System.Drawing.Size(236, 26)
@@ -603,31 +656,17 @@ Partial Class AllgMainObjekte
Me.Beziehungen1.ConnectionString = Nothing
Me.Beziehungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Beziehungen1.Generic_Event_Handler = Nothing
Me.Beziehungen1.IsRefreshed = False
Me.Beziehungen1.KeyValue = 0
Me.Beziehungen1.Location = New System.Drawing.Point(0, 218)
Me.Beziehungen1.Location = New System.Drawing.Point(0, 229)
Me.Beziehungen1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.Beziehungen1.Mitarbeiternr = 0
Me.Beziehungen1.Name = "Beziehungen1"
Me.Beziehungen1.Size = New System.Drawing.Size(720, 331)
Me.Beziehungen1.Size = New System.Drawing.Size(1066, 320)
Me.Beziehungen1.TabIndex = 22
Me.Beziehungen1.TempFilePath = Nothing
Me.Beziehungen1.Type = Nothing
'
'txtMail
'
Me.txtMail.Location = New System.Drawing.Point(662, 44)
Me.txtMail.Name = "txtMail"
Me.txtMail.Size = New System.Drawing.Size(150, 20)
Me.txtMail.TabIndex = 48
'
'lblEmail
'
Me.lblEmail.AutoSize = True
Me.lblEmail.Location = New System.Drawing.Point(630, 47)
Me.lblEmail.Name = "lblEmail"
Me.lblEmail.Size = New System.Drawing.Size(26, 13)
Me.lblEmail.TabIndex = 49
Me.lblEmail.Text = "Mail"
'
'AllgMainObjekte
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -635,7 +674,7 @@ Partial Class AllgMainObjekte
Me.Controls.Add(Me.Beziehungen1)
Me.Controls.Add(Me.GroupBox2)
Me.Name = "AllgMainObjekte"
Me.Size = New System.Drawing.Size(720, 549)
Me.Size = New System.Drawing.Size(1066, 549)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.ctxMenuAktiv.ResumeLayout(False)
@@ -702,4 +741,7 @@ Partial Class AllgMainObjekte
Friend WithEvents cbboxVerantwTKBMA As DevComponents.DotNetBar.Controls.ComboBoxEx
Friend WithEvents lblEmail As Label
Friend WithEvents txtMail As TextBox
Friend WithEvents txtHauptnutzer As TextBox
Friend WithEvents cbboxHauptnutzer As DevComponents.DotNetBar.Controls.ComboBoxEx
Friend WithEvents lblHauptnutzer As Label
End Class

46
_AllgMainObjekte/AllgMainObjekte.resx
View File

@@ -175,19 +175,19 @@
<data name="TSBtnSetSecurityObject.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKvSURBVDhPvY5bSFNxHMdPrtuLiUFlIEEQVnqeEu1m+BCI
WBQ+WFGIiqJlmU3bzWbH25m2mR4vO266aWyZurm5OpLaWkeLiTpD0Smpm9O8PwiTeujqr20ck3Whtz7w
f/j+v78PfJH/Sjg/JIrfeedNqDx0G/PljUaj2T44NJRosViqjUZTUUtLS7CnwBCfc40R/uF4UDKHTlmL
aQgLOGU47OvpNjAajX6j1jFLX1/fJ+MruoeiOh2turYvMlnd5SN4IHr/bdoyNhLvxPQJ64KBSysXtadN
SCSyldERpL/fQtA0vaLX64Pc2bWGRdbI68WSh87gaweCQ9JY8iip78t0es/nYxyW4mCCzz0kDmF5ZDcm
k2m6VW8oYKIHHo/nx+EIzgDAFhE7OTqy2DdRaN3pPJSB7GBONtFqDQ6Foj6fiT8Z1cnDZrq0vQsdahCJ
Yp+d4Oyu9Zq+AUnKpGJx5XJGBrbLnS3qsv32F5pHPSbt9yWDHBa0VTBFYh9TYsMDPcKvCAT4Pi43b42d
ySYmnzfxHe26D8uUEhZbpTDfVA5z6gcwW18Ew+W8x4zyO0oJ3mClGmGlQwWLOhIk7DQouZkI7xtEMFuX
D46aXKAw3np3bupJRtmkvRoLsD7Fvi21yWBBUwnzjaVQeTsJYiKOwyjBA4c0B+wVXJgsZUN3TlITo3kz
oiyunX9SBnOqEphVFsKMHIPo0BBQ37oCtrJsGCtO+NorTKlo51/1ZxRvzJLsvVYCc87U5rnmCmG6ig+2
8rswIc6EASy1s5sbf5Q5/TsWcVaW3SXaCQ5MueYOFlyfeM1POs/U/0aDxW0fLEx/N4zdcJqFydnuzFR/
xmazoWazGaUoClWpVChJkqi8QHiByBWcxTAcdT8cl6ASgkBJhQJtbtahXTSNjo+Po6urq+gP6p1Y1cYg
GAYAAAAASUVORK5CYII=
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKvSURBVDhPvY5bSJNhHMa/XFk3JgaVgQRBWOl3lWgnw4tA
xKLwwopCVBQty2zaTjZ7PW3aZvp52Oemm8aWqZubq0lqa31WTNQZik5J3Zzm+UKY1EVH/23jM1kHuusH
78XzPv8fPNh/JYIbGs3tuv0mTBa2jf7yRq1W+w4ODSVZLJYao9FU3NraGuIpEOZztikyIEIQnMKiUtdi
G8MDT+oP+Xm6DYxGo/+odczS19f3yfiSemUwdDnatO1fpNL6S4cFQfi9t+nLaCTBidSJ67yBiysXNKdM
WBS2ldYxrL/fQlAUtaLT6YLd2bWGQdbKGkTiB86Qq/tDQtMZsmiJ34sMavfnoyyG/ECiz10sHmN4ZDcm
k2m6TacvpKMHDofjz2LxTgPAFiEzJSaqxC+Jb93hPJiJbadPNtFo9A65vKGAjj8Z1crCZ7o1vQudKhAK
454eZ+2q85q+AUlKJSJR1XJmJtrpzhZV+T77c/VDyqT5vqSXwYKmGqZI9DE1LiLII/wKjyfYy2bnrzGz
mMTks2auo0P7YdmggMU2Ccw3V8Cc6j7MNhTDcAXnEa38jkIsaLQammClUwmLWhLEzHQovZEE7xuFMFtf
AI7aPGhHnPWevLQTtLJJRw0KtD5B35bapbCgroL5pjKoupUMsZHHYJTggEOSC/ZKNkyWMaEnN7mZ1rwZ
UZTUzT8uhzllKcwqimBGhiAmLBRUNy+DrTwHxkoSv/byUys7uFcCaMUbszhnj5VAzpm6fNdcPkxXc8FW
cQcmRFkwgNK6etgJR+jTv2MRZWfbXaKdYMGUa+5g4bWJ19zkc3T9b9Qo3newKOPdMLruNPNTctyZrv6M
zWbDzWYzbjAYcKVSiZMkicsK+eeJPN4ZhAS4+wkEYlxMEDgpl+MtLVq8m6Lw8fFxfHV1Ff8B04lYy7S8
X94AAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnReport.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -207,16 +207,16 @@
<data name="tsbtncopy1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIbSURBVDhPjZPLbxJRFIeJunHhwoVrd8a40f8A4z+gGxYu
cUeFxdQQ4oqkadJYTIzVxAApqSn1MVCg0BmGGeYBw1DeDI8C1Wtwpws3xpVpPPHOcMmtAY3fbs6c33fO
mWQc/yIYDJ5zu91XfD7fjUDg0W2Px3OZvPo7Tqfzgq7z/cmk/HU6bZ82GxyMjlVoNXlg2VTD7/dfIq3L
cblc53VV/YXGKqCJBuikDOiDDsOhApJUhMO8oDEMc5G0U0KhjTt7e1Fv7uDdRq+nfi+pSVDkBMS2X0C3
LcBwIEM6nQSOy0AsFg6TGKVdkyqzqSU4/fn5xJqKPlZAFLOQSiWh2xLsTaxaoyGmSYzSqApFNFJgLpmv
rsgcGEYVT42C2ZlJzE7pPYlRjrRcDh3LQCWz+5t1Dmq1QzBNEXR8ll2rSbskRtHlgwQaFGGZZL66UUrZ
tfqRuE1iFFnY30V9EdBAAjS0RGcl+CQsMTS8Aa4ZZf4ViVGKPBtBvQIsSEZUYqgJu1bVueckRilk324h
Mw+LEuskLBlrYCisXdOkTIjEKNx+fBN1eZhJ8NdeImlV8l/a1Xwh/jpyl8QoGXZnDbU5QB0s6c4leJsz
kvX14C3Svggbjz5GrRz8ITGxBJ80xs9TVP+xuvrwGmlfZCe8xaBmFvp6Ej6ZpW+tCicJuTebkZfP7nu9
3uvWn0lalxNgmJtPn6zdW1l5cJWU/gOH4zeErvR/o5VWkgAAAABJRU5ErkJggg==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIZSURBVDhPjZO/bxJhGMeJujg4ODi7GeOi/wHGf0AXBkfc
qDBcDSFOJE2TxmLS2Jg0XGNTU1rwaCnHwf0EjwPKHXcHHOCP10SDmw4uxsk0PvE9eMlbAxo/2315vp97
HpIL/ItkMnkuHA5ficViNxKJR7cjkchl8tPfCQaDF5pNcYhQ4+t43D012zwMBxpYZgk4rmDH4/FLZHQx
oVDovK7rv9BIA/SmCujta0DvdPA8FSRJhrIk1xmGuUjGKanU2p39/e2owOfWBgP9e03LgapkgU1vgNMp
g9dXIJ/PAc8fws5OOk1qlK6ltaZvrcHpz88f/Lei93UQxQJePQeOVZ5s4me2rR6TGsVuy1U0VGEmma2u
KjwYRgNYdgtceyrxesYrUqOYdUFAAwWoZHq/ecJDq1UE1xVBx2f5mWNpe6RGadb4POrLsEgyW92ocZOs
Y6ovSI1Sk4/2UE8E1JcAeb7orASfhCVGFW+As5OGuEVqlKrIsahbgTnJkEoMLTvJ2s3KM1KjKKXsJnIF
mJf4J2HJqAqGejDJ6loxRWqUylFmHTklmErwv71A4rakL922pGResndJjVLkdldQhwdkY4kzk+BtzkhW
V5O3yPg8XGb7MbKO4Q+JiyX4pBF+Hn/s/FhefniNjM+zm95kkFmAnp6DT57xzW1VNFk4WGefb9yPRqPX
/S+TjC4mwTA3nz5Zube09OAqif6DQOA3+EHvU7u5BAYAAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnCopy2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

26
_AllgMainObjekte/AllgMainObjekte.vb
View File

@@ -186,6 +186,7 @@ Public Class AllgMainObjekte
Dim Verwaltung_durch As New DataTable
Dim Dateneigentuemer As New DataTable
Dim VerantwTKBMa As New DataTable
Dim Hauptnutzer As New DataTable
Dim Save_Verwaltung_Durch As Integer
Dim Save_Verwaltung_mit As Integer
Dim Save_Dateneigentuemer As Integer
@@ -353,10 +354,15 @@ Public Class AllgMainObjekte
'20200114 - Erweiterungen
Me.lblVerantwTKBMA.Visible = False
Me.txtVerantwTKBMa.Visible = False
Me.lblHauptnutzer.Visible = False
Me.txtHauptnutzer.Visible = False
Me.lblnaechstepruefung.Visible = False
Me.txtnaechstePruefung.Visible = False
Me.dtPickernaechstePruefung.Visible = False
Me.cbboxVerantwTKBMA.Visible = False
Me.cbboxHauptnutzer.Visible = False
Try
Datenklasse.CreateNew("_DataClass.db." + Me.Type, DBObject)
' DBObject = Datenklasse.crc CreateNew("_DataClass.db.Personal")
@@ -466,6 +472,7 @@ Public Class AllgMainObjekte
'If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'VerantwTKBMa = VerantwTKBMA_Data.Copy
VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Hauptnutzer = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.lblEmail.Visible = True
Me.txtMail.Visible = True
Me.tsbtncopy1.Visible = True
@@ -477,23 +484,36 @@ Public Class AllgMainObjekte
Me.txtName.Text = DBObject.sname.value
Me.txtTGNummer.Text = DBObject.stgnummer.value
Me.lblVerantwTKBMA.Visible = True
Me.lblHauptnutzer.Visible = True
'Me.txtVerantwTKBMa.Visible = True
Me.cbboxVerantwTKBMA.Visible = True
Me.cbboxHauptnutzer.Visible = True
Me.lblnaechstepruefung.Visible = True
Me.txtnaechstePruefung.Visible = True
Me.dtPickernaechstePruefung.Visible = True
Me.txtnaechstePruefung.Text = DBObject.snextcontroldate.ToString
Me.txtMail.Text = DBObject.semail.ToString
Me.txtVerantwTKBMa.Text = DBObject.sverantwTKBma.ToString
Me.txtHauptnutzer.Text = DBObject.sHauptnutzer.ToString
Me.cbboxVerantwTKBMA.DataSource = VerantwTKBMa
Me.cbboxHauptnutzer.DataSource = Hauptnutzer
Me.cbboxVerantwTKBMA.DisplayMember = "Bezeichnung"
Me.cbboxHauptnutzer.DisplayMember = "Bezeichnung"
Me.cbboxVerantwTKBMA.ValueMember = "Keyvalue"
Me.cbboxHauptnutzer.ValueMember = "Keyvalue"
If DBObject.sverantwTKBma.ToString = "" Then
Me.cbboxVerantwTKBMA.SelectedValue = 0
Me.cbboxVerantwTKBMA.Text = ""
Else
Me.cbboxVerantwTKBMA.SelectedValue = DBObject.sverantwTKBma.ToString
End If
If DBObject.sHauptnutzer.ToString = "" Then
Me.cbboxHauptnutzer.SelectedValue = 0
Me.cbboxHauptnutzer.Text = ""
Else
Me.cbboxHauptnutzer.SelectedValue = DBObject.shauptnutzer.ToString
End If
'Case 4 'SERVER
Case 5 'VERWALTUNGDURCH
Case 6 'VERWALTUNGMIT
@@ -843,11 +863,17 @@ Public Class AllgMainObjekte
DBObject.sVerantwTKBMA = New SqlString(CType(Me.txtVerantwTKBMa.Text, String))
DBObject.sNextControlDate = New SqlString(CType(Me.txtnaechstePruefung.Text, String))
DBObject.sEMail = New SqlString(CType(Me.txtMail.Text, String))
DBObject.sHauptnutzer = New SqlString(CType(Me.txtHauptnutzer.Text, String))
If Me.cbboxVerantwTKBMA.SelectedValue = 0 Then
DBObject.sVerantwTKBMA = New SqlString(CType("", String))
Else
DBObject.sVerantwTKBMA = New SqlString(CType(Me.cbboxVerantwTKBMA.SelectedValue, String))
End If
If Me.cbboxHauptnutzer.SelectedValue = 0 Then
DBObject.sHauptnutzer = New SqlString(CType("", String))
Else
DBObject.sHauptnutzer = New SqlString(CType(Me.cbboxHauptnutzer.SelectedValue, String))
End If
Case 3, 4
If Save_Verwaltung_mit <> Me.cbboxVerwaltungMit.SelectedValue Then
DBObject.set_verwaltung_mit(Me.cbboxVerwaltungMit.SelectedValue, Me.Save_Verwaltung_mit)

BIN
_AllgMainObjekte/bin/Debug/_AllgMainObjekte.dll
View File

Binary file not shown.

BIN
_AllgMainObjekte/bin/Debug/_AllgMainObjekte.pdb
View File

Binary file not shown.

BIN
_AllgMainObjekte/bin/Debug/_DataClass.dll
View File

Binary file not shown.

BIN
_AllgMainObjekte/bin/Debug/_DataClass.pdb
View File

Binary file not shown.

BIN
_AllgMainObjekte/bin/Debug/_MyBeziehungen.dll
View File

Binary file not shown.

BIN
_AllgMainObjekte/bin/Debug/_MyBeziehungen.pdb
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_AllgMainObjekte.AllgMainObjekte.resources
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_AllgMainObjekte.dll
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_AllgMainObjekte.frmSetNeueBeziehung.resources
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_AllgMainObjekte.pdb
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.AssemblyReference.cache
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
_AllgMainObjekte/obj/Debug/_allgmainobjekte.dll.licenses
View File

Binary file not shown.

25
_DataClass/DB/clsPersonal.vb
View File

@@ -11,8 +11,8 @@ 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_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
Private m_iSequenz, m_iPersonalnr, m_iMutierer, m_iParentID As SqlInt32
Private m_sNextControlDate, m_sVerantwTKBMA, m_sHauptnutzer, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
#End Region
@@ -44,7 +44,8 @@ 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("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHauptnutzer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHauptnutzer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
@@ -101,7 +102,8 @@ 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("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHauptnutzer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHauptnutzer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
@@ -279,6 +281,11 @@ Namespace DB
Else
m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
End If
If dtToReturn.Rows(0)("Hauptnutzer") Is System.DBNull.Value Then
m_sHauptnutzer = SqlString.Null
Else
m_sHauptnutzer = New SqlString(CType(dtToReturn.Rows(0)("Hauptnutzer"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
@@ -486,6 +493,16 @@ Namespace DB
End Set
End Property
Public Property [sHauptnutzer]() As SqlString
Get
Return m_sHauptnutzer
End Get
Set(ByVal Value As SqlString)
m_sHauptnutzer = Value
End Set
End Property
#End Region
End Class

BIN
_DataClass/bin/Debug/_DataClass.dll
View File

Binary file not shown.

BIN
_DataClass/bin/Debug/_DataClass.pdb
View File

Binary file not shown.

BIN
_DataClass/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
_DataClass/obj/Debug/_DataClass.dll
View File

Binary file not shown.

BIN
_DataClass/obj/Debug/_DataClass.pdb
View File

Binary file not shown.

BIN
_DataClass/obj/Debug/_DataClass.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

2
_DataClass/obj/Debug/_DataClass.vbproj.FileListAbsolute.txt
View File

@@ -6,5 +6,5 @@ E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.vbproj.Gener
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.dll
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.xml
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.pdb
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.vbprojAssemblyReference.cache
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.vbproj.AssemblyReference.cache

BIN
_DataClass/obj/Debug/_DataClass.vbproj.GenerateResource.Cache
View File

Binary file not shown.

BIN
_DataClass/obj/Debug/_DataClass.vbprojAssemblyReference.cache
View File

Binary file not shown.

BIN
_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
_FRReporting/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
_FRReporting/obj/Debug/_FRReporting.vbproj.AssemblyReference.cache
View File

Binary file not shown.

BIN
_FunktionDetail/bin/Debug/_DataClass.dll
View File

Binary file not shown.

BIN
_FunktionDetail/bin/Debug/_DataClass.pdb
View File

Binary file not shown.

BIN
_FunktionDetail/bin/Debug/_FunktionDetail.dll
View File

Binary file not shown.

BIN
_FunktionDetail/bin/Debug/_FunktionDetail.pdb
View File

Binary file not shown.

BIN
_FunktionDetail/bin/Debug/_MyBeziehungen.dll
View File

Binary file not shown.

BIN
_FunktionDetail/bin/Debug/_MyBeziehungen.pdb
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/_FunktionDetail.BEA_FunktionDetail.resources
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/_FunktionDetail.dll
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/_FunktionDetail.pdb
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/_FunktionDetail.vbproj.AssemblyReference.cache
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/_FunktionDetail.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
_FunktionDetail/obj/Debug/_funktiondetail.dll.licenses
View File

Binary file not shown.

BIN
_Generic_Event_Handler/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
_Generic_Event_Handler/obj/Debug/_Generic_Event_Handler.vbproj.AssemblyReference.cache
View File

Binary file not shown.

BIN
_MyBeziehungen/bin/Debug/_DataClass.dll
View File

Binary file not shown.

BIN
_MyBeziehungen/bin/Debug/_DataClass.pdb
View File

Binary file not shown.

BIN
_MyBeziehungen/bin/Debug/_MyBeziehungen.dll
View File

Binary file not shown.

BIN
_MyBeziehungen/bin/Debug/_MyBeziehungen.pdb
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/DesignTimeResolveAssemblyReferences.cache
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/_MyBeziehungen.Beziehungen.resources
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/_MyBeziehungen.dll
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/_MyBeziehungen.pdb
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/_MyBeziehungen.vbproj.AssemblyReference.cache
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/_MyBeziehungen.vbproj.GenerateResource.cache
View File

Binary file not shown.

BIN
_MyBeziehungen/obj/Debug/_mybeziehungen.dll.licenses
View File

Binary file not shown.

267
llblgen/bea_20210830_LLBL_StoredProcedures.sql Normal file
View File

@@ -0,0 +1,267 @@
-- ================================================================================================================
-- Stored Procedures generated by LLBLGen v1.21.2003.712 Final on Mittwoch, 10. Mai 2023, 18:42:06
-- For the Low Level Business Logic Layer for the database 'bea_20210830'
-- ================================================================================================================
SET NOCOUNT ON
GO
USE [bea_20210830]
GO
-- ========================================================================================================
-- [Stored Procedures generated for table: Personal]
GO
-- //// Insert Stored procedure.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_Personal_Insert]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_Personal_Insert]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will insert 1 row in the table 'Personal'
-- Gets: @iPersonalnr int
-- Gets: @iParentID int
-- Gets: @sBezeichnung varchar(255)
-- Gets: @sBeschreibung varchar(255)
-- Gets: @sTGNummer varchar(255)
-- Gets: @sName varchar(255)
-- Gets: @iSequenz int
-- Gets: @bAktiv bit
-- Gets: @daErstellt_am datetime
-- Gets: @daMutiert_am datetime
-- Gets: @iMutierer int
-- Gets: @sVerantwTKBMA varchar(255)
-- Gets: @sNextControlDate varchar(255)
-- Gets: @sEMail varchar(255)
-- Gets: @sHauptnutzer varchar(255)
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_Personal_Insert]
@iPersonalnr int,
@iParentID int,
@sBezeichnung varchar(255),
@sBeschreibung varchar(255),
@sTGNummer varchar(255),
@sName varchar(255),
@iSequenz int,
@bAktiv bit,
@daErstellt_am datetime,
@daMutiert_am datetime,
@iMutierer int,
@sVerantwTKBMA varchar(255),
@sNextControlDate varchar(255),
@sEMail varchar(255),
@sHauptnutzer varchar(255),
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- INSERT a new row in the table.
INSERT [dbo].[Personal]
(
[Personalnr],
[ParentID],
[Bezeichnung],
[Beschreibung],
[TGNummer],
[Name],
[Sequenz],
[Aktiv],
[Erstellt_am],
[Mutiert_am],
[Mutierer],
[VerantwTKBMA],
[NextControlDate],
[EMail],
[Hauptnutzer]
)
VALUES
(
@iPersonalnr,
@iParentID,
@sBezeichnung,
@sBeschreibung,
@sTGNummer,
@sName,
@iSequenz,
@bAktiv,
@daErstellt_am,
@daMutiert_am,
@iMutierer,
@sVerantwTKBMA,
@sNextControlDate,
@sEMail,
@sHauptnutzer
)
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Update Stored procedure for updating one single row.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_Personal_Update]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_Personal_Update]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will update an existing row in the table 'Personal'
-- Gets: @iPersonalnr int
-- Gets: @iParentID int
-- Gets: @sBezeichnung varchar(255)
-- Gets: @sBeschreibung varchar(255)
-- Gets: @sTGNummer varchar(255)
-- Gets: @sName varchar(255)
-- Gets: @iSequenz int
-- Gets: @bAktiv bit
-- Gets: @daErstellt_am datetime
-- Gets: @daMutiert_am datetime
-- Gets: @iMutierer int
-- Gets: @sVerantwTKBMA varchar(255)
-- Gets: @sNextControlDate varchar(255)
-- Gets: @sEMail varchar(255)
-- Gets: @sHauptnutzer varchar(255)
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_Personal_Update]
@iPersonalnr int,
@iParentID int,
@sBezeichnung varchar(255),
@sBeschreibung varchar(255),
@sTGNummer varchar(255),
@sName varchar(255),
@iSequenz int,
@bAktiv bit,
@daErstellt_am datetime,
@daMutiert_am datetime,
@iMutierer int,
@sVerantwTKBMA varchar(255),
@sNextControlDate varchar(255),
@sEMail varchar(255),
@sHauptnutzer varchar(255),
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- UPDATE an existing row in the table.
UPDATE [dbo].[Personal]
SET
[ParentID] = @iParentID,
[Bezeichnung] = @sBezeichnung,
[Beschreibung] = @sBeschreibung,
[TGNummer] = @sTGNummer,
[Name] = @sName,
[Sequenz] = @iSequenz,
[Aktiv] = @bAktiv,
[Erstellt_am] = @daErstellt_am,
[Mutiert_am] = @daMutiert_am,
[Mutierer] = @iMutierer,
[VerantwTKBMA] = @sVerantwTKBMA,
[NextControlDate] = @sNextControlDate,
[EMail] = @sEMail,
[Hauptnutzer] = @sHauptnutzer
WHERE
[Personalnr] = @iPersonalnr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Delete Stored procedure using Primary Key.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_Personal_Delete]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_Personal_Delete]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will delete an existing row from the table 'Personal'
-- using the Primary Key.
-- Gets: @iPersonalnr int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_Personal_Delete]
@iPersonalnr int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- DELETE an existing row from the table.
DELETE FROM [dbo].[Personal]
WHERE
[Personalnr] = @iPersonalnr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Select Stored procedure, based on Primary Key.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_Personal_SelectOne]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_Personal_SelectOne]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will select an existing row from the table 'Personal'
-- based on the Primary Key.
-- Gets: @iPersonalnr int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_Personal_SelectOne]
@iPersonalnr int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT an existing row from the table.
SELECT
[Personalnr],
[ParentID],
[Bezeichnung],
[Beschreibung],
[TGNummer],
[Name],
[Sequenz],
[Aktiv],
[Erstellt_am],
[Mutiert_am],
[Mutierer],
[VerantwTKBMA],
[NextControlDate],
[EMail],
[Hauptnutzer]
FROM [dbo].[Personal]
WHERE
[Personalnr] = @iPersonalnr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- //// Select All Stored procedure.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pr_Personal_SelectAll]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[pr_Personal_SelectAll]
GO
---------------------------------------------------------------------------------
-- Stored procedure that will select all rows from the table 'Personal'
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_Personal_SelectAll]
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT all rows from the table.
SELECT
[Personalnr],
[ParentID],
[Bezeichnung],
[Beschreibung],
[TGNummer],
[Name],
[Sequenz],
[Aktiv],
[Erstellt_am],
[Mutiert_am],
[Mutierer],
[VerantwTKBMA],
[NextControlDate],
[EMail],
[Hauptnutzer]
FROM [dbo].[Personal]
ORDER BY
[Personalnr] ASC
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
-- [End of Stored Procedures for table: Personal]
-- ========================================================================================================
GO

27
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
@@ -11,8 +11,8 @@ 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_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
Private m_iSequenz, m_iPersonalnr, m_iMutierer, m_iParentID As SqlInt32
Private m_sNextControlDate, m_sVerantwTKBMA, m_sHauptnutzer, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
#End Region
@@ -44,7 +44,8 @@ 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("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHauptnutzer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHauptnutzer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
@@ -101,7 +102,8 @@ 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("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHauptnutzer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHauptnutzer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
@@ -279,6 +281,11 @@ Namespace db
Else
m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
End If
If dtToReturn.Rows(0)("Hauptnutzer") Is System.DBNull.Value Then
m_sHauptnutzer = SqlString.Null
Else
m_sHauptnutzer = New SqlString(CType(dtToReturn.Rows(0)("Hauptnutzer"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
@@ -486,6 +493,16 @@ Namespace db
End Set
End Property
Public Property [sHauptnutzer]() As SqlString
Get
Return m_sHauptnutzer
End Get
Set(ByVal Value As SqlString)
m_sHauptnutzer = Value
End Set
End Property
#End Region
End Class