cFakt, Kundenblatt, ustva, etc.

SDL/USTV/usrCntlUSTV.vb

@@ -23,6 +23,9 @@ Public Class usrCntlUSTV
             Me.kdNr = kdNr
             KdSearchBox1.KdNr = kdNr
             KdSearchBox1.Enabled = False
+            setInfo(kdNr)
+        Else
+            setInfo(KdSearchBox1.KdNr)
         End If
 
         btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
@@ -254,7 +257,7 @@ Public Class usrCntlUSTV
         Return whereStr
     End Function
 
-    Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub usrCntlUSTV_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ' btnFilter.Left = Panel4.Width - btnFilter.Width
         KdSearchBox1.initKdBox(Me.FindForm)
         If kdNr > 0 Then
@@ -924,5 +927,74 @@ Public Class usrCntlUSTV
 
 
 
+    End Sub
+
+    Private Sub setInfo(kdnr As Integer)
+
+        If kdnr > 0 Then
+            Panel1.BackColor = Color.FromArgb(240, 245, 255)
+            Dim KUNDE As New cKunde(kdnr)
+            Dim KUNDE_ERW As New cKundenErweitert(kdnr)
+            If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
+            If KUNDE_ERW.kde_AnmerkungVZ IsNot Nothing Then
+                lblVZhint.Text = KUNDE_ERW.kde_AnmerkungVZ
+            Else
+
+            End If
+            lblVZKunde.Visible = KUNDE_ERW.kde_VZ
+
+        Else
+
+            lblVZKunde.Visible = False
+            lblVZhint.Text = ""
+            Panel1.BackColor = Color.FromArgb(240, 245, 255)
+        End If
+
+    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False)
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then
+
+            Dim pruefdatum As Date = CDate(f.Datum)
+
+            Dim sqlKunde = ""
+            If KdSearchBox1.KdNr > 0 Then
+                sqlKunde = " AND A.AdressenNr = " & KdSearchBox1.KdNr
+            End If
+
+
+            Dim sqlQery = "SELECT 
+                            A.LandKz, 
+                            A.AdressenNr, 
+                            A.Ordnungsbegriff, 
+                            L.LandKz, 
+                            S.StNrFürRückerstattungUSt, 
+                            S.StNrGültigkeitsdatum, 
+                            CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, 
+                            CASE 
+                                WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 
+                                ELSE 0 
+                            END AS Gültig
+                        FROM 
+                            [Länderverzeichnis für die Außenhandelsstatistik] L
+                        INNER JOIN 
+                            (Adressen A 
+                            INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz
+                            INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) 
+                            ON L.LandNr = S.LandNr
+                        WHERE 
+                            S.StNrGültigkeitsdatum IS NOT NULL 
+                            AND W.MitgliedslandEU = 0 " & sqlKunde
+
+
+            Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
+
+            cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True)
+
+        End If
+
     End Sub
 End Class