Compare commits

..

No commits in common. 'master' and '78bb82c44db6225c574ffec824df67bf01b1965f' have entirely different histories.

Binary file not shown.

Binary file not shown.

@ -6,7 +6,7 @@ Module Globals
''' Applikationsversion ''' Applikationsversion
''' </summary> ''' </summary>
''' <remarks></remarks> ''' <remarks></remarks>
''' Test GitUpdate '''
'Enum Struktur_Selectiontype 'Enum Struktur_Selectiontype
' Berechtigung = 0 ' Berechtigung = 0
' Organisation = 1 ' Organisation = 1
@ -18,7 +18,7 @@ Module Globals
'End Enum 'End Enum
Public Version As String = "2.3" Public Version As String = "2.3"
Public Versionsdatum As String = "11. Mai 2023" Public Versionsdatum As String = "06. Juni 2021"
''' <summary> ''' <summary>

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

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

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

@ -186,7 +186,6 @@ Public Class AllgMainObjekte
Dim Verwaltung_durch As New DataTable Dim Verwaltung_durch As New DataTable
Dim Dateneigentuemer As New DataTable Dim Dateneigentuemer As New DataTable
Dim VerantwTKBMa As New DataTable Dim VerantwTKBMa As New DataTable
Dim Hauptnutzer As New DataTable
Dim Save_Verwaltung_Durch As Integer Dim Save_Verwaltung_Durch As Integer
Dim Save_Verwaltung_mit As Integer Dim Save_Verwaltung_mit As Integer
Dim Save_Dateneigentuemer As Integer Dim Save_Dateneigentuemer As Integer
@ -354,15 +353,10 @@ Public Class AllgMainObjekte
'20200114 - Erweiterungen '20200114 - Erweiterungen
Me.lblVerantwTKBMA.Visible = False Me.lblVerantwTKBMA.Visible = False
Me.txtVerantwTKBMa.Visible = False Me.txtVerantwTKBMa.Visible = False
Me.lblHauptnutzer.Visible = False
Me.txtHauptnutzer.Visible = False
Me.lblnaechstepruefung.Visible = False Me.lblnaechstepruefung.Visible = False
Me.txtnaechstePruefung.Visible = False Me.txtnaechstePruefung.Visible = False
Me.dtPickernaechstePruefung.Visible = False Me.dtPickernaechstePruefung.Visible = False
Me.cbboxVerantwTKBMA.Visible = False Me.cbboxVerantwTKBMA.Visible = False
Me.cbboxHauptnutzer.Visible = False
Try Try
Datenklasse.CreateNew("_DataClass.db." + Me.Type, DBObject) Datenklasse.CreateNew("_DataClass.db." + Me.Type, DBObject)
' DBObject = Datenklasse.crc CreateNew("_DataClass.db.Personal") ' DBObject = Datenklasse.crc CreateNew("_DataClass.db.Personal")
@ -469,10 +463,9 @@ Public Class AllgMainObjekte
'Case 3 'PLATTFORM 'Case 3 'PLATTFORM
Case 2 'PERSONAL Case 2 'PERSONAL
'If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung") If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'VerantwTKBMa = VerantwTKBMA_Data.Copy VerantwTKBMa = VerantwTKBMA_Data.Copy
VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung") 'VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Hauptnutzer = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.lblEmail.Visible = True Me.lblEmail.Visible = True
Me.txtMail.Visible = True Me.txtMail.Visible = True
Me.tsbtncopy1.Visible = True Me.tsbtncopy1.Visible = True
@ -484,36 +477,23 @@ Public Class AllgMainObjekte
Me.txtName.Text = DBObject.sname.value Me.txtName.Text = DBObject.sname.value
Me.txtTGNummer.Text = DBObject.stgnummer.value Me.txtTGNummer.Text = DBObject.stgnummer.value
Me.lblVerantwTKBMA.Visible = True Me.lblVerantwTKBMA.Visible = True
Me.lblHauptnutzer.Visible = True
'Me.txtVerantwTKBMa.Visible = True 'Me.txtVerantwTKBMa.Visible = True
Me.cbboxVerantwTKBMA.Visible = True Me.cbboxVerantwTKBMA.Visible = True
Me.cbboxHauptnutzer.Visible = True
Me.lblnaechstepruefung.Visible = True Me.lblnaechstepruefung.Visible = True
Me.txtnaechstePruefung.Visible = True Me.txtnaechstePruefung.Visible = True
Me.dtPickernaechstePruefung.Visible = True Me.dtPickernaechstePruefung.Visible = True
Me.txtnaechstePruefung.Text = DBObject.snextcontroldate.ToString Me.txtnaechstePruefung.Text = DBObject.snextcontroldate.ToString
Me.txtMail.Text = DBObject.semail.ToString Me.txtMail.Text = DBObject.semail.ToString
Me.txtVerantwTKBMa.Text = DBObject.sverantwTKBma.ToString Me.txtVerantwTKBMa.Text = DBObject.sverantwTKBma.ToString
Me.txtHauptnutzer.Text = DBObject.sHauptnutzer.ToString
Me.cbboxVerantwTKBMA.DataSource = VerantwTKBMa Me.cbboxVerantwTKBMA.DataSource = VerantwTKBMa
Me.cbboxHauptnutzer.DataSource = Hauptnutzer
Me.cbboxVerantwTKBMA.DisplayMember = "Bezeichnung" Me.cbboxVerantwTKBMA.DisplayMember = "Bezeichnung"
Me.cbboxHauptnutzer.DisplayMember = "Bezeichnung"
Me.cbboxVerantwTKBMA.ValueMember = "Keyvalue" Me.cbboxVerantwTKBMA.ValueMember = "Keyvalue"
Me.cbboxHauptnutzer.ValueMember = "Keyvalue"
If DBObject.sverantwTKBma.ToString = "" Then If DBObject.sverantwTKBma.ToString = "" Then
Me.cbboxVerantwTKBMA.SelectedValue = 0 Me.cbboxVerantwTKBMA.SelectedValue = 0
Me.cbboxVerantwTKBMA.Text = "" Me.cbboxVerantwTKBMA.Text = ""
Else Else
Me.cbboxVerantwTKBMA.SelectedValue = DBObject.sverantwTKBma.ToString Me.cbboxVerantwTKBMA.SelectedValue = DBObject.sverantwTKBma.ToString
End If 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 4 'SERVER
Case 5 'VERWALTUNGDURCH Case 5 'VERWALTUNGDURCH
Case 6 'VERWALTUNGMIT Case 6 'VERWALTUNGMIT
@ -569,7 +549,6 @@ Public Class AllgMainObjekte
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Me.Beziehungen1.SuspendLayout() Me.Beziehungen1.SuspendLayout()
'Me.Beziehungen1.Visible = False 'Me.Beziehungen1.Visible = False
Me.Beziehungen1.IsRefreshed = False
Me.Beziehungen1.ConnectionString = Me.ConnectionString Me.Beziehungen1.ConnectionString = Me.ConnectionString
Me.Beziehungen1.Generic_Event_Handler = Globals.Generic_Event_Handler Me.Beziehungen1.Generic_Event_Handler = Globals.Generic_Event_Handler
Me.Beziehungen1.Mitarbeiternr = Me.Mitarbeiternr Me.Beziehungen1.Mitarbeiternr = Me.Mitarbeiternr
@ -579,7 +558,6 @@ Public Class AllgMainObjekte
Me.lblcid_a.Visible = False 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.cbCID.Checked = Me.Beziehungen1.Refresh_Details(Position)
If Datenklasse.Get_Selectiontype(Me.Type) <> 1 Then If Datenklasse.Get_Selectiontype(Me.Type) <> 1 Then
Me.Beziehungen1.IsRefreshed = False
Dim cd As Boolean = Me.Beziehungen1.Refresh_Details(Position) Dim cd As Boolean = Me.Beziehungen1.Refresh_Details(Position)
If cd = True Then If cd = True Then
If Me.cbCID.Checked = False Then lblcid_a.Visible = True If Me.cbCID.Checked = False Then lblcid_a.Visible = True
@ -589,7 +567,6 @@ Public Class AllgMainObjekte
End If End If
'Me.Beziehungen1.Visible = True 'Me.Beziehungen1.Visible = True
Me.Beziehungen1.ResumeLayout() Me.Beziehungen1.ResumeLayout()
Me.Beziehungen1.IsRefreshed = False
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
@ -863,17 +840,11 @@ Public Class AllgMainObjekte
DBObject.sVerantwTKBMA = New SqlString(CType(Me.txtVerantwTKBMa.Text, String)) DBObject.sVerantwTKBMA = New SqlString(CType(Me.txtVerantwTKBMa.Text, String))
DBObject.sNextControlDate = New SqlString(CType(Me.txtnaechstePruefung.Text, String)) DBObject.sNextControlDate = New SqlString(CType(Me.txtnaechstePruefung.Text, String))
DBObject.sEMail = New SqlString(CType(Me.txtMail.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 If Me.cbboxVerantwTKBMA.SelectedValue = 0 Then
DBObject.sVerantwTKBMA = New SqlString(CType("", String)) DBObject.sVerantwTKBMA = New SqlString(CType("", String))
Else Else
DBObject.sVerantwTKBMA = New SqlString(CType(Me.cbboxVerantwTKBMA.SelectedValue, String)) DBObject.sVerantwTKBMA = New SqlString(CType(Me.cbboxVerantwTKBMA.SelectedValue, String))
End If 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 Case 3, 4
If Save_Verwaltung_mit <> Me.cbboxVerwaltungMit.SelectedValue Then If Save_Verwaltung_mit <> Me.cbboxVerwaltungMit.SelectedValue Then
DBObject.set_verwaltung_mit(Me.cbboxVerwaltungMit.SelectedValue, Me.Save_Verwaltung_mit) DBObject.set_verwaltung_mit(Me.cbboxVerwaltungMit.SelectedValue, Me.Save_Verwaltung_mit)

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

@ -11,8 +11,8 @@ Namespace DB
Private m_bAktiv As SqlBoolean Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iSequenz, m_iPersonalnr, m_iMutierer, m_iParentID As SqlInt32 Private m_iSequenz, m_iMutierer, m_iPersonalnr, m_iParentID As SqlInt32
Private m_sNextControlDate, m_sVerantwTKBMA, m_sHauptnutzer, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString Private m_sNextControlDate, m_sVerantwTKBMA, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
#End Region #End Region
@ -44,8 +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("@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("@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("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, 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)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then If m_bMainConnectionIsCreatedLocal Then
@ -102,8 +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("@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("@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("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, 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)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then If m_bMainConnectionIsCreatedLocal Then
@ -281,11 +279,6 @@ Namespace DB
Else Else
m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String)) m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
End If 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 End If
Return dtToReturn Return dtToReturn
Catch ex As Exception Catch ex As Exception
@ -493,16 +486,6 @@ Namespace DB
End Set End Set
End Property 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 Region
End Class 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.dll
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.xml 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.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.CoreCompileInputs.cache
E:\Software-Projekte\TKBDiverse\BEA\_DataClass\obj\Debug\_DataClass.vbproj.AssemblyReference.cache

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

@ -1,267 +0,0 @@
-- ================================================================================================================
-- 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.SqlTypes
Imports System.Data.SqlClient Imports System.Data.SqlClient
Namespace DB Namespace db
Public Class clsPersonal Public Class clsPersonal
Inherits clsDBInteractionBase Inherits clsDBInteractionBase
@ -11,8 +11,8 @@ Namespace DB
Private m_bAktiv As SqlBoolean Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iSequenz, m_iPersonalnr, m_iMutierer, m_iParentID As SqlInt32 Private m_iSequenz, m_iMutierer, m_iPersonalnr, m_iParentID As SqlInt32
Private m_sNextControlDate, m_sVerantwTKBMA, m_sHauptnutzer, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString Private m_sNextControlDate, m_sVerantwTKBMA, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
#End Region #End Region
@ -44,8 +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("@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("@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("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, 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)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then If m_bMainConnectionIsCreatedLocal Then
@ -102,8 +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("@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("@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("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, 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)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then If m_bMainConnectionIsCreatedLocal Then
@ -281,11 +279,6 @@ Namespace DB
Else Else
m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String)) m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
End If 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 End If
Return dtToReturn Return dtToReturn
Catch ex As Exception Catch ex As Exception
@ -493,16 +486,6 @@ Namespace DB
End Set End Set
End Property 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 Region
End Class End Class

Loading…
Cancel
Save