Datumsabfrage, Sammelrechnunsdruck, offeneAnrtaege, etc.

VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb

@@ -1,10 +1,10 @@
 Imports System.Windows.Forms
-Imports GrapeCity.Viewer.Common.Model
-Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmDatumsabfrage
     Dim onlypastDate As Boolean = True
     Dim panelKunde As Boolean = False
+    Dim panelLaender As Boolean = False
+
 
     Sub New()
 
@@ -31,9 +31,13 @@ Public Class frmDatumsabfrage
         onlypastDate = _onlypastDate
         lbl.Text = title
         panelKunde = _mitKundengruppe
+        panelLaender = _mitKundengruppe
     End Sub
 
+
+
     Public Datum As Date = CDate(Now.ToShortDateString)
+    Public exceptedCountries As String
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Label1.Text = ""
 
@@ -43,6 +47,9 @@ Public Class frmDatumsabfrage
             Exit Sub
         End If
         Datum = CDate(dtp_date.Value)
+        If panelLaender Then
+            exceptedCountries = getValues()
+        End If
         Me.DialogResult = DialogResult.OK
     End Sub
 
@@ -54,12 +61,26 @@ Public Class frmDatumsabfrage
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
         Datum = CDate(Now.ToShortDateString)
+
+        If panelLaender Then
+            exceptedCountries = getValues()
+        End If
+
+
         Me.Close()
     End Sub
 
     Private Sub frmDatumsabfrage(sender As Object, e As EventArgs) Handles Me.Load
         dtp_date.Value = Now.ToShortDateString
         pnlKunde.Visible = panelKunde
+        MyPanel2.Visible = panelLaender
+
+        If panelLaender Then
+            Me.Height = 462
+        Else
+            Me.Height = 84
+        End If
+
         If panelKunde Then
 
             cboKundenkreis.Items.Clear()
@@ -74,10 +95,42 @@ Public Class frmDatumsabfrage
             cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  400000-499999: YU - KUNDEN", "400000-499999"))
         End If
 
+        If panelLaender Then
+            lbLaender.fillWithSQL(" select L.LandKz, L.LandBez 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 GROUP BY  L.LandBez, L.LandKz
+                order by L.LandBez ", , "FMZOLL")
+        End If
 
     End Sub
 
     Private Sub cbxKunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKunden.CheckedChanged
         cboKundenkreis.Enabled = cbxKunden.Checked
     End Sub
+
+    Private Sub btnAlle_Click(sender As Object, e As EventArgs) Handles btnAlle.Click
+        For i = 0 To lbLaender.Items.Count - 1
+            lbLaender.SetSelected(i, True)
+        Next
+    End Sub
+
+    Private Sub btnKeine_Click(sender As Object, e As EventArgs) Handles btnKeine.Click
+        For i = 0 To lbLaender.Items.Count - 1
+            lbLaender.SetSelected(i, False)
+        Next
+    End Sub
+
+    Function getValues() As String
+        Dim s As String = ""
+
+        For Each i As VERAG_PROG_ALLGEMEIN.MyListItem In lbLaender.Items
+            If Not lbLaender.GetSelected(lbLaender.Items.IndexOf(i)) Then
+                s += "'" & i.Value & "', "
+            End If
+        Next
+        If s.EndsWith(", ") Then
+            s = s.Substring(0, s.Length - 2)
+        End If
+        Return s
+    End Function
 End Class