Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
так может кто-то решить эту проблему?
у меня еще такая проблема: в расширенном поиске внизу у меня количество документов только с последнего пополнения, т.е. я не вижу сколько у меня всего документов по блокам, соответственно не могу отсортировать их по блокам.
Как бороться не скажу. Есть вариант обойти проблему - в папке юзера БИ в темпе лежит html файл справочной инфы. Найти его и запустить в браузере - ошибки не будет.
у меня такая же проблема даже вручную не хочет скачиваться может проблема на сервере
может кто поделится № 3847 от 06.07.2021 23,6 МБ ( 24770461 байт ) № 3846 от 05.07.2021 5,2 МБ ( 5525531 байт )
больше интересует 3846
У меня есть мысль о заговоре. Когда зависли новости на 30 апреле, было понятно, что они могли заменить модуль обновления. В котором вшито: перескок с обновления 3844 сразу на 46. Не зря это случилось в день их юбилея!
И все клиенты даже не заметили этой "фичи" , а мы все ломимся скачивать это 3846 тем самым выдавая свой IP, и потом попадем "на заметку" =))
Тот вариант имеет один недостаток, с новым обновлением в расширенном поиске внизу количество документов неверно отображается и соответственно, нет возможности сортировать по блокам.
Новый вариант лучше, он возвращает только рег ключ, не трогая техн информацию.
Написан на vbs скрипте, т.к. bat имеет черное окно при запуске и очень медленно работает с перебором строк у больших файлов.
Код:
fName = ".\DATA\A19.DAT" ' Файл с которым работаем
iStrok = 1 ' В какой строке меняем текст
repTxt = "Рег ID из файла .\DATA\A19.dat - первая строка" ' Какой текст поместим в указанную строку
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
Set F = FSO.OpenTextFile(fName, 1, False) ' Открываем исходный текст файл для чтения
AllTxt = F.ReadAll() ' Cчитываем весь файл в строковую переменную
F.Close
If InStr(AllTxt, repTxt) Then
' Проверили вхождение строки для экономии времени (примерно 2сек), и если нашли ...
objShell.Run("""B_info.exe""") ' Запускаем Бизнес-инфо
Set objShell = Nothing
WScript.Quit ' Выходим из скрипта
End if
' Вхождение строки не найдено, будем перезаписывать файл
Mas = Split(AllTxt, vbCrLf) ' Разбиваем полученную строку в массив. Резделитель - конец строки и перевод строки vbCrLf
If UBound(Mas) + 1 >= iStrok Then
Mas(iStrok - 1) = repTxt ' Заменяем нужный элемент массива (строку текста) заданной
AllTxt = Join(Mas, vbCrLf) ' Консолидируем массив в строку для записи
Set F = FSO.OpenTextFile(fName, 2, False) ' Открываем исходный файл для записи
F.Write AllTxt ' Записываем полученное на место исходного файла
F.Close ' Закрываем файл
End If
objShell.Run("""B_info.exe""") ' Запускаем Бизнес-инфо
Set objShell = Nothing
Инструкция:
1. Зарегистрировать БИ, если не полные банки
2. Скачать и поместить файл vbs.vbs.txt в папку где лежит B_info.exe и переименовать в vbs.vbs
3. Скопировать первую строку из файла \DATA\A19.dat и поместить в vbs.vbs присвоив его переменной repTxt ="сюдаздесь"
4. Вывести ярлык vbs.vbs на рабочий стол и в свойствах файла сменить значок на привычный БИ
5. Профит.
Тот вариант имеет один недостаток, с новым обновлением в расширенном поиске внизу количество документов неверно отображается и соответственно, нет возможности сортировать по блокам.
Новый вариант лучше, он возвращает только рег ключ, не трогая техн информацию.
Написан на vbs скрипте, т.к. bat имеет черное окно при запуске и очень медленно работает с перебором строк у больших файлов.
Код:
fName = ".\DATA\A19.DAT" ' Файл с которым работаем
iStrok = 1 ' В какой строке меняем текст
repTxt = "Рег ID из файла .\DATA\A19.dat - первая строка" ' Какой текст поместим в указанную строку
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
Set F = FSO.OpenTextFile(fName, 1, False) ' Открываем исходный текст файл для чтения
AllTxt = F.ReadAll() ' Cчитываем весь файл в строковую переменную
F.Close
If InStr(AllTxt, repTxt) Then
' Проверили вхождение строки для экономии времени (примерно 2сек), и если нашли ...
objShell.Run("""B_info.exe""") ' Запускаем Бизнес-инфо
Set objShell = Nothing
WScript.Quit ' Выходим из скрипта
End if
' Вхождение строки не найдено, будем перезаписывать файл
Mas = Split(AllTxt, vbCrLf) ' Разбиваем полученную строку в массив. Резделитель - конец строки и перевод строки vbCrLf
If UBound(Mas) + 1 >= iStrok Then
Mas(iStrok - 1) = repTxt ' Заменяем нужный элемент массива (строку текста) заданной
AllTxt = Join(Mas, vbCrLf) ' Консолидируем массив в строку для записи
Set F = FSO.OpenTextFile(fName, 2, False) ' Открываем исходный файл для записи
F.Write AllTxt ' Записываем полученное на место исходного файла
F.Close ' Закрываем файл
End If
objShell.Run("""B_info.exe""") ' Запускаем Бизнес-инфо
Set objShell = Nothing
Инструкция:
1. Зарегистрировать БИ, если не полные банки
2. Скачать и поместить файл vbs.vbs.txt в папку где лежит B_info.exe и переименовать в vbs.vbs
3. Скопировать первую строку из файла \DATA\A19.dat и поместить в vbs.vbs присвоив его переменной repTxt ="сюдаздесь"
4. Вывести ярлык vbs.vbs на рабочий стол и в свойствах файла сменить значок на привычный БИ
5. Профит.
Эту строку заменили правильно
А Вы все ходы по инструкции сделали?
Вначале перерегистрировать базу с файлом vbs.vbs, который шел в комплекте, а уже затем проделать все остальные действия, в том числе с заменой строки
Эту строку заменили правильно
А Вы все ходы по инструкции сделали?
Вначале перерегистрировать базу с файлом vbs.vbs, который шел в комплекте, а уже затем проделать все остальные действия, в том числе с заменой строки