Fibu-Konten, BH, etc.

SDL/buchhaltung/frmLeistundenFIBUKonten.Designer.vb

@@ -287,7 +287,6 @@ Partial Class frmLeistundenFIBUKonten
         Me.btnAdd.Size = New System.Drawing.Size(24, 20)
         Me.btnAdd.TabIndex = 103
         Me.btnAdd.UseVisualStyleBackColor = True
-        Me.btnAdd.Visible = False
         '
         'btnDelete
         '

SDL/buchhaltung/frmLeistundenFIBUKonten.vb

@@ -48,7 +48,7 @@ Public Class frmLeistundenFIBUKonten
         End If
 
         If searchparam <> "" Then
-            SQLWHere &= " AND (FIBU.SachkontoInlandSteuerpflichtig like '%" & searchparam & "%' OR FIBU.SachkontoInlandSteuerfrei like '%" & searchparam & "%' OR FIBU.SachkontoEUSteuerpflichtig like '%" & searchparam & "%' OR FIBU.SachkontoEUSteuerfrei like '%" & searchparam & "%' OR FIBU.Sachkonto3Land like '%" & searchparam & "%')"
+            SQLWHere &= " AND (FIBU.SachkontoInlandSteuerpflichtig like '%" & searchparam & "%' OR FIBU.SachkontoInlandSteuerfrei like '%" & searchparam & "%' OR FIBU.SachkontoEUSteuerpflichtig like '%" & searchparam & "%' OR FIBU.SachkontoEUSteuerfrei like '%" & searchparam & "%' OR FIBU.Sachkonto3Land like '%" & searchparam & "%' OR l.LeistungsBez like '%" & searchparam & "%')"
         End If
 
         If leistungsNr > 0 Then
@@ -275,4 +275,5 @@ Public Class frmLeistundenFIBUKonten
         End If
     End Sub
 
+
 End Class

SDL/buchhaltung/usrCntlBH.vb

@@ -2429,8 +2429,19 @@ Public Class usrCntlBH
                             .btnPreisliste.Visible = False
                             .dgvHandling.RowHeadersVisible = False
                             .Button2.Text = "Importieren"
-                            '.cbxDivers.Visible = True
-                            '.cbxDivers.Text = "VZ und RZ-Beträge im Antrag erhöhen"
+                            .cbxDivers.Visible = True
+                            .cbxDivers.Text = "KundenNr aus Excel übernehmen"
+
+                            If visibleKdNrCheck Then
+                                .cbxDivers.Checked = True
+                            Else
+                                .cbxDivers.Checked = False
+                                .cbxDivers.Enabled = False
+                            End If
+
+
+
+
                         End With
 
                         frm.ShowDialog()
@@ -2438,14 +2449,21 @@ Public Class usrCntlBH
                         If frm.DialogResult = DialogResult.OK Then
 
 
-
                             Dim counter = 0
                             Dim dateTemp
                             For Each r As DataGridViewRow In frm.dgvHandling.SelectedRows
 
                                 Dim Datum = r.Cells("Datum").Value
                                 Dim TYP = cbxBankspesentyp._value
-                                Dim KdNr = r.Cells("KdNr").Value
+                                Dim KdNr = 0
+
+                                If frm.cbxDivers.Checked AndAlso visibleKdNrCheck Then
+                                    If r.Cells("KdNrCheck").Value <> "" AndAlso IsNumeric(r.Cells("KdNrCheck").Value) Then KdNr = CInt(r.Cells("KdNrCheck").Value)
+                                Else
+                                    KdNr = r.Cells("KdNr").Value
+                                End If
+
+
                                 dateTemp = Datum
                                 If KdNr > 0 Then