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

В процесі використання програми виникла проблема:
Є створено 5 000 товарів, без штрих кодів, ввести штрих коди вручну проблематично.
Чи можливо написати запит до бази щоб сформувати для кожного товару штрих код автоматично ?

Бачив схожу тему зі зміною артикулів:
DB.Execute("UPDATE Articles SET Code = Format(Articles.ID,'00000')")

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

Dim R As Predpr.TableSQL, BarStr As String, ID As Integer, IDstr As String
R = Predpr.DataMain.DBmain.OpenRecordset("SELECT ID, BarCode FROM Articles WHERE TypeID>0 and BarCode is null")
Do While Not R.EOF
ID = R("ID")
IDstr = ID.ToString("000000000")
BarStr = Predpr.For_Discount.GetBarCode("200" & IDstr)
R.Edit()
R("BarCode") = BarStr
R.Update()
R.MoveNext()
Loop
R.Close()