Vermerke (AAS)
This commit is contained in:
@@ -443,6 +443,7 @@ Public Class usrcntlAktDetails
|
||||
.Columns("Datum").Width = 125 '110
|
||||
.Columns("Datum").HeaderText = "Datum"
|
||||
.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
||||
.Columns("DatumValue").Visible = False
|
||||
|
||||
|
||||
.Columns("Hinweis_Vermerk_Anzeige").MinimumWidth = 150
|
||||
@@ -868,10 +869,10 @@ Public Class usrcntlAktDetails
|
||||
End Sub
|
||||
|
||||
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
|
||||
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
|
||||
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,78,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
|
||||
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
||||
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
|
||||
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] " &
|
||||
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
|
||||
" order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
|
||||
Private Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
|
||||
If Not loaded Then Exit Sub
|
||||
@@ -1335,37 +1336,37 @@ Public Class usrcntlAktDetails
|
||||
|
||||
Select Case CInt(r.Cells("VermerkeCode").Value)
|
||||
Case 1
|
||||
If Not existCodeInGridVermerke(gridvermerke, 2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Auftrag erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen."
|
||||
End If
|
||||
Case 3
|
||||
If Not existCodeInGridVermerke(gridvermerke, 4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Rechnung erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen."
|
||||
End If
|
||||
Case 5
|
||||
If Not existCodeInGridVermerke(gridvermerke, 6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "LS erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen."
|
||||
End If
|
||||
Case 7
|
||||
If Not existCodeInGridVermerke(gridvermerke, 8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "ATR erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen."
|
||||
End If
|
||||
Case 9
|
||||
If Not existCodeInGridVermerke(gridvermerke, 10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Vollmacht erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen."
|
||||
End If
|
||||
Case 11
|
||||
If Not existCodeInGridVermerke(gridvermerke, 12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "CMR erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
|
||||
End If
|
||||
Case 90
|
||||
If Not existCodeInGridVermerke(gridvermerke, 93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Packliste erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen."
|
||||
End If
|
||||
@@ -1385,32 +1386,32 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
End If
|
||||
Case 17
|
||||
If Not existCodeInGridVermerke(gridvermerke, 18) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 18) Then
|
||||
optionCell.Value = "DE-ZOLL fertig"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
|
||||
End If
|
||||
Case 19
|
||||
If Not existCodeInGridVermerke(gridvermerke, 20) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 20) Then
|
||||
optionCell.Value = "AT-ZOLL fertig"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen."
|
||||
End If
|
||||
Case 25
|
||||
If Not existCodeInGridVermerke(gridvermerke, 30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Dokument erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen."
|
||||
End If
|
||||
Case 31
|
||||
If Not existCodeInGridVermerke(gridvermerke, 32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Vorbereitung abgeschlossen"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen."
|
||||
End If
|
||||
Case 33
|
||||
If Not existCodeInGridVermerke(gridvermerke, 34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "ATA-Nr. erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen."
|
||||
End If
|
||||
Case 36
|
||||
If Not existCodeInGridVermerke(gridvermerke, 37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Kontaktdaten erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
|
||||
End If
|
||||
@@ -1447,46 +1448,46 @@ Public Class usrcntlAktDetails
|
||||
End Select
|
||||
End If
|
||||
Case 53
|
||||
If Not existCodeInGridVermerke(gridvermerke, 54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Ü-Dok erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
|
||||
End If
|
||||
Case 55
|
||||
If Not existCodeInGridVermerke(gridvermerke, 56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Rg-Best. erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
|
||||
End If
|
||||
Case 57
|
||||
If Not existCodeInGridVermerke(gridvermerke, 58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Dispoliste erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
|
||||
End If
|
||||
|
||||
Case 74
|
||||
If Not existCodeInGridVermerke(gridvermerke, 75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Frachtkosten erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Frachtkosten erhalten' einzutragen."
|
||||
End If
|
||||
|
||||
Case 76
|
||||
If Not existCodeInGridVermerke(gridvermerke, 77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Absend.best. erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
|
||||
End If
|
||||
|
||||
Case 96
|
||||
If Not existCodeInGridVermerke(gridvermerke, 97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "T1 Bestätigung erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1 Bestätigung erhalten' einzutragen."
|
||||
End If
|
||||
|
||||
Case 80
|
||||
If Not existCodeInGridVermerke(gridvermerke, 81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "ATB-Nr. erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen."
|
||||
End If
|
||||
Case 82
|
||||
If Not existCodeInGridVermerke(gridvermerke, 83) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 83) Then
|
||||
optionCell.Value = "DE-ZOLL fertig"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
|
||||
End If
|
||||
@@ -1499,17 +1500,17 @@ Public Class usrcntlAktDetails
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen."
|
||||
End If
|
||||
Case 103
|
||||
If Not existCodeInGridVermerke(gridvermerke, 104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Gewicht/Packstücke erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Gewicht/Packstücke erhalten' einzutragen."
|
||||
End If
|
||||
Case 105
|
||||
If Not existCodeInGridVermerke(gridvermerke, 106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Zolltarifnummer erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Zolltarifnummer erhalten' einzutragen."
|
||||
End If
|
||||
Case 107
|
||||
If Not existCodeInGridVermerke(gridvermerke, 108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Kostenbestätigung erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen."
|
||||
End If
|
||||
@@ -1547,28 +1548,33 @@ Public Class usrcntlAktDetails
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Shared Function existCodeInGridVermerke(gridVermerke As DataGridView, code As Integer, Optional text As String = "") As Boolean
|
||||
|
||||
For Each r As DataGridViewRow In gridVermerke.Rows
|
||||
If r.Cells("Geloescht").Value = False Then
|
||||
If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
|
||||
Select Case code
|
||||
Case 59
|
||||
Return True
|
||||
Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
|
||||
If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
|
||||
Return True
|
||||
End If
|
||||
Case 32
|
||||
If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then
|
||||
Return True
|
||||
End If
|
||||
Case Else
|
||||
Return True
|
||||
End Select
|
||||
End If
|
||||
Shared Function existCodeInGridVermerke(row As DataGridViewRow, gridVermerke As DataGridView, code As Integer, Optional text As String = "") As Boolean
|
||||
If row.Cells("Datum").Value >= "09.09.2024" Then
|
||||
If row.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
For Each r As DataGridViewRow In gridVermerke.Rows
|
||||
If r.Cells("Geloescht").Value = False Then
|
||||
If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
|
||||
Select Case code
|
||||
Case 59
|
||||
Return True
|
||||
Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
|
||||
If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
|
||||
Return True
|
||||
End If
|
||||
Case 32
|
||||
If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then
|
||||
Return True
|
||||
End If
|
||||
Case Else
|
||||
Return True
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
@@ -1764,7 +1770,8 @@ Public Class usrcntlAktDetails
|
||||
conMenuVermerke.Show(Cursor.Position)
|
||||
|
||||
ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
|
||||
toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
|
||||
toolVkReminder.Visible = True '(gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
|
||||
' toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkIDAufgehoben").Value Is DBNull.Value)
|
||||
|
||||
End If
|
||||
Case 3
|
||||
@@ -3667,8 +3674,10 @@ Public Class usrcntlAktDetails
|
||||
Dim AvisoId_Tmp = gridVermerke.SelectedRows(0).Cells("AvisoId").Value
|
||||
Dim SendungID_Tmp = gridVermerke.SelectedRows(0).Cells("SendungID").Value
|
||||
|
||||
|
||||
If sender Is toolVkReminder Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Reminder geschickt", 78,, gridVermerke.SelectedRows(0).Cells("VorauskasseId").Value)
|
||||
Dim VermerkTxt = gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "REMINDER: " & VermerkTxt, 78,, gridVermerke.SelectedRows(0).Cells("VorauskasseId").Value)
|
||||
ElseIf sender Is ToolUeberweisungsBeleg Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Überweisungsbeleg erhalten.", 79,, gridVermerke.SelectedRows(0).Cells("VorauskasseId").Value)
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user