From 6678f3b26504417a10833a531e56fc9eae5b6041 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 8 Aug 2024 09:55:57 +0200
Subject: [PATCH] Verzollungsunterlagen

---
 .../usrcntlVerzollungsunterlagen.vb           | 23 ++++++++++++++++++-
 .../usrCntlAuswertungenEV_Veranlagungen.vb    |  4 ++--
 2 files changed, 24 insertions(+), 3 deletions(-)

diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
index 4b8e5dd5..4c87beaa 100644
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
@@ -199,7 +199,6 @@
             End If
         End If
 
-
     End Sub
 
     Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
@@ -436,5 +435,27 @@
             Case Else : txtFirma._UseFIRMA = "VERAG" : KdInAuftrag._UseFIRMA = "VERAG"
         End Select
 
+        setAnlagenText()
+
+    End Sub
+
+    Private Sub setAnlagenText()
+
+        Select Case cboFirma._value
+            Case "AMBAR"
+                txtAnlage1.Text = "Original Präferenz"
+                txtAnlage2.Text = "Lieferanten-Rechnung"
+                txtAnlage3.Text = "Zollbeleg"
+
+            Case Else
+
+                txtAnlage1.Text = "Zollbeleg"
+                txtAnlage2.Text = "Lieferanten-Rechnung"
+                txtAnlage3.Text = "Original Präferenz"
+
+        End Select
+
+
+
     End Sub
 End Class
diff --git a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
index f406a236..8412ff68 100644
--- a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
+++ b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
@@ -47,8 +47,8 @@ Public Class usrCntlAuswertungenEV_Veranlagungen
                         If cboEzollSRV.Text = "UNISPED" Then
                             EZOLL_SQLSRV = "EZOLL_UNISPED"
                         End If
-                        genExcelKd(r("kde_KundenNr"), EZOLL_SQLSRV, folderpath, r("Name")) Then
-                            cnt += 1
+                        genExcelKd(r("kde_KundenNr"), EZOLL_SQLSRV, folderpath, r("Name"))
+                        cnt += 1
                     Next
                 End If
             End If