• JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Тема: NO Locate

Win 7, TCS 5.0.2 Без обращения к библиотекам.
Пытаюсь найти номенклатуру с помощью метода Locate. На 100-ях ПК всё путём, а на 2-х
поиск не даёт никаких результатов. Пришлось поставить фильтр. В чём дело?
Почему не у всех срабатывает Locate?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

на 2-х компах в смысле?

Ответ от JAEAEJ

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

В смысле, что:
(RAB - номенклатура)

RAB.Locate("NOTE",NMK_NOTE, 0)  ' Встать на выбранную номенклатуру.

на всех ПК работает, кроме двух.
На все папки ТКС даны права на полный доступ, вход
в винду под админом. Тем не менее не отрабатывает. ???

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

Права и доступ не причем. Либо мешает опция показать данные текущей ветки (наиболее вероятно), либо что то с локалью (но маловероятно, ищет на равно ). Попробуйте еще на всякий случай перед Locate сделать First.

Ответ от JAEAEJ

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

Я показал не весь код. ? First, естесствено предпологая то-же, что и Вы я ссделал.
Галки на "Отображать данные только текущей ветви" нет.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

стоп...А в коде написано вот так?

 i = RAB.Locate("NOTE",NMK_NOTE, 0)
  ИЛИ
 If RAB.Locate("NOTE",NMK_NOTE, 0) Then
 End If

Ответ от JAEAEJ (изменено: , 8 мая 2013 10:33:27)

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

If RAB.Locate("NOTE",NMK_NOTE, 0) Then
End If

Вернее

If RAB.Locate("NOTE",NMK_NOTE, 0) Then
......
else
......
End If

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

Интернет экплорер на всех одинаковый?  Точнее интерисует версия VBScript.

    MsgBox "VBS:" + CStr(ScriptEngineMajorVersion) + "." + CStr(ScriptEngineMinorVersion)

Ответ от JAEAEJ (изменено: , 8 мая 2013 10:50:31)

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

VBS:5.7

Везде

Всё с одного инсталлятора

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

А простой тестовый что показывает? Модуль этот перед после Locate смотрели? может там какие настройки мешают все таки просто?

Ответ от JAEAEJ (изменено: , 8 мая 2013 11:00:50)

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

Смотрел. Курсор как стоял на первой строчке грида так и стоит.

Обновление ничего не даёт.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

А киньте пожалуйста код простого примера и скрин до и после..чтобы было всю панель видно.

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

Придётся написать. Нужно время. База рабочая поэтому я поменял на фильтр.
Скину как будет готово в учебной БД.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

Ну там простой пример типа (потому как  сложном может просто в другом месте ошибочка идет и искать не там надо)

Sub Form_Marco_Test( TCSActiveModule )
 i = TCSActiveModule.ShowModal( "Do locate" )
 Data = TCSApp.InputBox( "Input Note", "Note:", "" )
 If Data<>"" Then
    If Not TCSActiveModule.Locate( "NOTE", Data, 0 ) Then Call TCSApp.ShowErrorMessage( "No locate" )
    i = TCSActiveModule.ShowModal( "After locate" )
 End If
End Sub

  • JAEAEJ
  • Участник
  • Неактивен
  • На форуме с 15 октября 2010
  • Сообщений: 211

Re: NO Locate

Чудеса. Поговорил с Вами и вариант с поиском заработал.
Ваш пример то запускается, то нет. У меня принцип был точно тако-же как в примере.
Явно Билл виноват. Первый раз за 6 лет столкнулся с такой ситуацией.
Видимо тему можно считать закрытой.

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: NO Locate

Можно еще попробовать вот так

If TCSActiveModule.Locate( "NOTE", Data, 0 )=True Then

Если вдруг поможет отпишите, встречались с подобным, но тоже само собой прошло и причины точной не вспомню, но может стоит поизучать.