fakt. Pos zurücksetzen, etc.
This commit is contained in:
69
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
69
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
@@ -113,7 +113,6 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
|
||||
Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
|
||||
@@ -124,7 +123,6 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
|
||||
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
@@ -135,10 +133,14 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.VorauszahlungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FakturiertZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ncs_Belege = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
|
||||
Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
|
||||
Me.pnlBottom.SuspendLayout()
|
||||
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -1515,14 +1517,6 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.Panel2.Size = New System.Drawing.Size(1438, 263)
|
||||
Me.Panel2.TabIndex = 1
|
||||
'
|
||||
'UstCntlUSTV_AntragPosition1
|
||||
'
|
||||
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
|
||||
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
|
||||
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
|
||||
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
@@ -1668,14 +1662,6 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
|
||||
Me.pnlErstattungsdetails.TabIndex = 0
|
||||
'
|
||||
'UstCntlUSTV_AntragErstattungen1
|
||||
'
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
|
||||
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
@@ -1733,15 +1719,15 @@ Partial Class frmMDM_USTVAntrag
|
||||
'
|
||||
'cns_vorauszahlen
|
||||
'
|
||||
Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem})
|
||||
Me.cns_vorauszahlen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VorauszahlungToolStripMenuItem, Me.FakturiertZurücksetzenToolStripMenuItem})
|
||||
Me.cns_vorauszahlen.Name = "cns_vorauszahlen"
|
||||
Me.cns_vorauszahlen.Size = New System.Drawing.Size(152, 26)
|
||||
Me.cns_vorauszahlen.Size = New System.Drawing.Size(212, 70)
|
||||
'
|
||||
'VorauszahlungToolStripMenuItem
|
||||
'
|
||||
Me.VorauszahlungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktivierenToolStripMenuItem, Me.DeaktivierenToolStripMenuItem})
|
||||
Me.VorauszahlungToolStripMenuItem.Name = "VorauszahlungToolStripMenuItem"
|
||||
Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(151, 22)
|
||||
Me.VorauszahlungToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
|
||||
Me.VorauszahlungToolStripMenuItem.Text = "Vorauszahlung"
|
||||
'
|
||||
'AktivierenToolStripMenuItem
|
||||
@@ -1756,31 +1742,60 @@ Partial Class frmMDM_USTVAntrag
|
||||
Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
|
||||
Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
|
||||
'
|
||||
'FakturiertZurücksetzenToolStripMenuItem
|
||||
'
|
||||
Me.FakturiertZurücksetzenToolStripMenuItem.Name = "FakturiertZurücksetzenToolStripMenuItem"
|
||||
Me.FakturiertZurücksetzenToolStripMenuItem.Size = New System.Drawing.Size(211, 22)
|
||||
Me.FakturiertZurücksetzenToolStripMenuItem.Text = "abgerechnet zurücksetzen"
|
||||
'
|
||||
'ncs_Belege
|
||||
'
|
||||
Me.ncs_Belege.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
|
||||
Me.ncs_Belege.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.FakturiertToolStripMenuItem})
|
||||
Me.ncs_Belege.Name = "cns_vorauszahlen"
|
||||
Me.ncs_Belege.Size = New System.Drawing.Size(181, 48)
|
||||
Me.ncs_Belege.Size = New System.Drawing.Size(196, 48)
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ToolStripMenuItem3})
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(195, 22)
|
||||
Me.ToolStripMenuItem1.Text = "Vorauszahlung"
|
||||
'
|
||||
'ToolStripMenuItem2
|
||||
'
|
||||
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
|
||||
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(138, 22)
|
||||
Me.ToolStripMenuItem2.Text = "aktivieren"
|
||||
'
|
||||
'ToolStripMenuItem3
|
||||
'
|
||||
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
|
||||
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(138, 22)
|
||||
Me.ToolStripMenuItem3.Text = "deaktivieren"
|
||||
'
|
||||
'FakturiertToolStripMenuItem
|
||||
'
|
||||
Me.FakturiertToolStripMenuItem.Name = "FakturiertToolStripMenuItem"
|
||||
Me.FakturiertToolStripMenuItem.Size = New System.Drawing.Size(195, 22)
|
||||
Me.FakturiertToolStripMenuItem.Text = "Fakturiert zurücksetzen"
|
||||
Me.FakturiertToolStripMenuItem.Visible = False
|
||||
'
|
||||
'UstCntlUSTV_AntragPosition1
|
||||
'
|
||||
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
|
||||
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
|
||||
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
|
||||
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
|
||||
'
|
||||
'UstCntlUSTV_AntragErstattungen1
|
||||
'
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
|
||||
Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
|
||||
Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
|
||||
'
|
||||
'frmMDM_USTVAntrag
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -1942,4 +1957,6 @@ Partial Class frmMDM_USTVAntrag
|
||||
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
|
||||
Friend WithEvents cbxSicherheit As CheckBox
|
||||
Friend WithEvents FakturiertToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents FakturiertZurücksetzenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -3424,9 +3424,9 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
If sender Is dgvUSTVPositionen Then
|
||||
If dgvUSTVPositionen.SelectedRows.Count > 0 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
cns_vorauszahlen.Show(Cursor.Position)
|
||||
End If
|
||||
|
||||
cns_vorauszahlen.Show(Cursor.Position)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -3439,61 +3439,73 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Private Sub AktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktivierenToolStripMenuItem.Click
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen setzen?", vbYesNoCancel) Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
|
||||
If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen setzen?", vbYesNoCancel) Then
|
||||
|
||||
If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
|
||||
|
||||
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
|
||||
If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then
|
||||
|
||||
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
|
||||
|
||||
If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = False Then
|
||||
USTV_POS.UStVPo_VZ = True
|
||||
USTV_POS.SAVE()
|
||||
End If
|
||||
|
||||
If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = False Then
|
||||
USTV_POS.UStVPo_VZ = True
|
||||
USTV_POS.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
Next
|
||||
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0)", "FMZOLL") 'Aktualisierung
|
||||
|
||||
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0)", "FMZOLL") 'Aktualisierung
|
||||
|
||||
init()
|
||||
init()
|
||||
End If
|
||||
Else
|
||||
MsgBox("NICHT BERECHTIGT")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DeaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeaktivierenToolStripMenuItem.Click
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktiveren?", vbYesNoCancel) Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
|
||||
If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktiveren?", vbYesNoCancel) Then
|
||||
|
||||
If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then 'nur noch nicht abgerech. dürfen gesetzt werden!
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
|
||||
|
||||
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
|
||||
If IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) OrElse r.Cells("UStVPo_VZ_RKID").Value Is Nothing Then 'nur noch nicht abgerech. dürfen gesetzt werden!
|
||||
|
||||
If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = True Then
|
||||
USTV_POS.UStVPo_VZ = False
|
||||
USTV_POS.SAVE()
|
||||
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
|
||||
|
||||
If IsDBNull(USTV_POS.UStVPo_VZ) OrElse USTV_POS.UStVPo_VZ = True Then
|
||||
USTV_POS.UStVPo_VZ = False
|
||||
USTV_POS.SAVE()
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
'würde prüfung nochmals für alle machen, performance allerdings nicht gut....
|
||||
'SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull(UStVPo_VZ_RKID,0) <> 0)")
|
||||
|
||||
Dim count_nichtAbgerVZ As Integer = -1
|
||||
count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
|
||||
If count_nichtAbgerVZ = 0 Then
|
||||
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL")
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
'würde prüfung nochmals für alle machen, performance allerdings nicht gut....
|
||||
'SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull(UStVPo_VZ_RKID,0) <> 0)")
|
||||
|
||||
Dim count_nichtAbgerVZ As Integer = -1
|
||||
count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
|
||||
If count_nichtAbgerVZ = 0 Then
|
||||
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL")
|
||||
init()
|
||||
End If
|
||||
|
||||
init()
|
||||
End If
|
||||
Else
|
||||
|
||||
MsgBox("NICHT BERECHTIGT")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub initScanUSTVA()
|
||||
@@ -3548,8 +3560,41 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FakturiertZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FakturiertZurücksetzenToolStripMenuItem.Click
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", Me) = 0 OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die bereits " & IIf(dgvUSTVPositionen.SelectedRows.Count > 1, " abgerechneten Positionen ", " abgerechnete Position ") & "zurücksetzen?" & vbNewLine & "Dies darf nur durchgeführt werden wenn der ursprüngliche Beleg storniert wurde!", vbYesNoCancel, "ACHTUNG") Then
|
||||
Dim isSet As Boolean = False
|
||||
For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
|
||||
|
||||
If Not IsDBNull(r.Cells("UStVPo_VZ").Value) AndAlso Not IsDBNull(r.Cells("UStVPo_VZ_RKID").Value) AndAlso IsNumeric(r.Cells("UStVPo_VZ_RKID").Value) Then 'nur noch nicht abgerech. dürfen gesetzt werden!
|
||||
|
||||
Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen(UStVAn_ID, r.Cells("UStVPo_ID").Value)
|
||||
|
||||
If Not IsDBNull(USTV_POS.UStVPo_VZ_RKID) AndAlso USTV_POS.UStVPo_VZ = True Then
|
||||
USTV_POS.UStVPo_VZ_RKID = Nothing
|
||||
isSet = USTV_POS.SAVE()
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If isSet Then SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 1 WHERE [UStVAn_ID] IN (SELECT distinct([UStVAn_ID]) FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0)", "FMZOLL") 'Aktualisierung
|
||||
|
||||
init()
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
|
||||
MsgBox("NICHT BERECHTIGT")
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnuItemBelegeOpenPDF_Clicked(sender As Object, e As EventArgs)
|
||||
ncs_Belege.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
Reference in New Issue
Block a user