Mailversand, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,7 +1,7 @@
 Imports System.IO
 Imports System.Reflection
 Imports System.Windows.Documents
-Imports iTextSharp.text.pdf
+Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -578,6 +578,7 @@ Public Class frmMDM_USTVAntrag
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnAbfertigungsNrVergeben.Visible = True
 
+        initScanUSTVA()
 
     End Sub
 
@@ -2671,9 +2672,8 @@ Public Class frmMDM_USTVAntrag
             If Not vbYes = MsgBox("Der Erstattungsbetrag beträgt 0 EUR." & vbNewLine & "Fortfahren?", vbYesNo) Then Exit Sub
         End If
 
-        'dTLANDEU = (New SQL).loadDgvBySql("select LandKz, MitgliedslandEU from Währungstabelle where LandKz is not null", "FMZOLL")
-
-        'Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = Antrag_LandKz).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
+        dTLANDEU = (New SQL).loadDgvBySql("select LandKz, MitgliedslandEU from Währungstabelle where LandKz is not null", "FMZOLL")
+        Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = USTV_ANTRAG.UStVAn_LandKz).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
 
         With spedBuch
             .Abfertigungsdatum = Today()
@@ -2681,7 +2681,7 @@ Public Class frmMDM_USTVAntrag
             .Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
             .ErfassungsNr = USTV_ANTRAG.UStVAn_ID
             .AnzahlSonstiges = 1
-            .Abfertigungsart = 10
+            .Abfertigungsart = IIf(isEU, 114, 115)
             .Abfertigungsanzahl = 1
             .Packstücke = "Mehrwertsteuerrückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
             .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr
@@ -2969,9 +2969,11 @@ Public Class frmMDM_USTVAntrag
         cnS_KIUPLOAD.Hide()
         Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
 
-        If item IsNot Nothing Then
+        If item IsNot Nothing AndAlso scanUSTVA IsNot Nothing Then
+
+            Dim daid As Integer = 0
+            If scanUSTVA.getDS() IsNot Nothing Then daid = scanUSTVA.getDS().da_id
 
-            Dim daid As Integer = scanUSTVA.getDS().da_id
 
             If daid > 0 Then
 
@@ -3062,6 +3064,8 @@ Public Class frmMDM_USTVAntrag
             scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID)
             btnPDFauslesen.Enabled = scanUSTVA.getDS().da_id > 0
             cbxKIUploaddelete.Enabled = btnPDFauslesen.Enabled
+        Else
+            cbxKIUploaddelete.Enabled = False
         End If