Kunden, Fremdrechnungen, etc.

SDL/mdm/usrcntlFremdrechnungen.Designer.vb

@@ -297,9 +297,9 @@ Partial Class usrcntlFremdrechnungen
         Me.cbx.AutoSize = True
         Me.cbx.Location = New System.Drawing.Point(8, 107)
         Me.cbx.Name = "cbx"
-        Me.cbx.Size = New System.Drawing.Size(178, 17)
+        Me.cbx.Size = New System.Drawing.Size(169, 17)
         Me.cbx.TabIndex = 52
-        Me.cbx.Text = "MWST-relevenate Rechnungen"
+        Me.cbx.Text = "Original-Rechnung an Kunden"
         Me.cbx.UseVisualStyleBackColor = True
         '
         'Label4

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -15,6 +15,9 @@ Public Class usrcntlFremdrechnungen
     Dim aktLieferant As String = "ALLE"
     Dim fullyPainted = False
 
+    Dim dtkeineMWST As DataTable
+    Dim dtKundeMWST As DataTable
+
 
     Private Sub usrCntlDaten_Load(sender As Object, e As EventArgs) Handles Me.Load
 
@@ -72,6 +75,11 @@ Public Class usrcntlFremdrechnungen
 
         KUNDE = kundenSQL.getKundeByKdNr(kdNr)
 
+        If KUNDE IsNot Nothing Then
+            dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland from tblKeineMWSTErstattung", "FMZOLL")
+            dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL")
+        End If
+
         SET_SDL("")
 
         dgvInitWait = False
@@ -312,7 +320,7 @@ Public Class usrcntlFremdrechnungen
         dgvLFRechnung.Width = 100
         dgvLFRechnung.Height = 100
         dgvLFRechnung.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
-        dgvLFRechnung.Rows(0).Frozen = True
+        'dgvLFRechnung.Rows(0).Frozen = True
 
 
         initDGVWidth() 'vor Filter, damit richtige Größe
@@ -355,12 +363,44 @@ Public Class usrcntlFremdrechnungen
                 Case "ALLE" : If alle Then SQLWhere &= " AND temp.Nettobetrag <> 0" 'ALLE
             End Select
 
+
+            'Dim counter = 0
+            'For Each n In List
+            '    gsnr &= n.ToString()
+            '    counter = counter + 1
+            '    If (List.Count <> 0 And counter <> List.Count) Then
+            '        gsnr &= ","
+            '    End If
+
+
+
             '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
+            If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                Dim counter = 0
+                Dim landBez As String = ""
+                For Each row As DataRow In dtkeineMWST.Rows
+                    landBez = "'" & row.Item("Erstattungsland") & "'"
+                    counter = counter + 1
+                    If (dtkeineMWST.Rows.Count <> 0 And counter <> dtkeineMWST.Rows.Count) Then landBez &= ","
+                Next
+                SQLWhere &= " AND " & land & " not in (" & landBez & ")"
+            End If
 
 
 
             '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
 
+            If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
+                Dim counter = 0
+                Dim landBez As String = ""
+                For Each row As DataRow In dtKundeMWST.Rows
+                    landBez = "'" & row.Item("LandKz") & "'"
+                    counter = counter + 1
+                    If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+                Next
+                SQLWhere &= " AND " & land & " not in (" & landBez & ")"
+            End If
+
 
             'nicht NOTWENDIG!
             'Select Case KUNDE.LandKz
@@ -371,7 +411,7 @@ Public Class usrcntlFremdrechnungen
 
         End If
 
-        Return SQLWhere
+            Return SQLWhere
 
     End Function
 
@@ -406,10 +446,32 @@ Public Class usrcntlFremdrechnungen
 
             '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
 
+            If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                Dim counter = 0
+                Dim landBez As String = ""
+                For Each row As DataRow In dtkeineMWST.Rows
+                    landBez = "'" & row.Item("Erstattungsland") & "'"
+                    counter = counter + 1
+                    If (dtkeineMWST.Rows.Count <> 0 And counter <> dtkeineMWST.Rows.Count) Then landBez &= ","
+                Next
+                SQLWhere &= " AND " & land & " not in (" & landBez & ")"
+            End If
+
 
 
             '4.	Rechnungen der Länder, in denen der Kunde selber MWST beantragt
 
+            If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
+                Dim counter = 0
+                Dim landBez As String = ""
+                For Each row As DataRow In dtKundeMWST.Rows
+                    landBez = "'" & row.Item("LandKz") & "'"
+                    counter = counter + 1
+                    If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+                Next
+                SQLWhere &= " AND " & land & " not in (" & landBez & ")"
+            End If
+
         End If
 
         Return SQLWhere