neu
This commit is contained in:
@@ -919,6 +919,14 @@ Public Class usrcntlAktDetails
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
|
||||
Case "90"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 93
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "13"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 14
|
||||
@@ -1022,6 +1030,17 @@ Public Class usrcntlAktDetails
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
End If
|
||||
|
||||
Case "82"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.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)
|
||||
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
||||
'Vermerke_aktualisieren()
|
||||
init = True ' Vermerke_anzeigen(e.RowIndex)
|
||||
|
||||
End Select
|
||||
loaded = False
|
||||
' Dim tmpIndex = -1
|
||||
@@ -1089,6 +1108,11 @@ Public Class usrcntlAktDetails
|
||||
optionCell.Value = "CMR erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
|
||||
End If
|
||||
Case 90
|
||||
If Not existCodeInGridVermerke(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
|
||||
|
||||
@@ -1165,6 +1189,11 @@ Public Class usrcntlAktDetails
|
||||
optionCell.Value = "ATB-Nr. erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen."
|
||||
End If
|
||||
Case 82
|
||||
If Not existCodeInGridVermerke(83) Then
|
||||
optionCell.Value = "DE-ZOLL fertig"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -2602,9 +2631,11 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click, Button15.Click
|
||||
pnlDetailsRechts.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim loadAttachRg = True ' (sender Is Button15)
|
||||
|
||||
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge
|
||||
For Each l In ANH_LIST
|
||||
@@ -2624,8 +2655,91 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
|
||||
If path <> "" Then Process.Start(path)
|
||||
'DIGITALE ABFERTIGUNG:
|
||||
If (sender Is Button15) Then
|
||||
Try
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||
|
||||
For Each s In SENDUNG_LIST
|
||||
If If(s.tblSnd_Vorpapier, "") = "" Then
|
||||
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
|
||||
Exit Sub : pnlDetailsRechts.Cursor = Cursors.Default
|
||||
End If
|
||||
Next
|
||||
AVISO.LOAD_Vorpapiere()
|
||||
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
|
||||
|
||||
Dim paths As New List(Of String)
|
||||
For Each VP In VP_Enum
|
||||
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
|
||||
Next
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB"
|
||||
Mail.To = "abfertigung.za-suben@zoll.bund.de"
|
||||
End Select
|
||||
|
||||
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
|
||||
addVPList(MAIL_BODY, VP_Enum)
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True) & "</div>"
|
||||
Mail.Subject = MAIL_SUBJ
|
||||
|
||||
For Each p In paths
|
||||
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
|
||||
Next
|
||||
|
||||
|
||||
If loadAttachRg Then
|
||||
If cbxLZT1.Visible AndAlso cbxLZT1.Checked Then
|
||||
'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
|
||||
For Each l In ANH_LIST
|
||||
Select Case l.anh_Art.ToString.ToUpper
|
||||
Case "VORPAPIER" ', "CMR"
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
|
||||
For Each s In SENDUNG_LIST
|
||||
Select Case s.tblSnd_Abfertigungsart_ID
|
||||
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
|
||||
Case "5", "45", "28" 'T1, Ü-T1, DE-FISK
|
||||
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
|
||||
For Each l In ANH_LIST_SND
|
||||
Select Case l.anh_Art.ToString.ToUpper
|
||||
Case "RECHNUNG", "HANDELSRECHNUNG"
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End Select
|
||||
Next
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Else
|
||||
Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
|
||||
If path <> "" Then
|
||||
|
||||
Process.Start(path)
|
||||
End If
|
||||
End If
|
||||
|
||||
Panel4.Visible = False
|
||||
pnlDetailsRechts.Cursor = Cursors.Default
|
||||
End Sub
|
||||
@@ -2662,6 +2776,15 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
|
||||
Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
|
||||
Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
|
||||
For Each VP In VP_Enum
|
||||
Platzhalter &= "<tr><td>" & VP & "</td><td></t></tr>"
|
||||
Next
|
||||
Platzhalter &= "</table>"
|
||||
MAIL_BODY = MAIL_BODY.Replace("%Platzhalter%", Platzhalter)
|
||||
End Sub
|
||||
Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click
|
||||
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
|
||||
Dim index As Integer = -1
|
||||
|
||||
Reference in New Issue
Block a user