ustv, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,5 +1,6 @@
 Imports System.IO
 Imports System.Reflection
+Imports System.ServiceModel.Configuration
 Imports System.Windows.Documents
 Imports itextsharp.text.pdf
 Imports itextsharp.text.pdf.parser
@@ -15,7 +16,7 @@ Public Class frmMDM_USTVAntrag
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim posTabisSelected As Boolean = True
     Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT", False)
-
+    Dim abfNrisSetManually As Boolean = False
     Dim von, bis As Date
 
     Sub New(UStVAn_ID)
@@ -296,7 +297,7 @@ Public Class frmMDM_USTVAntrag
         txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
 
         txtVZ.Text = If(USTV_ANTRAG.UStVAn_VZBetrag, "")
-        txtVZam.Text = If(USTV_ANTRAG.UStVAn_VZDatum, "")
+        txtVZam._value = If(USTV_ANTRAG.UStVAn_VZDatum, "")
         txtBezugsNr.Text = If(USTV_ANTRAG.UStVAn_BezugsNr, "")
         txtAbfNr.Text = If(USTV_ANTRAG.AbfertigungsNr, "")
         txtEingereichtAm.Text = If(USTV_ANTRAG.UStVAn_AntragEingereichtAm, "")
@@ -308,13 +309,10 @@ Public Class frmMDM_USTVAntrag
     Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag, Optional ADR As cAdressen = Nothing, Optional FIRMA As cFirmen = Nothing)
 
         If Me_Validate() Then
-            'lblFirma.Text = USTV_ANTRAG.UStVAn_Name
-            'lblLand.Text = Antrag_LandKz
+
             If IsDate(txtVon._value) Then USTV_ANTRAG.UStVAn_ReDatVon = CDate(txtVon._value)
             If IsDate(txtBis._value) Then USTV_ANTRAG.UStVAn_ReDatBis = CDate(txtBis._value)
 
-            'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy")
-
             USTV_ANTRAG.UStVAn_Status = cboStatus._value
             USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
             USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
@@ -335,7 +333,7 @@ Public Class frmMDM_USTVAntrag
             End If
 
             If txtVZam.Text <> "" AndAlso IsDate(txtVZam.Text) Then
-                USTV_ANTRAG.UStVAn_VZDatum = CDate(txtVZ.Text)
+                USTV_ANTRAG.UStVAn_VZDatum = CDate(txtVZam.Text)
             Else
                 USTV_ANTRAG.UStVAn_VZDatum = Nothing
             End If
@@ -344,8 +342,12 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr.Text
             USTV_ANTRAG.AbfertigungsNr = txtAbfNr.Text
 
-            If txtEingereichtAm.Text <> "" AndAlso IsDate(txtEingereichtAm.Text) Then USTV_ANTRAG.UStVAn_AntragEingereichtAm = txtEingereichtAm.Text
-            If txtEingereichtAm.Text = "" Then USTV_ANTRAG.UStVAn_AntragEingereichtAm = Nothing
+            If txtEingereichtAm.Text <> "" AndAlso IsDate(txtEingereichtAm.Text) Then
+                USTV_ANTRAG.UStVAn_AntragEingereichtAm = txtEingereichtAm.Text
+            ElseIf txtEingereichtAm.Text = "" Then
+                USTV_ANTRAG.UStVAn_AntragEingereichtAm = Nothing
+            End If
+
 
             If ADR IsNot Nothing Then
                 USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
@@ -2191,7 +2193,7 @@ Public Class frmMDM_USTVAntrag
 
         Else
 
-            dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & KundenNr & " and tblSteuernummern.LandKz ='" & Antrag_LandKz & "'", "FMZOLL")
+            dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & KundenNr & " and tblSteuernummern.LandKz ='" & lblLand.Text & "'", "FMZOLL")
 
             If dtSteuerNr.Rows.Count > 0 Then
                 txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
@@ -2344,8 +2346,8 @@ Public Class frmMDM_USTVAntrag
 
             Next
 
-
-            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, "Statement itemising VAT amounts relating to the period covered by this application", "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & USTV_ANTRAG.UStVAn_Name & "    " & "VAT in " & Antrag_LandKz & ": " & txtStNr.Text, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "E", True, True)
+            Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
+            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, "Statement itemising VAT amounts relating to the period covered by this application", "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & "   " & "VAT in " & Antrag_LandKz & ": " & txtStNr.Text, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "E", True, True)
         End If
 
 
@@ -2463,8 +2465,21 @@ Public Class frmMDM_USTVAntrag
     Private Sub txtAbfNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfNr.TextChanged
 
         If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 10000 AndAlso USTV_ANTRAG.AbfertigungsNr <> txtAbfNr.Text AndAlso Not btnAbfertigungsNrVergeben.Visible Then
-            Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
-            If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag mit dieser Nr!") : Exit Sub
+            Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, txtAbfNr.Text, 0)
+            If spedBuch.hasEntry Then
+                MsgBox("Es existiert bereits ein Speditionsbucheintrag mit dieser Nr!")
+                Exit Sub
+            Else
+                If Not abfNrisSetManually Then
+                    abfNrisSetManually = True
+                    txtAbfNr.Text = CInt(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Year.ToString.Substring(2, 2)) * 1000000 + CInt(txtAbfNr.Text)
+
+                End If
+                Exit Sub
+
+            End If
+        Else
+            abfNrisSetManually = False
         End If
 
     End Sub