Kunden, Fremdrechnungen, etc.

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -42,6 +42,9 @@ Partial Class usrcntlKundeBearbeitenFull
         Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.tbcntrDetails = New System.Windows.Forms.TabControl()
         Me.tbAbfertigung = New System.Windows.Forms.TabPage()
         Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -52,11 +55,9 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
         Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
         Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
-        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
         Me.tbcntrAbf = New System.Windows.Forms.TabControl()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
         Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
         Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
         Me.Label18 = New System.Windows.Forms.Label()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -70,7 +71,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
         Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.tbAufschub = New System.Windows.Forms.TabPage()
-        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.Label78 = New System.Windows.Forms.Label()
         Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
@@ -95,7 +95,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.tbFiskal = New System.Windows.Forms.TabPage()
-        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
         Me.tbVerrechnung = New System.Windows.Forms.TabPage()
         Me.pnlverag360 = New System.Windows.Forms.Panel()
         Me.txtAnmerkungAntraege = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -235,6 +234,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.Label22 = New System.Windows.Forms.Label()
         Me.txtBank_Blz = New System.Windows.Forms.TextBox()
         Me.tbUmsatzsteuer = New System.Windows.Forms.TabPage()
+        Me.btnMWSTspeichern = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.dgvMWST = New System.Windows.Forms.DataGridView()
         Me.txtUStIDGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtUStID = New System.Windows.Forms.TextBox()
         Me.Button3 = New System.Windows.Forms.Button()
@@ -362,7 +363,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbKontakt = New System.Windows.Forms.TabControl()
         Me.TabPage10 = New System.Windows.Forms.TabPage()
         Me.TabPage11 = New System.Windows.Forms.TabPage()
-        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
         Me.Label50 = New System.Windows.Forms.Label()
         Me.Label68 = New System.Windows.Forms.Label()
         Me.pnlNeukunde = New System.Windows.Forms.Panel()
@@ -388,6 +388,11 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
+        Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
+        Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
+        Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
         Me.tbcntrDetails.SuspendLayout()
         Me.tbAbfertigung.SuspendLayout()
         Me.tbcntrAbf.SuspendLayout()
