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

Добрый день. Столкнулись с такой проблемой:сканер считывает не все штрих-коды с ценников,когда открыли карточку товара (в несчитываемых ценниках) в графе штрих-код обнаружили надпись:"В существующем штрих-коде неверная контрольная сумма".Штрих-коды проставляем внутренние,причем программа их сама формирует, а потом не видит.И,почему-то предлагает присвоить другой штрих-код,хотя он уже встречается в другом товаре. Что с этим делать и как исправить?

Предлагаю удалить все штрих-коды, которые начинаются с 200 (т.е. не заводские) и сгенерировать их заново. Уверен, что они будут правильные.

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

Код: Выделить всё

DB.Execute("UPDATE Articles SET BarCode = Null WHERE BarCode  Like '200*'")
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()


На товары, у которых были проблемы с штрих-кодом, распечатать этикетки заново.

К сожалению, удалить коды,которые начинаются с 200 .., невозможно.у нас на весь приходуемый товар присваивается внутренний штрих-код.

Можно ли как-то найти в программе ценники с неверной контрольной суммой? и как быть,если вводится новый товар,программа формирует внутренний штрих-код ,который уже есть в программе?если пытаемся изменить его вручную-в штрих-коде неверная контрольная сумма и он не считывается сканером.

Приведенный выше скрипт удалит "правильные" и "неправильные" штрих-коды, но тут же присвоит их заново. В результате 99% "правильных" не изменятся, 1% изменится (будет исправлен).
Но чтобы не бояться, вы можете прислать мне базу данных на pr-4@ukr.net, я проделаю это у себя, напишу о результате и отправлю список товаров, у которых штрих-код изменился (исправлен), чтобы вы распечатали для них новые этикетки.