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()
Вернуться в Использование программы
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5