USTVA

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.9.4")>
-<Assembly: AssemblyFileVersion("1.3.9.4")>
+<Assembly: AssemblyVersion("1.3.9.5")>
+<Assembly: AssemblyFileVersion("1.3.9.5")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -17,6 +17,7 @@ Public Class frmMDM_USTVAntrag
     Dim abfNrisSetManually As Boolean = False
     Dim von, bis As Date
     Dim func As New cMDMFunctionsAllgemein
+    Dim dTLANDEU As New DataTable
 
     Sub New(UStVAn_ID)
 
@@ -576,7 +577,7 @@ Public Class frmMDM_USTVAntrag
         setinfofields()
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnAbfertigungsNrVergeben.Visible = True
-        initScanUSTVA()
+
 
     End Sub
 
@@ -1600,6 +1601,8 @@ Public Class frmMDM_USTVAntrag
 
         End If
 
+        initScanUSTVA()
+
     End Sub
 
     Sub initPosition(UStVPo_ID)
@@ -2668,6 +2671,10 @@ 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()
+
         With spedBuch
             .Abfertigungsdatum = Today()
             .AvisUhrzeit = Now()
@@ -3051,10 +3058,11 @@ Public Class frmMDM_USTVAntrag
 
 
     Private Sub initScanUSTVA()
-
-        scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID)
-        btnPDFauslesen.Enabled = scanUSTVA.getDS().da_id > 0
-        cbxKIUploaddelete.Enabled = btnPDFauslesen.Enabled
+        If USTV_ANTRAG IsNot Nothing Then
+            scanUSTVA.INIT(USTV_ANTRAG.UStVAn_KuNr, "MDM", "USTVA_KI_" & USTV_ANTRAG.UStVAn_ID)
+            btnPDFauslesen.Enabled = scanUSTVA.getDS().da_id > 0
+            cbxKIUploaddelete.Enabled = btnPDFauslesen.Enabled
+        End If
 
 
     End Sub