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

В карточке товаров произвольные свойства есть ссылка на товар на сайте,все ссылки водил вручную при создании товара.
Адрес сайта поменялся, при импорте из XL произвольные свойства ссылка на товар не проставляется.
А нужно поменять как можно это зделать.

1. Скопировать текст ниже.
2. В программе нажать клавиши Ctrl+F10.
3. Вставить текст, изменить старое название и новое название на свои реальные, нажать ОК.

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

Const OldName As String = "Supershop.com.ua"
Const NewName As String = "Megashop.com.ua"

Dim R As Predpr.TableSQL, Str As String, TbStr As String
TbStr = "SELECT Val_3, counter FROM ArticleParams WHERE Val_3 Like '%" & OldName  & "%'"
R = DB.OpenRecordset(TbStr, , True, "ArticleParams")
Do While Not R.EOF
Str = R("Val_3")
R.Edit()
R("Val_3") = Str.Replace(OldName, NewName)
R.Update()
R.MoveNext()
Loop
R.Close()

Или загрузить маленький модуль (вложение внизу), извлечь из него файл в папку программы,
в главном окне программы появится соотв. кнопка (если не появится, щелкнуть там на пустом фоне ПКМ - "Создать ярлык"),
нажать ее - все будет понятно.

Текстовый формат произвольных свойств меняет, формат файл, ссылка неменяет.

Текст с небольшими изменениями, действия с ним те же.

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

Const OldName As String = "Supershop.com.ua"
Const NewName As String = "Megashop.com.ua"

Dim R As Predpr.TableSQL, Str As String, TbStr As String
TbStr = "SELECT Val_5, counter FROM ArticleParams WHERE Val_5 Like '%" & OldName  & "%'"
R = DB.OpenRecordset(TbStr, , True, "ArticleParams")
Do While Not R.EOF
Str = R("Val_5")
R.Edit()
R("Val_5") = Str.Replace(OldName, NewName)
R.Update()
R.MoveNext()
Loop
R.Close()

Большое спасибо получилось. А ещё из файла XL добавить ссылки новым товарам штобы не вводить вручную.

Для новых товаров дополнительные свойства заполнятся.