Этот код уже используется (список заказов)

[vadim]

модуль список заказов

создаем заказ номер 200 - пишет, что уже используется

проверил список всех счетов, точно нету такого номера.

[dmitry]

Есть такая проблема, я про нее забыл - этот код заказа наверное был в прошлом году.
Решение такое: нажать там "Настройка" и выбрать "Номер + ММ.гг".

1.png (19.24 КБ) Просмотров: 3343

[vadim]

спасибо, решили

а в бланке печати как убрать с номера дату, мешает.

[dmitry]

Никак, это не отдельная дата, а часть его номера.

[vadim]

т.е., или ошибка о повторе, или всегда код + дата?
без вариантов?

[dmitry]

Решение такое:
К номерам заказов за прошлый год автоматичекски добавится "-2014". В настройках можно будет вернуть обычный код без месяца и года, он уже не будет совпадать.

- Скопировать текст ниже.
- В программе нажать 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 ItemID<" & DocID)

[vadim]

Большое спасибо

[vadim]

А строках автозаполнения везде начало дописываться 2014
например:
было поле РЕМОНТ ПРИНТЕРА - теперь стало РЕМОНТ ПРИНТЕРА-2014-2014

[dmitry]

А что такое "строки автозаполнения"? Можно скриншот?

[vadim]

якось так і в усіх полях, яких ми сторювали, як додаткові

[dmitry]

Чтобы исправить:
- Скопировать текст ниже.
- В программе нажать Ctrl+F10.
- Вставить текст, нажать ОК.

Dim R As Predpr.TableSQL, ParamID As Integer, Str As String
R = Predpr.DataMain.AppData.DocumentParamsCollection.DAOrecordset
R.FindFirst("ParamName='Код_заказа'")
If R.NoMatch = False Then
ParamID = R("ID")
End If
R = DB.OpenRecordset("SELECT Val_3 FROM DocumentParams WHERE ParamID<>" & ParamID)
Do While Not R.EOF
Str = Predpr.GlobalFunction.Nz(R("Val_3"), "")
If Str <> "" Then
Str = Str.Replace("-2014-2014-2014", "")
R.Edit()
R("Val_3") = Str
R.Update()
End If
R.MoveNext()
Loop
R.Close()

[vadim]

ошибка какая-то

[dmitry]

Немного изменил текст:

Dim R As Predpr.TableSQL, ParamID As Integer, Str As String
R = Predpr.DataMain.AppData.DocumentParamsCollection.DAOrecordset
R.FindFirst("ParamName='Код_заказа'")
If R.NoMatch = False Then
ParamID = R("ID")
End If
R = DB.OpenRecordset("SELECT Val_3 FROM DocumentParams WHERE ParamID<>" & ParamID)
Do While Not R.EOF
Str = Predpr.GlobalFunction.Nz(R("Val_3"), "")
If Str <> "" Then
Str = Str.Replace("-2014-2014-2014", "")
If Str = "" Then Str = "-"
R.Edit()
R("Val_3") = Str
R.Update()
End If
R.MoveNext()
Loop
R.Close()

[vadim]

новый год, 2016

нумерация началась с нуля, появилась ошибка - КОД УЖЕ ИСПОЛЬЗУЕТСЯ

[dmitry]

- Скопировать текст ниже.
- В программе нажать 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 Str as String
Str="UPDATE DocumentParams INNER JOIN Documents ON DocumentParams.ItemID = Documents.ID "
Str=Str & "SET DocumentParams.Val_3 = Documents.Num & '_' & Year(Documents.DocDate) "
Str=Str & "WHERE DocumentParams.ParamID="& ParamID &" AND Documents.DocDate<#1/1/2016#"
DB.Execute(Str)