From 01ffb03f1bedd54dedd77a1fa73f4524d250febd Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 29 Sep 2025 13:15:28 +0200 Subject: [PATCH] Mailsender --- MailSender/MAILSender.vb | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 636694a..10bd8ff 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -2774,11 +2774,29 @@ Module Mail Try Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then - Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + + + '------------------------------------------------------- + + Dim RechnungsString = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Dim rows() As String = RechnungsString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries) + + For Each row As String In rows + + If IsDate(row) AndAlso row.Length = 10 Then + RechnungsString = RechnungsString.Replace(row.ToString, "") + End If + + Next + + Blatt.Range("E" & cnt).Value = RechnungsString.Trim + + '------------------------------------------------------- + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then - Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.ATCMRN + Blatt.Range("C" & cnt).Value = ZOLLANMELDUNG.ATCMRN End If End If