Update Vermerke + Dokumente link
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
||||
|
||||
Imports System.IO
|
||||
@@ -463,6 +463,8 @@ Public Class usrcntlAktDetails
|
||||
.Columns("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen
|
||||
.Columns("VermerkIDAufgehoben").Visible = False 'tblSnd_Empfaengernicht anzeigen
|
||||
.Columns("Kategorie").Visible = False 'tblSnd_Empfaengernicht anzeigen
|
||||
If .Columns.Contains("PaarId") Then .Columns("PaarId").Visible = False
|
||||
If .Columns.Contains("PaarBezeichnung") Then .Columns("PaarBezeichnung").Visible = False
|
||||
|
||||
.Columns("Datum").Width = 125 '110
|
||||
.Columns("Datum").HeaderText = "Datum"
|
||||
@@ -879,22 +881,23 @@ Public Class usrcntlAktDetails
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
|
||||
Public Shared vermerkehSQL As String = " SELECT TOP 1000 Vermerke.[VermerkID],Vermerke.[AvisoID], Vermerke.[SendungID],Vermerke.[VermerkeCode], Vermerke.[Datum],Vermerke.[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Vermerke.Hervorheben,Vermerke.Geloescht, VermerkeCodes.PaarId, VC2.Bezeichnung as PaarBezeichnung, " &
|
||||
"
|
||||
CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1
|
||||
CASE WHEN Vermerke.VermerkeCode IS NULL OR VermerkeCodes.VermerkBezeichnungFixAnzeigen = 1
|
||||
THEN
|
||||
CASE
|
||||
WHEN LEN(Hinweis_Vermerk) > 200
|
||||
THEN LEFT(Hinweis_Vermerk, 200) + '...'
|
||||
ELSE Hinweis_Vermerk
|
||||
WHEN LEN(Vermerke.Hinweis_Vermerk) > 200
|
||||
THEN LEFT(Vermerke.Hinweis_Vermerk, 200) + '...'
|
||||
ELSE Vermerke.Hinweis_Vermerk
|
||||
END
|
||||
ELSE
|
||||
VermerkeCodes.Bezeichnung
|
||||
END as [Hinweis_Vermerk_Anzeige]
|
||||
,[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue, Kategorie" &
|
||||
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
||||
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
|
||||
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
|
||||
,Vermerke.[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,Vermerke.[Mitarbeiter],Vermerke.VorauskasseId,Vermerke.SMSId,Vermerke.VermerkIDAufgehoben, Vermerke.Datum as DatumValue, VermerkeCodes.Kategorie" &
|
||||
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON Vermerke.[VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
||||
" LEFT JOIN VermerkeCodes VC2 ON VermerkeCodes.PaarId = VC2.VermerkCodeId " &
|
||||
" LEFT JOIN tblSendungen ON Vermerke.[SendungID]=tblSendungen.tblSnd_SendungID " &
|
||||
" WHERE Vermerke.AvisoID = [[AvisoId]] [[sendwhere]] AND Vermerke.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
|
||||
@@ -1111,234 +1114,60 @@ Public Class usrcntlAktDetails
|
||||
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
||||
init = False
|
||||
Select Case CStr(gridVermerke.Rows(RowIndex).Cells("VermerkeCode").Value)
|
||||
Case "1"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 2
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)
|
||||
' initDgvSendungen()
|
||||
|
||||
Case "3"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 4
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
Dim vermerkCode As Integer = CInt(gridVermerke.Rows(RowIndex).Cells("VermerkeCode").Value)
|
||||
Dim paarId As Integer = 0
|
||||
If gridVermerke.Columns.Contains("PaarId") AndAlso gridVermerke.Rows(RowIndex).Cells("PaarId").Value IsNot DBNull.Value Then
|
||||
paarId = CInt(gridVermerke.Rows(RowIndex).Cells("PaarId").Value)
|
||||
End If
|
||||
Dim paarBez As String = ""
|
||||
If gridVermerke.Columns.Contains("PaarBezeichnung") AndAlso gridVermerke.Rows(RowIndex).Cells("PaarBezeichnung").Value IsNot DBNull.Value Then
|
||||
paarBez = CStr(gridVermerke.Rows(RowIndex).Cells("PaarBezeichnung").Value)
|
||||
End If
|
||||
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "5"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 6
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "7"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 8
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "9"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 10
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "11"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 12
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
|
||||
Case "90"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 93
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "13"
|
||||
Select Case vermerkCode
|
||||
Case 46
|
||||
init = False
|
||||
Case 13
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" OrElse VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Vermerk_VKErhalten", "AVISO") Then
|
||||
|
||||
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 14
|
||||
If gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
|
||||
myVermerk.VorauskasseId = gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value
|
||||
If paarId > 0 Then
|
||||
myVermerk.Hinweis_Vermerk = paarBez
|
||||
myVermerk.VermerkCodeId = paarId
|
||||
If gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
|
||||
myVermerk.VorauskasseId = gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value
|
||||
End If
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True
|
||||
End If
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
Else
|
||||
MsgBox("Keine Berechtigung. Bitte wenden Sie sich an die Buchhaltung oder Abteilungsleitung.")
|
||||
End If
|
||||
Case Else
|
||||
If paarId > 0 Then
|
||||
myVermerk.Hinweis_Vermerk = paarBez
|
||||
myVermerk.VermerkCodeId = paarId
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True
|
||||
|
||||
Case "17"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
||||
myVermerk.VermerkCodeId = 18
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
||||
'Vermerke_aktualisieren()
|
||||
init = True ' Vermerke_anzeigen(RowIndex)
|
||||
|
||||
Case "19"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
||||
myVermerk.VermerkCodeId = 20
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "25"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 30
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "31"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
|
||||
myVermerk.VermerkCodeId = 32
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "33"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 34
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "46"
|
||||
' MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
|
||||
init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "36"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 37
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "53"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 54
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "55"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 56
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "57"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 58
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
|
||||
Case "74"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 75
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
Case "76"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 77
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
Case "80"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
|
||||
myVermerk.VermerkCodeId = 81
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
|
||||
'Ankunft
|
||||
If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
|
||||
If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
Select Case vermerkCode
|
||||
Case 17
|
||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||
Case 80
|
||||
If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
|
||||
If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
End If
|
||||
Case 82
|
||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AVISO.AvisoID, "AVISO")
|
||||
AvisoStatusFunctions.printFinish(AVISO)
|
||||
End Select
|
||||
End If
|
||||
|
||||
Case "82"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
||||
myVermerk.VermerkCodeId = 83
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AVISO.AvisoID, "AVISO")
|
||||
|
||||
AvisoStatusFunctions.printFinish(AVISO)
|
||||
|
||||
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
||||
'Vermerke_aktualisieren()
|
||||
init = True ' Vermerke_anzeigen(RowIndex)
|
||||
Case "96"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 97
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
Case "101"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
|
||||
myVermerk.VermerkCodeId = 102
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "103"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 104
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "105"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 106
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "107"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 108
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
|
||||
|
||||
Case "118"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 119
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||
|
||||
End Select
|
||||
|
||||
End If
|
||||
@@ -1375,88 +1204,17 @@ Public Class usrcntlAktDetails
|
||||
r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout)
|
||||
End If
|
||||
If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then
|
||||
Dim vermerkCode As Integer = CInt(r.Cells("VermerkeCode").Value)
|
||||
Dim paarId As Integer = 0
|
||||
If gridvermerke.Columns.Contains("PaarId") AndAlso r.Cells("PaarId").Value IsNot DBNull.Value Then
|
||||
paarId = CInt(r.Cells("PaarId").Value)
|
||||
End If
|
||||
Dim paarBez As String = ""
|
||||
If gridvermerke.Columns.Contains("PaarBezeichnung") AndAlso r.Cells("PaarBezeichnung").Value IsNot DBNull.Value Then
|
||||
paarBez = CStr(r.Cells("PaarBezeichnung").Value)
|
||||
End If
|
||||
|
||||
Select Case CInt(r.Cells("VermerkeCode").Value)
|
||||
Case 1
|
||||
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(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(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(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(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(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(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
|
||||
Case 13
|
||||
|
||||
|
||||
If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then
|
||||
|
||||
If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
|
||||
optionCell.Value = "Vorauskasse erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
|
||||
End If
|
||||
Else
|
||||
If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
|
||||
optionCell.Value = "Vorauskasse erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
|
||||
End If
|
||||
End If
|
||||
Case 17
|
||||
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(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(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(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(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(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
|
||||
Select Case vermerkCode
|
||||
Case 46
|
||||
If r.Cells("SMSId").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("SMSId").Value) Then
|
||||
Dim SMS As New VERAG_PROG_ALLGEMEIN.cSMS(r.Cells("SMSId").Value)
|
||||
@@ -1464,10 +1222,6 @@ Public Class usrcntlAktDetails
|
||||
optionCell.Style.BackColor = Color.White
|
||||
optionCell.LinkColor = Color.Black
|
||||
|
||||
'Select Case MSG.Status
|
||||
' Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
|
||||
|
||||
|
||||
Select Case SMS.sms_Status
|
||||
Case -1 : optionCell.Value = ""
|
||||
Case com.esendex.sdk.core.MessageStatus.Submitted, com.esendex.sdk.core.MessageStatus.Sent, com.esendex.sdk.core.MessageStatus.Connecting, com.esendex.sdk.core.MessageStatus.Acknowledged, com.esendex.sdk.core.MessageStatus.Scheduled
|
||||
@@ -1489,77 +1243,31 @@ Public Class usrcntlAktDetails
|
||||
'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
|
||||
End Select
|
||||
End If
|
||||
Case 53
|
||||
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."
|
||||
Case 13
|
||||
If paarId > 0 Then
|
||||
If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then
|
||||
If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
|
||||
optionCell.Value = paarBez
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
|
||||
End If
|
||||
Else
|
||||
If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
|
||||
optionCell.Value = paarBez
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Case 55
|
||||
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(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(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(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(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(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(r, gridvermerke, 83) Then
|
||||
optionCell.Value = "DE-ZOLL fertig"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
|
||||
End If
|
||||
|
||||
Case 101
|
||||
|
||||
If r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
|
||||
' If Not existCodeInGridVermerke(gridvermerke ,102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Erledigt"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen."
|
||||
If paarId > 0 AndAlso r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
|
||||
optionCell.Value = paarBez
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
|
||||
End If
|
||||
Case 103
|
||||
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(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(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
|
||||
Case 118
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, 119, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "T1/T2 Draft OK erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1/T2 Draft OK ' einzutragen."
|
||||
Case Else
|
||||
If paarId > 0 Then
|
||||
If Not existCodeInGridVermerke(r, gridvermerke, paarId, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = paarBez
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user