Как сгенерировать штрих-коды для 5000 товаров

Как сгенерировать штрих-коды для 5000 товаров

Сообщение Виталий1988 » Чт апр 17, 2014 1:19 pm

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

Бачив схожу тему зі зміною артикулів:
DB.Execute("UPDATE Articles SET Code = Format(Articles.ID,'00000')")
Виталий1988
 
Сообщения: 1
Зарегистрирован: Чт апр 17, 2014 1:01 pm

Re: Как сгенерировать штрих-коды для 5000 товаров

Сообщение dmitry » Пт апр 18, 2014 4:47 am

- Скопировать текст ниже.
- В программе нажать 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()
dmitry
Разработчик
 
Сообщения: 3724
Зарегистрирован: Чт янв 27, 2011 3:43 pm


Вернуться в Использование программы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

cron