Preisliste, Kundenblatt, etc.

SDL/kunden/frmKundenblatt.vb

@@ -2764,11 +2764,21 @@ Public Class frmKundenblatt
             Dim bestellNr As String = SQL.getValueTxtBySql("SELECT Top(1) gb_bestellNr FROM [tblGOBOXBestellnummern] ORDER BY gb_bestelldatum DESC", "FMZOLL")
             If bestellNr <> "" AndAlso IsNumeric(bestellNr) Then
                 intBestellnummer = CInt(bestellNr)
+
+                If intBestellnummer = 9999 Then
+                    intBestellnummer = 1
+                Else
+                    intBestellnummer = intBestellnummer + 1
+                End If
+
+            Else
+                    intBestellnummer = 1
+
             End If
 
 
-            ' 6️ Datensätze aktualisieren
-            Dim ID_bestellungen As String = ""
+                ' 6️ Datensätze aktualisieren
+                Dim ID_bestellungen As String = ""
             If dtBestellungen.Columns.Contains("gb_ID") Then
                 Dim dtNew As DataTable = dtBestellungen.Rows.Cast(Of DataRow)().Where(Function(row) Not row.ItemArray.All(Function(field) field Is DBNull.Value Or field.Equals(""))).CopyToDataTable()
                 If dtNew.Rows.Count > 0 Then

SDL/kunden/usrCntlIDSPreise.vb

@@ -524,7 +524,7 @@ Public Class usrCntlIDSPreise
                                     If dgvIDS.SelectedCells.Count > 0 Then
 
                                         If dgvIDS.SelectedCells(0).RowIndex > -1 AndAlso dgvIDS.Rows(dgvIDS.SelectedCells(0).RowIndex).Cells("OutletCountryCode").Value > 0 Then
-                                            initDGVDieselpreiseDetails(dgvIDS.Rows(dgvIDS.SelectedCells(0).RowIndex).Cells("OutletCountryCode").Value)
+                                            'initDGVDieselpreiseDetails(dgvIDS.Rows(dgvIDS.SelectedCells(0).RowIndex).Cells("OutletCountryCode").Value) 'hier nicht neu laden!!!!
                                         End If
 
                                     Else