edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Korrigiert:Sendungsvermerke kaputt

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-05-09 08:27:43 +02:00
parent 586b5e99a9
commit dbecdaf662
3 changed files with 79 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
Aviso/usrcntlAktDetails.vb
View File

@@ -1581,10 +1581,84 @@ Public Class usrcntlAktDetails
End Sub
Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvSendungen.CellMouseClick
If e.Button = MouseButtons.Right Then
If dgvSendungen.Columns.Count > 0 Then
If dgvSendungen.Columns(e.ColumnIndex).Name = "SenungUebernehmen" Then
Exit Sub
'Dim LIST_FIRMEN() As String = {"VERAG", "UNISPED", "IMEX", "FRONTOFFICE"}
'Dim C As New ContextMenuStrip
'For Each FirmaTMP In LIST_FIRMEN
' Dim item_Firma As New ToolStripMenuItem
' item_Firma.Text = FirmaTMP
' Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
' Dim dt = sql.loadDgvBySql("SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname FROM [ADMIN].[dbo].[tblMitarbeiter]
' where mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL') and mit_gekuendigt=0
' and mit_abteilung IN ('QS','ZOLL','DISPO') and [mit_TESTonly]=0 AND [mit_pseudoUser]=0
' order by mit_nname,mit_vname ", "AVISO")
' For Each r In dt.Rows
' Dim item As New ToolStripMenuItem
' item.Tag = r("mit_id")
' item.Text = r("MAname")
' AddHandler item.Click, Sub()
' FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID, item.Tag, True)
' reload(AvisoID)
' End Sub
' item_Firma.DropDownItems.Add(item)
' Next
' C.Items.Add(item_Firma)
'Next
'C.Show(System.Cursor.Position)
Else
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick, dgvSendungen.CellMouseClick
If AVISO.Abgeschlossen Then Exit Sub
loaded = False
' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub
' dgvSendungen.ClearSelection()
dgvSendungen.Rows(e.RowIndex).Selected = True
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
' frmGrayOut.Opacity = 0.5
' frmGrayOut.WindowState = FormWindowState.Maximized
Dim tmpIndex = dgvSendungen.SelectedRows(0).Index
Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex
Dim frmGrayOut = grayoutForm()
Dim sv As New frmAddSendungsvermerkShort(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
sv.Location = Me.PointToClient(Cursor.Position)
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2
initDgvSendungen() ' wg. Anzahl Vermerke
sv.Close()
If dgvSendungen.RowCount > tmpIndex Then
'dgvSendungen.ClearSelection()
'dgvSendungen.Rows(tmpIndex).Selected = True
dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll
End If
loaded = True
Vermerke_anzeigen()
End If
End If
End If
End Sub
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'gridMyAviso.ClearSelection() 'WARUM?
@@ -2231,9 +2305,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs)
End Sub
Private Sub lblHinweis_Click(sender As Object, e As EventArgs)