neu
This commit is contained in:
@@ -691,6 +691,8 @@ Public Class usrcntlAktDetails
|
||||
End With
|
||||
End Select
|
||||
|
||||
ArrowDown_ShowHide()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -740,7 +742,7 @@ Public Class usrcntlAktDetails
|
||||
|
||||
|
||||
Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
|
||||
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter]" &
|
||||
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter]" &
|
||||
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
||||
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
|
||||
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
|
||||
@@ -952,6 +954,7 @@ Public Class usrcntlAktDetails
|
||||
End Sub
|
||||
|
||||
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
|
||||
|
||||
If dgvSendungen.RowCount = 0 Then Exit Sub
|
||||
Try
|
||||
If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
|
||||
@@ -965,78 +968,78 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then
|
||||
|
||||
Select Case CInt(r.Cells("VermerkeCode").Value)
|
||||
Case 1
|
||||
If Not existCodeInGridVermerke(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(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(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(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(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(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 13
|
||||
Select Case CInt(r.Cells("VermerkeCode").Value)
|
||||
Case 1
|
||||
If Not existCodeInGridVermerke(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(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(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(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(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(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 13
|
||||
If Not existCodeInGridVermerke(14) And Not existCodeInGridVermerke(59) Then
|
||||
optionCell.Value = "Vorauskasse erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
|
||||
End If
|
||||
Case 17
|
||||
If Not existCodeInGridVermerke(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(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(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(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(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(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
|
||||
Case 53
|
||||
If Not existCodeInGridVermerke(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(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(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(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(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(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(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
|
||||
Case 53
|
||||
If Not existCodeInGridVermerke(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(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."
|
||||
@@ -1059,14 +1062,38 @@ Public Class usrcntlAktDetails
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub ArrowDown_ShowHide()
|
||||
picArrowDown.Visible = False
|
||||
If dgvSendungen.RowCount = 0 Then Exit Sub
|
||||
Select Case tbcntlVermerke.SelectedIndex
|
||||
Case 0, 1, 2
|
||||
Try
|
||||
Dim showFirst = False
|
||||
For Each r As DataGridViewRow In gridVermerke.Rows
|
||||
If r.Displayed Then showFirst = True
|
||||
If showFirst Then
|
||||
If r.Cells("Hervorheben").Value = "1" AndAlso Not r.Displayed Then
|
||||
picArrowDown.Visible = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("ERR")
|
||||
End Try
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean
|
||||
|
||||
@@ -2341,6 +2368,7 @@ Public Class usrcntlAktDetails
|
||||
f.KundenNr = AVISO.Frächter_KdNr
|
||||
f.Kunde = AVISO.Frächter
|
||||
f.AvisoId = AVISO.AvisoID
|
||||
f.Kennzeichen = AVISO.LKW_Nr
|
||||
End If
|
||||
If f.ShowDialog(Me) = DialogResult.OK Then
|
||||
If f.SMS IsNot Nothing Then
|
||||
@@ -2743,5 +2771,8 @@ Public Class usrcntlAktDetails
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub gridVermerke_Scroll(sender As Object, e As ScrollEventArgs) Handles gridVermerke.Scroll
|
||||
ArrowDown_ShowHide()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user