From 8ab9fbae0e20bd0845ad3a230f47d9929edbfbfa Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 18 Jun 2025 13:47:30 +0200 Subject: [PATCH] Sendungsopt, Kundendatenblatt --- Aviso/Classes/cSendungsoptions.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Aviso/Classes/cSendungsoptions.vb b/Aviso/Classes/cSendungsoptions.vb index ffe7cfa..ef92c33 100644 --- a/Aviso/Classes/cSendungsoptions.vb +++ b/Aviso/Classes/cSendungsoptions.vb @@ -443,7 +443,7 @@ Public Class SendungOptions Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung - If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle) Then + If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle, SENDUNG.tblSnd_Zollsystem_Land) Then ZOLLANMELDUNG = Nothing End If