edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sendungsdet.

Browse Source
This commit is contained in:
d.breimaier
2024-01-09 08:51:42 +01:00
parent 2a895d0946 47ff9efbad
commit ec6b42706e
5 changed files with 108 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -3697,7 +3697,7 @@ Public Class frmSendungsdetailsNEU
Select Case FormularArt
Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
Case SDL.FormularManagerArten.Qualitaetskontrolle : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO})
' Case SDL.FormularManagerArten.Qualitaetskontrolle : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO})
Case SDL.FormularManagerArten.Importaviso
Dim f As SDL.frmFormulare = Nothing
SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
@@ -4075,7 +4075,7 @@ Public Class frmSendungsdetailsNEU
'ATA FREMD!!!
If sender Is ToolStripMenuItem15 Then
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text.Replace(vbNewLine, " ")
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender, "") <> "" Then Mail.Subject &= " | Absender: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "") <> "" Then Mail.Subject &= " | Gewicht: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht
@@ -4101,7 +4101,7 @@ Public Class frmSendungsdetailsNEU
Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
TextHTML &= "<br>"
TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text & ", bitte um Vorbereitung der Verzollung. <br>"
TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text.Replace(vbNewLine, " ") & ", bitte um Vorbereitung der Verzollung. <br>"
TextHTML &= "<br>"
TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
TextHTML &= "<br>"
@@ -4388,7 +4388,7 @@ Public Class frmSendungsdetailsNEU
'ATA FREMD!!!
If sender Is ToolStripMenuItem15 Then
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text.Replace(vbNewLine, " ")
Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
@@ -6597,14 +6597,22 @@ Public Class frmSendungsdetailsNEU
ContextMenuStrip3.Show(Cursor.Position)
End Sub
Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click
Try
FormularArt = SDL.FormularManagerArten.Qualitaetskontrolle
cntxtVorauskasse.Show(Cursor.Position)
'Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click
' Try
' FormularArt = SDL.FormularManagerArten.Qualitaetskontrolle
' cntxtVorauskasse.Show(Cursor.Position)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
Private Sub EmpfängerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EmpfängerToolStripMenuItem1.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, SENDUNG_LIST(CURRENT_INDEX), AVISO})
End Sub
Private Sub AuftraggeberToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AuftraggeberToolStripMenuItem1.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber, SENDUNG_LIST(CURRENT_INDEX), AVISO})
End Sub
End Class