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

Bugfix, weitere Änderungen T1 Bestätigung

Browse Source
This commit is contained in:
d.breimaier
2022-11-23 09:41:30 +01:00
parent 272f0edd64
commit 25c9ac0f42
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4052,13 +4052,17 @@ Public Class frmSendungsdetailsNEU
End Select End Select
If language = "DE" Then If language = "DE" Then
Mail.Subject = "T1 Bestätigung: | " Mail.Subject = "T1 Bestätigung | "
Else Else
Mail.Subject = "T1 Confirmation: | " Mail.Subject = "T1 Confirmation | "
End If End If
Mail.Subject &= AVISO.LKW_Nr & " | " & txtEmpfaenger.Text Mail.Subject &= AVISO.LKW_Nr
If txtEmpfaenger.Text <> "" Then Mail.Subject &= " | " & txtEmpfaenger.Text
If txtColli.Text <> "" AndAlso txtGewicht.Text <> "" Then Mail.Subject &= " | " & txtColli.Text & " Pk. " & txtGewicht.Text & " kg"
Dim firstTextHTMLDE = "" Dim firstTextHTMLDE = ""
@@ -4090,12 +4094,17 @@ Public Class frmSendungsdetailsNEU
Dim usrcntlGestellungsgarantieNew As New SDL.usrcntlGestellungsgarantie() Dim usrcntlGestellungsgarantieNew As New SDL.usrcntlGestellungsgarantie()
usrcntlGestellungsgarantieNew.cboSprache.changeItem(language.ToString) usrcntlGestellungsgarantieNew.cboSprache.Items.Clear()
usrcntlGestellungsgarantieNew.cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
usrcntlGestellungsgarantieNew.cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN"))
usrcntlGestellungsgarantieNew.cboSprache._value = language
usrcntlGestellungsgarantieNew.txtFirma.Text = usrcntl_NCTS.txtT1Verzollungsadresse.Text usrcntlGestellungsgarantieNew.txtFirma.Text = usrcntl_NCTS.txtT1Verzollungsadresse.Text
usrcntlGestellungsgarantieNew.txtAdresse1.Text = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text usrcntlGestellungsgarantieNew.txtAdresse1.Text = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text
usrcntlGestellungsgarantieNew.txtAdresse2.Text = usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & " " & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text usrcntlGestellungsgarantieNew.txtAdresse2.Text = usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & " " & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text
usrcntlGestellungsgarantieNew.txtBestimmungszollamt.Text = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text usrcntlGestellungsgarantieNew.txtBestimmungszollamt.Text = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text
usrcntlGestellungsgarantieNew.txtEORI.Text = usrcntl_NCTS.txtT1VerzollungsadresseEORI.Text
Dim PDF_PFad = SDL.FormularManagerNEU.genPDF(usrcntlGestellungsgarantieNew).Item(0).ToString Dim PDF_PFad = SDL.FormularManagerNEU.genPDF(usrcntlGestellungsgarantieNew).Item(0).ToString