Verzollungsunterlagen

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

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
+                        genExcelKd(r("kde_KundenNr"), EZOLL_SQLSRV, folderpath, r("Name"))
-                            cnt += 1
+                        cnt += 1
                     Next
                 End If
             End If