ФОРУМ "Предприниматель 4"

В модуле список заказов начала вылазить постоянно ошибка, что код используется.
Лечим - создаем пустой СЧЕТ.
И снова периодически появляется проблема.

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".

Dim R As Predpr.TableSQL, ParamID As Integer
R = Predpr.DataMain.AppData.DocumentParamsCollection.DAOrecordset
R.FindFirst("ParamName='Код_заказа'")
If R.NoMatch = False Then
ParamID = R("ID")
Else
Microsoft.VisualBasic.MsgBox("Не найдено свойство 'Код заказа'", , "Отмена")
Exit Sub
End If
Dim DtStr As String = "#01/01/2015#"
Dim DocID As Integer, Rdoc As Predpr.TableSQL
Rdoc = db.OpenRecordset("SELECT ID, DocDate FROM Documents ORDER BY DocDate")
Rdoc.FindFirst("DocDate>=" & DtStr)
If Rdoc.NoMatch = False Then
DocID = Rdoc("ID")
Rdoc.Close
Else
Microsoft.VisualBasic.MsgBox("Не найдены документы 2015", , "Отмена")
Exit Sub
End If
DB.Execute("UPDATE DocumentParams SET Val_3=Val_3 & '-2014' WHERE ParamID="& ParamID &" and ItemID<" & DocID)

не помогло

есть заказ 868

и новый создает тоже 868

Код заказа соответствует номеру счета, нумерация каждый год начинается заново, и номера могут совпасть, но за разные годы. А 868 был в этом году?
Или пришлите базу данных на predpr4@email.com.ua, разберусь.