201020
This commit is contained in:
@@ -402,7 +402,7 @@ Public Class usrcntlAktDetails
|
||||
With dgvSendungen
|
||||
' Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1)
|
||||
.Columns.Clear()
|
||||
.DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2 " &
|
||||
.DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA " &
|
||||
" FROM tblSendungen WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID
|
||||
|
||||
' If .RowCount = 0 Then .Columns.Clear() : Exit Sub
|
||||
@@ -417,6 +417,8 @@ Public Class usrcntlAktDetails
|
||||
.Columns("tblSnd_Fremdspedition").Visible = False
|
||||
.Columns("tblSnd_FremdspeditionText").Visible = False
|
||||
.Columns("tblSnd_Vorgeschrieben").Visible = False
|
||||
.Columns("tblSnd_AbklaerungTR").Visible = False
|
||||
.Columns("tblSnd_AbklaerungTR_MA").Visible = False
|
||||
.Columns("tblSnd_Vorbereitet").Visible = False
|
||||
.Columns("LetzterMitarbeiter").Visible = False
|
||||
.Columns("LetzterMitarbeiterId").Visible = False
|
||||
@@ -432,7 +434,7 @@ Public Class usrcntlAktDetails
|
||||
' .Columns("QS_Abfertigungsart_Bezeichnung").Width = 130
|
||||
' .Columns("QS_Abfertigungsart_Bezeichnung").HeaderText = "Art"
|
||||
|
||||
.Columns("tblSnd_Empfaenger").MinimumWidth = 150
|
||||
.Columns("tblSnd_Empfaenger").MinimumWidth = 130
|
||||
.Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
|
||||
.Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
@@ -477,6 +479,15 @@ Public Class usrcntlAktDetails
|
||||
'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
||||
'c.ToolTipText = "Vermerk eintragen"
|
||||
'.Columns.Add(c)
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbklaerungTR", "AVISO") Then
|
||||
c = New DataGridViewImageColumn
|
||||
c.Name = "StatusAbklaerungTR"
|
||||
c.Image = My.Resources.abklaerungTR_Inaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
||||
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
||||
c.ToolTipText = "Status 'AbklärungTR' eintragen"
|
||||
c.HeaderText = "TR"
|
||||
.Columns.Add(c)
|
||||
End If
|
||||
|
||||
c = New DataGridViewImageColumn
|
||||
c.Name = "StatusVorbereitetQS"
|
||||
@@ -741,6 +752,10 @@ Public Class usrcntlAktDetails
|
||||
txtMAinfo_Vorgeschrieben.Text = "-"
|
||||
txtMAinfo_Vorgeschrieben.Tag = ""
|
||||
|
||||
picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv
|
||||
txtMAinfo_AbklaerungTR.Text = "-"
|
||||
txtMAinfo_AbklaerungTR.Tag = ""
|
||||
|
||||
If dgvSendungen.SelectedRows.Count > 0 Then
|
||||
sendwhere = " AND VermerkArt='S' AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
|
||||
|
||||
@@ -748,6 +763,14 @@ Public Class usrcntlAktDetails
|
||||
'---------------------------------------------------------
|
||||
'MA INFO
|
||||
'---------------------------------------------------------
|
||||
'AbklaerungTR
|
||||
pnlMAInfo.Visible = True
|
||||
If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then
|
||||
picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Aktiv
|
||||
txtMAinfo_AbklaerungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value & "'", "ADMIN", "-")
|
||||
txtMAinfo_AbklaerungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value
|
||||
End If
|
||||
|
||||
'Vorbereitet
|
||||
pnlMAInfo.Visible = True
|
||||
If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
|
||||
@@ -1613,6 +1636,14 @@ Public Class usrcntlAktDetails
|
||||
' initDgvSendungen()
|
||||
' Me.Cursor = Cursors.Default
|
||||
' End If
|
||||
Case "StatusAbklaerungTR"
|
||||
sendAktiv = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If FUNC.setSendungAbklaerungTR(SendungsId, AvisoID) Then
|
||||
initDgvSendungen()
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Case "StatusVorgeschrieben"
|
||||
sendAktiv = False
|
||||
@@ -1729,6 +1760,8 @@ Public Class usrcntlAktDetails
|
||||
If Not loaded Then Return False
|
||||
If dgvSendungen.DataSource Is Nothing Then Return False
|
||||
If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False
|
||||
If dgvSendungen.Columns("tblSnd_AbklaerungTR") Is Nothing Then Return False
|
||||
'If dgvSendungen.Columns("StatusAbklaerungTR") Is Nothing Then Return False
|
||||
If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False
|
||||
If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False
|
||||
If dgvSendungen.Columns("SenungWeiterleiten") Is Nothing Then Return False
|
||||
@@ -1748,6 +1781,16 @@ Public Class usrcntlAktDetails
|
||||
DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).Value = My.Resources.speditionsbuchAktiv
|
||||
End If
|
||||
|
||||
If dgvSendungen.Columns("StatusAbklaerungTR") IsNot Nothing Then
|
||||
If r.Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then
|
||||
|
||||
DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).Value = My.Resources.abklaerungTR_Aktiv
|
||||
DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_AbklaerungTR").Value & ")"
|
||||
Else
|
||||
DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' eintragen"
|
||||
End If
|
||||
End If
|
||||
|
||||
If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
|
||||
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
|
||||
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
|
||||
@@ -2883,7 +2926,7 @@ Public Class usrcntlAktDetails
|
||||
ArrowDown_ShowHide()
|
||||
End Sub
|
||||
|
||||
Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.Click
|
||||
Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.Click, txtMAinfo_AbklaerungTR.Click
|
||||
If sender.tag IsNot DBNull.Value AndAlso sender.tag IsNot Nothing Then
|
||||
If IsNumeric(sender.tag) Then
|
||||
Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(sender.tag)
|
||||
@@ -2901,5 +2944,6 @@ Public Class usrcntlAktDetails
|
||||
MA.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user