From 25c9ac0f42fe51d58f2f50b5a944c8e144fed800 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 23 Nov 2022 09:41:30 +0100 Subject: [PATCH] =?UTF-8?q?Bugfix,=20weitere=20=C3=84nderungen=20=20T1=20B?= =?UTF-8?q?est=C3=A4tigung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/frmSendungsdetailsNEU.vb | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 80f272b..c167687 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -4052,13 +4052,17 @@ Public Class frmSendungsdetailsNEU End Select If language = "DE" Then - Mail.Subject = "T1 Bestätigung: | " + Mail.Subject = "T1 Bestätigung | " Else - Mail.Subject = "T1 Confirmation: | " + Mail.Subject = "T1 Confirmation | " 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 = "" @@ -4090,12 +4094,17 @@ Public Class frmSendungsdetailsNEU 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.txtAdresse1.Text = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text usrcntlGestellungsgarantieNew.txtAdresse2.Text = usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & " " & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.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