commit

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -110,6 +110,7 @@ Public Class usrcntlKundeBearbeitenFull
         bntGOBOXUmstellung.Enabled = isVerag360
         btnKKhinzufuegen.Enabled = isVerag360
         Button9.Enabled = isVerag360
+        cbxkeineMWSt.Visible = isVerag360
 
         usrCntlAufschubkonten.initMe(kdnr)
 
@@ -360,6 +361,7 @@ Public Class usrcntlKundeBearbeitenFull
         cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
         cbxSonst_CsvUTA.Checked = loadValue(ADRESSE.UTAExportCSV, False)
         cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung
+        cbxkeineMWSt.Checked = KUNDE_ERW.kde_keineMWSt
 
 
         txtAbf_ZollVmVom.Enabled = cbxAbf_ZollVM.Checked
@@ -1856,6 +1858,7 @@ Public Class usrcntlKundeBearbeitenFull
     Private Sub dgvBankverbindungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvBankverbindungen.CellMouseClick
 
         If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+        If e.ColumnIndex < 0 Then Exit Sub
 
         DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
         If e.Button = MouseButtons.Right Then
@@ -1864,7 +1867,7 @@ Public Class usrcntlKundeBearbeitenFull
 
             If sender Is dgvBankverbindungen Then
                 If Not bankverbindungBearbeiten Then Exit Sub
-                If dgvBankverbindungen.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+                If dgvBankverbindungen.SelectedCells.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
                 dgvBankverbindungen.CurrentCell = dgvBankverbindungen.Rows(e.RowIndex).Cells(e.ColumnIndex)
 
                 If dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value Is Nothing OrElse (Not IsDBNull(dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_archiv").Value) AndAlso dgvBankverbindungen.CurrentRow.Cells("bnk_id").Value IsNot Nothing Then
@@ -2163,4 +2166,23 @@ Public Class usrcntlKundeBearbeitenFull
 
     End Sub
 
+    Private Sub cbxkeineMWSt_Click(sender As Object, e As EventArgs) Handles cbxkeineMWSt.Click
+        If cbxkeineMWSt.Checked Then
+
+            Dim sqlStringSteuerNr = "SELECT count(*) from tblSteuernummern where UStV = 1 and tblSteuernummern.AdressenNr = " & ADRESSE.AdressenNr
+            Dim aktiveSteuerNr As Integer = CInt((New SQL).getValueTxtBySql(sqlStringSteuerNr, "FMZOLL"))
+
+            If aktiveSteuerNr > 0 Then
+                If vbYes = MsgBox("Der Kunde hat aktuell " & aktiveSteuerNr & " aktive Steuer-Nummern!" & vbNewLine & "Trotzdem setzen?  ", vbYesNoCancel) Then
+                    cbxkeineMWSt.Checked = True
+                Else
+                    cbxkeineMWSt.Checked = False
+                End If
+
+            End If
+
+
+
+        End If
+    End Sub
 End Class