Compare commits

...

3 Commits

Binary file not shown.

Binary file not shown.

@ -6,7 +6,7 @@ Module Globals
''' Applikationsversion
''' </summary>
''' <remarks></remarks>
'''
''' Test GitUpdate
'Enum Struktur_Selectiontype
' Berechtigung = 0
' Organisation = 1
@ -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>

@ -1 +1 @@
¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼Š“´¾¶¼¹€¼µ¾±¸µÈ®ÁÃn®Âª‰ŽŠ“ƒÅ¹Æ¸»ÈÂdÀº¨Á¾®ÆÁu½Â«Á”¥¹Èª‡Ã´Ä³Èȵ¹»Ä¼d¶¹Ÿ”š¸¶·¿ªÆuÁ­Çº€|~ˆƒÊǹ·r¾²À¶€¼­¸Å¿ÄƸ|ȶ¹Ž€
¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼Š“´€t†u„u‰ÅÄÀ®µ¶Â­¼Ãeš­²·…—™•€ÂºÀ·¶È¹l¿ªµ½Ç½È¾r¾¼ª¼­¸¸·ƒÌÃÆ°Åɯ¸¶Ä³lµ©©µ³¸¹©Áu¸µÆª|…Š€Çȳ¶m¾©‰¿¦¸¶ÇǼÁDz­Á~~

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

@ -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

@ -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">

@ -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")
@ -463,9 +469,10 @@ Public Class AllgMainObjekte
'Case 3 'PLATTFORM
Case 2 'PERSONAL
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")
'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
@ -549,6 +569,7 @@ Public Class AllgMainObjekte
Cursor = Cursors.WaitCursor
Me.Beziehungen1.SuspendLayout()
'Me.Beziehungen1.Visible = False
Me.Beziehungen1.IsRefreshed = False
Me.Beziehungen1.ConnectionString = Me.ConnectionString
Me.Beziehungen1.Generic_Event_Handler = Globals.Generic_Event_Handler
Me.Beziehungen1.Mitarbeiternr = Me.Mitarbeiternr
@ -558,6 +579,7 @@ Public Class AllgMainObjekte
Me.lblcid_a.Visible = False
If Datenklasse.Get_Selectiontype(Me.Type) = 1 Then Me.cbCID.Checked = Me.Beziehungen1.Refresh_Details(Position)
If Datenklasse.Get_Selectiontype(Me.Type) <> 1 Then
Me.Beziehungen1.IsRefreshed = False
Dim cd As Boolean = Me.Beziehungen1.Refresh_Details(Position)
If cd = True Then
If Me.cbCID.Checked = False Then lblcid_a.Visible = True
@ -567,6 +589,7 @@ Public Class AllgMainObjekte
End If
'Me.Beziehungen1.Visible = True
Me.Beziehungen1.ResumeLayout()
Me.Beziehungen1.IsRefreshed = False
Cursor = Cursors.Default
End Sub
@ -840,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)

@ -55,12 +55,12 @@
Me.Height = Me.Height + 227
Me.cbboxKontaktFB.BeginUpdate()
Me.cbboxKontaktSD.BeginUpdate()
If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'kontaktfb = VerantwTKBMA_Data
'kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
'Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
@ -69,6 +69,8 @@
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "KeyValue"
Cursor = Cursors.Default
Me.cbboxKontaktSD.EndUpdate()
Me.cbboxKontaktFB.EndUpdate()
Else
Me.Panel2.Height = 1
Me.Height = Me.Height - 227

@ -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

@ -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

@ -5,9 +5,19 @@ Imports C1.Win.C1TrueDBGrid
Public Class Beziehungen
#Region "Properties"
Dim m_IsRefreshed As Boolean = False
Property IsRefreshed As Boolean
Get
Return m_IsRefreshed
End Get
Set(value As Boolean)
m_IsRefreshed = value
End Set
End Property
Dim m_ConnectionString As String
Dim FilterDoubleClicked As Boolean = True
<DefaultValue(""), Description("ConnectionString"), Category("Options")> _
<DefaultValue(""), Description("ConnectionString"), Category("Options")>
Public Property ConnectionString() As String
Get
ConnectionString = m_ConnectionString
@ -17,14 +27,14 @@ Public Class Beziehungen
m_ConnectionString = Value
Globals.conn.sConnectionString = m_ConnectionString
Datenklasse.ConnectionString = m_ConnectionString
init_comp()
Init_Comp()
End If
End Set
End Property
Dim m_Mitarbeiternr As Integer
<DefaultValue(1), Description("Mitarbeiternr"), Category("Options")> _
<DefaultValue(1), Description("Mitarbeiternr"), Category("Options")>
Public Property Mitarbeiternr As Integer
Get
Mitarbeiternr = m_Mitarbeiternr
@ -39,7 +49,7 @@ Public Class Beziehungen
End Property
Dim m_TempFilePath As String
<DefaultValue("h:\tssettings\bea"), Description("Temp Filepath"), Category("Options")> _
<DefaultValue("h:\tssettings\bea"), Description("Temp Filepath"), Category("Options")>
Public Property TempFilePath As String
Get
TempFilePath = m_TempFilePath
@ -53,7 +63,7 @@ Public Class Beziehungen
End Property
Dim m_keyvalue As Integer
<DefaultValue(1), Description("KeyValue"), Category("Options")> _
<DefaultValue(1), Description("KeyValue"), Category("Options")>
Public Property KeyValue As Integer
Get
KeyValue = m_keyvalue
@ -61,13 +71,13 @@ Public Class Beziehungen
Set(value As Integer)
If m_keyvalue <> value Then
m_keyvalue = value
refresh_details()
Refresh_Details()
End If
End Set
End Property
Dim m_Type As String
<DefaultValue(""), Description("KeyValue"), Category("Options")> _
<DefaultValue(""), Description("KeyValue"), Category("Options")>
Public Property Type As String
Get
Type = m_Type
@ -81,7 +91,7 @@ Public Class Beziehungen
End Property
Dim m_Generic_Event_Handler As _Generic_Event_Handler.Generic_Event_Handler
<DefaultValue(""), Description("Type"), Category("Options")> _
<DefaultValue(""), Description("Type"), Category("Options")>
Public Property Generic_Event_Handler
Get
Generic_Event_Handler = m_Generic_Event_Handler
@ -123,6 +133,7 @@ Public Class Beziehungen
End Sub
Public Function Refresh_Details(Optional Position As Integer = 0) As Boolean
'If Me.IsRefreshed Then Exit Function
Dim cid As Boolean = False
Try
Me.C1Beziehungen.Enabled = False
@ -191,6 +202,7 @@ Public Class Beziehungen
Catch
End Try
Me.C1Beziehungen.Enabled = True
Me.IsRefreshed = True
Return cid
End Function
@ -351,7 +363,7 @@ Public Class Beziehungen
Private Sub C1Beziehungen_MouseUp(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseUp
If C1Beziehungen.PointAt(e.X, e.Y) = C1.Win.C1TrueDBGrid.PointAtEnum.AtFilterBar Then
filterdoubleclicked = True
FilterDoubleClicked = True
Exit Sub
End If
FilterDoubleClicked = False

@ -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

@ -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

Loading…
Cancel
Save