@@ -410,6 +415,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.GroupBox4.SuspendLayout()
         CType(Me.dgvKreditkarten, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbUmsatzsteuer.SuspendLayout()
+        CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbSonstiges.SuspendLayout()
         CType(Me.dgvSonst_IDSKunden, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -571,16 +577,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
         Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
         '
-        'UsrCntlKundenBesonderheiten1
-        '
-        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
-        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
-        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
-        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
-        Me.UsrCntlKundenBesonderheiten1.Visible = False
-        '
         'tbcntrAbf
         '
         Me.tbcntrAbf.Controls.Add(Me.TabPage4)
@@ -615,15 +611,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100)
         Me.FlowLayoutPanel1.TabIndex = 7
         '
-        'UsrCntlKundenAvisoMailBenachrichtigung1
-        '
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
-        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
-        '
         'rtbLKWFreigabeSenden
         '
         Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
@@ -792,14 +779,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbAufschub.Text = "Aufschubkonten"
         Me.tbAufschub.UseVisualStyleBackColor = True
         '
-        'usrCntlAufschubkonten
-        '
-        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
-        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
-        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
-        Me.usrCntlAufschubkonten.TabIndex = 0
-        '
         'TabPage1
         '
         Me.TabPage1.Controls.Add(Me.Label78)
@@ -1105,15 +1084,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbFiskal.Text = "Fiskal"
         Me.tbFiskal.UseVisualStyleBackColor = True
         '
-        'UsrCntlKundeFiskaldaten1
-        '
-        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
-        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
-        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
-        '
         'tbVerrechnung
         '
         Me.tbVerrechnung.Controls.Add(Me.pnlverag360)
@@ -3345,6 +3315,8 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbUmsatzsteuer
         '
+        Me.tbUmsatzsteuer.Controls.Add(Me.btnMWSTspeichern)
+        Me.tbUmsatzsteuer.Controls.Add(Me.dgvMWST)
         Me.tbUmsatzsteuer.Controls.Add(Me.txtUStIDGeprueftAm)
         Me.tbUmsatzsteuer.Controls.Add(Me.txtUStID)
         Me.tbUmsatzsteuer.Controls.Add(Me.Button3)
@@ -3369,6 +3341,49 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbUmsatzsteuer.Text = "Umsatzsteuer"
         Me.tbUmsatzsteuer.UseVisualStyleBackColor = True
         '
+        'btnMWSTspeichern
+        '
+        Me.btnMWSTspeichern.allowBorder = False
+        Me.btnMWSTspeichern.Enabled = False
+        Me.btnMWSTspeichern.FlatAppearance.BorderSize = 0
+        Me.btnMWSTspeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMWSTspeichern.ForeColor = System.Drawing.Color.Black
+        Me.btnMWSTspeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMWSTspeichern.Location = New System.Drawing.Point(186, 458)
+        Me.btnMWSTspeichern.Name = "btnMWSTspeichern"
+        Me.btnMWSTspeichern.Size = New System.Drawing.Size(131, 23)
+        Me.btnMWSTspeichern.TabIndex = 17
+        Me.btnMWSTspeichern.Text = "Änderungen speichern"
+        Me.btnMWSTspeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnMWSTspeichern.UseVisualStyleBackColor = True
+        '
+        'dgvMWST
+        '
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
+        Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
+        Me.dgvMWST.Name = "dgvMWST"
+        Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
+        Me.dgvMWST.TabIndex = 16
+        '
         'txtUStIDGeprueftAm
         '
         Me.txtUStIDGeprueftAm._DateTimeOnly = False
@@ -3430,7 +3445,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.Button11.Enabled = False
         Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button11.Location = New System.Drawing.Point(9, 421)
+        Me.Button11.Location = New System.Drawing.Point(514, 359)
         Me.Button11.Name = "Button11"
         Me.Button11.Size = New System.Drawing.Size(152, 31)
         Me.Button11.TabIndex = 14
@@ -3448,29 +3463,29 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'dgvUstv_LaenderUndSteuernummern
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
+        Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
         Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
         Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
-        Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 321)
+        Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
         Me.dgvUstv_LaenderUndSteuernummern.TabIndex = 13
         '
         'Label90
@@ -3764,26 +3779,26 @@ Partial Class usrcntlKundeBearbeitenFull
         'dgvSonst_IDSKunden
         '
         Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle16
         Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 308)
         Me.dgvSonst_IDSKunden.MultiSelect = False
         Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
@@ -4092,26 +4107,26 @@ Partial Class usrcntlKundeBearbeitenFull
         'DataGridView1
         '
         Me.DataGridView1.AllowUserToResizeRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
         Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle16
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle19
         Me.DataGridView1.Enabled = False
         Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
         Me.DataGridView1.MultiSelect = False
@@ -4165,26 +4180,26 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         Me.dgvBankverbindungen.AllowUserToDeleteRows = False
         Me.dgvBankverbindungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
         Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
+        Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle19
+        Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle22
         Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
         Me.dgvBankverbindungen.MultiSelect = False
         Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
@@ -5025,14 +5040,6 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.TabPage11.Text = "Spezifisch"
         Me.TabPage11.UseVisualStyleBackColor = True
         '
-        'ucKundenKontakte
-        '
-        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
-        Me.ucKundenKontakte.Name = "ucKundenKontakte"
-        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
-        Me.ucKundenKontakte.TabIndex = 0
-        '
         'Label50
         '
         Me.Label50.AutoSize = True
