AN-1082
This commit is contained in:
+26
-3
@@ -38,6 +38,8 @@ Partial Class frmMultiDelete
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.cbboxGrund = New System.Windows.Forms.ComboBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
@@ -85,6 +87,8 @@ Partial Class frmMultiDelete
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.Label10)
|
||||
Me.GroupBox1.Controls.Add(Me.cbboxGrund)
|
||||
Me.GroupBox1.Controls.Add(Me.txtGrund)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -96,11 +100,10 @@ Partial Class frmMultiDelete
|
||||
'
|
||||
'txtGrund
|
||||
'
|
||||
Me.txtGrund.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.txtGrund.Location = New System.Drawing.Point(3, 16)
|
||||
Me.txtGrund.Location = New System.Drawing.Point(3, 50)
|
||||
Me.txtGrund.Multiline = True
|
||||
Me.txtGrund.Name = "txtGrund"
|
||||
Me.txtGrund.Size = New System.Drawing.Size(1160, 81)
|
||||
Me.txtGrund.Size = New System.Drawing.Size(1160, 47)
|
||||
Me.txtGrund.TabIndex = 0
|
||||
'
|
||||
'GroupBox2
|
||||
@@ -195,6 +198,23 @@ Partial Class frmMultiDelete
|
||||
Me.Label9.TabIndex = 39
|
||||
Me.Label9.Text = "Legende"
|
||||
'
|
||||
'cbboxGrund
|
||||
'
|
||||
Me.cbboxGrund.FormattingEnabled = True
|
||||
Me.cbboxGrund.Location = New System.Drawing.Point(112, 20)
|
||||
Me.cbboxGrund.Name = "cbboxGrund"
|
||||
Me.cbboxGrund.Size = New System.Drawing.Size(1042, 21)
|
||||
Me.cbboxGrund.TabIndex = 1
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(6, 23)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(88, 13)
|
||||
Me.Label10.TabIndex = 2
|
||||
Me.Label10.Text = "Standard-Gründe"
|
||||
'
|
||||
'frmMultiDelete
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -213,6 +233,7 @@ Partial Class frmMultiDelete
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.btnOK)
|
||||
Me.Controls.Add(Me.btnCancel)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmMultiDelete"
|
||||
Me.Text = "Mehrfach-Löschung / Aufhebung"
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -239,4 +260,6 @@ Partial Class frmMultiDelete
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents cbboxGrund As ComboBox
|
||||
End Class
|
||||
|
||||
@@ -157,4 +157,21 @@
|
||||
<data name="DokList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{BackColor:Control;}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style14{}Footer{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style27{}Style26{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>288</Height><CaptionStyle parent="Heading" me="Style10" /><EditorStyle parent="Editor" me="Style2" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style27" /><FooterStyle parent="Footer" me="Style4" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style3" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style6" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style5" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1158, 288</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1158, 288</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||
AAD///8AAAAAAAcAAAAAAAAAAAAAAAAAAAAHiAAAAAAAAAAAAAAAAAAAf/+IAAAAAAAAAAAAAAAAAH//
|
||||
/4gAAAAAAAAAAAAAAAf/////iAAAAAAAAAAAAAAH//////+IAAAAAAAAAAAAf//////3/4gAAAAAAAAA
|
||||
AH///////4f/gAAAAAAAAAf/////9w//iAAAAAAAAAAH/4f////3D/gAAAAAAAAAf///h//3//iAiAAA
|
||||
AAAAAH/4f////4f/gP+IAAAAAAf///h//3//iA///4gAAAAH9//////4f/gP/4f/iAAAf4VX//9w//iA
|
||||
////h/+AAH91VVf//3D/gP+I///4AAf/VV9VV///iA//iIiP+AAHf4dV/1d4//gP94iIiIAAAAd/91VX
|
||||
d3iA//iIiI+AAAAH93/3d3d/gP//iHiIAAAAf4Inf/h3iA////iI+AAAAH8ij/d/+PgP//h//4AAAAf4
|
||||
Io//d3+A////+H+AAAAH8iKP9//3cP//h//4AAAAf/IiL/d////3D/+H+AAAAHf4Iij/93////cP/4AA
|
||||
AAAAd/gi//83f///9w+AAAAAAAB3////M/d////4AAAAAAAAAHf//z+AB3//+AAAAAAAAAAAd///gAAH
|
||||
f4AAAAAAAAAAAAB3+AAAAAdwAAAAAAAAAAAAAHcAAAAAAAAAAAD/j////4P///8A////AD///gAP//4A
|
||||
A//8AAD//AAA//gAAf/4AAD/8AAAP/AAAA/gAAAD4AAAAMAAAADAAAABgAAAAYAAAAPgAAAD4AAAB8AA
|
||||
AAfAAAAPgAAAD4AAAB8AAAAfAAAAP8AAAD/wAAB//ACAf/8A4P//wfj///H//w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -54,8 +54,16 @@ Public Class frmMultiDelete
|
||||
End Sub
|
||||
|
||||
Private Sub frmMultiDelete_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Cursor = Cursors.WaitCursor
|
||||
dt.Rows.Clear()
|
||||
dt.Columns.Clear()
|
||||
Me.cbboxGrund.Items.Clear()
|
||||
Dim gruende As DataTable = Get_Grund()
|
||||
For Each r As DataRow In gruende.Rows
|
||||
cbboxGrund.Items.Add(r("grund").ToString)
|
||||
Next
|
||||
cbboxGrund.SelectedIndex = 0
|
||||
Me.txtGrund.Text = ""
|
||||
|
||||
dt.TableName = "DoksToDelete"
|
||||
dt.Columns.Add("Funktion")
|
||||
@@ -91,14 +99,15 @@ Public Class frmMultiDelete
|
||||
Me.DokList.Splits(0).DisplayColumns(6).Width = 0
|
||||
Me.DokList.Splits(0).DisplayColumns(7).Width = 0
|
||||
|
||||
Label1.BackColor = Color.GreenYellow
|
||||
Label1.BackColor = Color.LightGray
|
||||
Label5.Text = "Nicht abgeschlossenes Dokument löschen"
|
||||
Label4.BackColor = Color.LightPink
|
||||
Label8.Text = "Fehlende Berechtigungen um das Dokument zu löschen/aufheben"
|
||||
Label2.BackColor = Color.LightGreen
|
||||
Label6.Text = "Abgeschlossenes Dokument löschen"
|
||||
Label3.BackColor = Color.LightSeaGreen
|
||||
Label7.Text = "Abgeschlossenes Dokument aufheben"
|
||||
Label4.BackColor = Color.LightPink
|
||||
Label8.Text = "Fehlende Berechtigungen um das Dokument zu löschen/aufheben"
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Function check_dok(ByVal dokumenttypnr As String, partnernr As String, dokumentid As String, vertraulich As Integer, ByVal verantwortlich As Integer, aktivesdokument As Integer) As String
|
||||
@@ -145,6 +154,26 @@ Public Class frmMultiDelete
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function Get_Grund() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_grund"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
Try
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@grundtyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 99))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
dtToReturn.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Function get_contextmenu_ber(ByVal dokumentid As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.sp_contextmenu"
|
||||
@@ -199,7 +228,7 @@ Public Class frmMultiDelete
|
||||
e.CellStyle.BackColor = Color.LightPink
|
||||
End If
|
||||
If Me.DokList.Columns(0).CellValue(e.Row).ToString = "Löschen" Then
|
||||
e.CellStyle.BackColor = Color.GreenYellow
|
||||
e.CellStyle.BackColor = Color.LightGray
|
||||
End If
|
||||
If Me.DokList.Columns(0).CellValue(e.Row).ToString = "Löschung" Then
|
||||
e.CellStyle.BackColor = Color.LightGreen
|
||||
@@ -211,4 +240,8 @@ Public Class frmMultiDelete
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cbboxGrund_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxGrund.SelectedIndexChanged
|
||||
Me.txtGrund.Text = Me.cbboxGrund.Text
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user