neu
This commit is contained in:
@@ -401,7 +401,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 " &
|
||||
.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 " &
|
||||
" 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
|
||||
@@ -421,6 +421,8 @@ Public Class usrcntlAktDetails
|
||||
.Columns("LetzterMitarbeiterId").Visible = False
|
||||
.Columns("tblSnd_VG_MA").Visible = False
|
||||
.Columns("tblSnd_BARzuKassieren").Visible = False
|
||||
.Columns("tblSnd_Fakturiert").Visible = False
|
||||
.Columns("AbfertigungsNr2").Visible = False
|
||||
|
||||
.Columns("tblSnd_PosUnterNr").Width = 20
|
||||
.Columns("tblSnd_PosUnterNr").HeaderText = "Nr."
|
||||
@@ -508,6 +510,16 @@ Public Class usrcntlAktDetails
|
||||
' .Columns.Add(c)
|
||||
'End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusFakturiert", "AVISO") Then
|
||||
c = New DataGridViewImageColumn
|
||||
c.Name = "SendungFakturiert"
|
||||
c.Image = My.Resources.fakturiertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
||||
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
||||
c.ToolTipText = "Fakturiert"
|
||||
.Columns.Add(c)
|
||||
End If
|
||||
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
||||
c = New DataGridViewImageColumn
|
||||
c.Name = "SenungUebernehmen"
|
||||
@@ -543,7 +555,7 @@ Public Class usrcntlAktDetails
|
||||
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
|
||||
Else 'Nomal
|
||||
r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
|
||||
If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
|
||||
If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
|
||||
End If
|
||||
|
||||
r.Cells("FilialenNr").Style.ForeColor = Color.White
|
||||
@@ -1481,6 +1493,31 @@ Public Class usrcntlAktDetails
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Case "SendungFakturiert"
|
||||
sendAktiv = False
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If FUNC.setSendungFakturiert(SendungsId, AvisoID) Then
|
||||
initDgvSendungen()
|
||||
End If
|
||||
'If dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value IsNot DBNull.Value AndAlso dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value IsNot DBNull.Value Then
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cSpeditionsbuch.existsSpedBuch(dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value, dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value) Then
|
||||
' Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value, dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value)
|
||||
' If f.ShowDialog(Me) = DialogResult.OK Then
|
||||
' initDgvSendungen()
|
||||
' Vermerke_anzeigen()
|
||||
' End If
|
||||
' Else
|
||||
' MsgBox("Speditionsbucheintrag existiert nicht!")
|
||||
' End If
|
||||
'Else
|
||||
' MsgBox("Filiale bzw. Abfertigungsnummer vergeben!")
|
||||
'End If
|
||||
|
||||
'sendAktiv = False
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
@@ -1532,10 +1569,12 @@ Public Class usrcntlAktDetails
|
||||
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
|
||||
' If dgvSendungen.Columns("SendungFakturiert") Is Nothing Then Return False
|
||||
|
||||
If dgvSendungen.Columns("SpeditionsbuchEintragen") Is Nothing Then Return False
|
||||
If dgvSendungen.Columns("KundeAnzeigen") Is Nothing Then Return False
|
||||
|
||||
' MsgBox("TEST1")
|
||||
|
||||
For Each r As DataGridViewRow In dgvSendungen.Rows
|
||||
Try
|
||||
@@ -1546,7 +1585,6 @@ Public Class usrcntlAktDetails
|
||||
DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).Value = My.Resources.speditionsbuchAktiv
|
||||
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 & ")"
|
||||
@@ -1573,6 +1611,12 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen"
|
||||
|
||||
If dgvSendungen.Columns("SendungFakturiert") IsNot Nothing Then
|
||||
If (r.Cells("tblSnd_Fakturiert").Value) IsNot DBNull.Value Then
|
||||
DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).Value = My.Resources.fakturiertAktiv
|
||||
End If
|
||||
DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).ToolTipText = "Sendung fakturiert"
|
||||
End If
|
||||
|
||||
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
||||
|
||||
Reference in New Issue
Block a user