@@ -5313,6 +5320,50 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
+        'ucKundenKontakte
+        '
+        Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+        Me.ucKundenKontakte.Name = "ucKundenKontakte"
+        Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
+        Me.ucKundenKontakte.TabIndex = 0
+        '
+        'UsrCntlKundenBesonderheiten1
+        '
+        Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
+        Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+        Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+        Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
+        Me.UsrCntlKundenBesonderheiten1.Visible = False
+        '
+        'UsrCntlKundenAvisoMailBenachrichtigung1
+        '
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
+        Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
+        '
+        'usrCntlAufschubkonten
+        '
+        Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
+        Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
+        Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
+        Me.usrCntlAufschubkonten.TabIndex = 0
+        '
+        'UsrCntlKundeFiskaldaten1
+        '
+        Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
+        Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
+        Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
+        '
         'usrcntlKundeBearbeitenFull
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5384,6 +5435,7 @@ Partial Class usrcntlKundeBearbeitenFull
         CType(Me.dgvKreditkarten, System.ComponentModel.ISupportInitialize).EndInit()
         Me.tbUmsatzsteuer.ResumeLayout(False)
         Me.tbUmsatzsteuer.PerformLayout()
+        CType(Me.dgvMWST, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvUstv_LaenderUndSteuernummern, System.ComponentModel.ISupportInitialize).EndInit()
         Me.tbSonstiges.ResumeLayout(False)
         Me.tbSonstiges.PerformLayout()
@@ -5758,4 +5810,6 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents txtVorauszahlung As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxVorauszahlung As CheckBox
     Friend WithEvents txtAnmerkungAntraege As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents dgvMWST As DataGridView
+    Friend WithEvents btnMWSTspeichern As VERAG_PROG_ALLGEMEIN.FlatButton
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -981,6 +981,7 @@
     Dim cBinding_dgvUStV As New cBinding("FMZOLL")
     Dim cBinding_dgvSonst_IDSKunden As New cBinding("FMZOLL")
     Dim cBinding_dgvBankverbindungen As New cBinding("FMZOLL")
+    Dim cBinding_dgvMWST As New cBinding("FMZOLL")
 
 
 
@@ -2053,6 +2054,57 @@
 
     End Sub
 
+    Private Sub dgvinitMWST()
+
+
+
+        With dgvMWST
+
+            cBinding_dgvMWST.initBinding(" SELECT Id, KdNr,LandKz  " &
+                                           " FROM [tblKundenMWST] " &
+                                           " WHERE KdNr = " & KUNDE.KundenNr, "tblKundenMWST")
+
+
+            AddHandler btnMWSTspeichern.Click,
+                Sub(send As Object, evnt As EventArgs)
+                    If cBinding_dgvMWST.updateBinding() Then
+                        send.Enabled = False
+                    End If
+                End Sub
+
+            AddHandler cBinding_dgvMWST.bindingdataTable.ColumnChanged,
+              Sub(send As Object, evnt As EventArgs)
+                  btnMWSTspeichern.Enabled = True
+              End Sub
+
+            AddHandler .UserDeletedRow,
+                      Sub(send As Object, evnt As DataGridViewRowEventArgs)
+                          btnMWSTspeichern.Enabled = True
+                      End Sub
+
+
+            .DataSource = cBinding_dgvMWST.bindingdataTable
+
+            FUNC.dgvCellToCbo(dgvMWST, 2, "Land", "LandKz", "SELECT LandKz, LandBez  FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandKz ", "FMZOLL")
+
+
+            .DataSource.Columns("KdNr").DefaultValue = KUNDE.KundenNr
+
+
+            .Columns(0).Visible = False
+            .Columns(1).Visible = False
+
+            .Columns(2).Width = 100
+            .Columns(2).HeaderText = "Land eig. MWST"
+
+
+        End With
+
+
+    End Sub
+
+
+
     Private Sub initdgvIDSKunden()
 
         With dgvSonst_IDSKunden
@@ -2204,6 +2256,7 @@
 
         If tbcntrDetails.SelectedTab Is tbUmsatzsteuer Then
             dgvinitLaenderUndSteuernummern()
+            dgvinitMWST()
         End If
 
         If tbcntrDetails.SelectedTab Is tbSonstiges Then
@@ -2241,4 +2294,6 @@
         txtVorauszahlung.Enabled = cbxVorauszahlung.Checked
         If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
     End Sub
+
+
 End Class

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