Очень не приятный глюк в Проге.

Очень не приятный глюк в Проге.

Сообщение Array » Пн ноя 03, 2014 11:13 am

Прога сама в обьектах учета меняет наименования на неправильные например:
код 00350 получил наименование одинаковое с 04780 при этом у товара "04780" с оригинальным правильным наименованием добавилась запятая в названии( которая изначально руками не забивалась)
Например есть авто лампа по 2 грн и шины по 1500. Вожу в рознице код с лампы пишет цену лампы но наименование шины.... перемешало так значительную часть обьектов учета!! А если продавец будет искать не по коду, а по наименованию то продаст шину по 2 грн!!!
Я в панике не могу понять от куда это могло появится. В прошлогодней базе все норм было. В этой творятся такие "приколы". Не знаю что думать может каталоги не правильно переслись при создании новой базы.
Может кто-то сталкивался?
Array
 
Сообщения: 6
Зарегистрирован: Пн ноя 03, 2014 9:43 am

Re: Очень не приятный глюк в Проге.

Сообщение Array » Пн ноя 03, 2014 11:44 am

заставил человека неделю назад просмотреть всю базу и поменять наименования на нормальные. Часть тех же наименований поменялась обратно на неправильный... мистика
Array
 
Сообщения: 6
Зарегистрирован: Пн ноя 03, 2014 9:43 am

Re: Очень не приятный глюк в Проге.

Сообщение dmitry » Пн ноя 03, 2014 12:27 pm

Уже были случаи с такой же ситуацией, но я не могу понять причину.
Предположение: чтобы изменить что-то в свойствах товара, необходимо нажать "Сохранить". Но если открыто окно Справочники/Объекты и фокус ввода (курсор) стоит в таблице справа, то название или код просто редактируется.
Возможна ситуация, когда человек, не глядя на экран, заполняет документ, вводит название или код, а в это время на экране - эта таблица, и текст вводится в нее.
Чисто интуитивно: добавить запятую в название, это не похоже на глюк программы, слишком по-человечески.

P.S. Если в Сервис/Пользователи/Права запретить изменения в справочнике товаров, то никаким способом названия невозможно будет изменить.

1.png
1.png (24.98 КБ) Просмотров: 1407
dmitry
Разработчик
 
Сообщения: 3922
Зарегистрирован: Чт янв 27, 2011 3:43 pm

Re: Очень не приятный глюк в Проге.

Сообщение Array » Пн ноя 03, 2014 12:37 pm

dmitry писал(а):Чисто интуитивно: добавить запятую в название, это не похоже на глюк программы, слишком по-человечески.
1.png

наоборот похоже на прогу, это кагбудто винда добавляет (1) или (2) если папка с одинаковым названием.... хз может вирусня, но кому оно надо такую делать...
Array
 
Сообщения: 6
Зарегистрирован: Пн ноя 03, 2014 9:43 am

Re: Очень не приятный глюк в Проге.

Сообщение Array » Пн ноя 03, 2014 12:57 pm

Почти каждый день сохраняю БД
Порылся по архивам:
20.10.2014 с бд все впорядке
23.10.2014 бд перемешана

антивируску на сервак не ставил, может из-за вируса. Защиты у баз данных нету сам открыл аксесом базу данных нашел там наименования и запросто поменял руками.......без каких либо паролей.

Устанавливаю антивирус посмотрим что будет.


PS^ Разработчику если я отправлю вам БД с правильными наименованиями от 20.10.2014 и не правильными от 23.10.2014 возможно ли будет докопаться до истины?
Array
 
Сообщения: 6
Зарегистрирован: Пн ноя 03, 2014 9:43 am

Re: Очень не приятный глюк в Проге.

Сообщение dmitry » Вт ноя 04, 2014 10:04 am

Причина осталась непонятна, но если это произошло недавно, можно перенести правильные названия из копии.
Для этого:
- Скопировать текст ниже.
- Нажать в программе Ctrl+F10.
- Вставить текст, нажать "ОК".

(Появится окно "Открыть файл" - указать копию с правильными названиями).

Dim R As Predpr.TableSQL, Rold As Predpr.TableSQL
Dim DBold As Predpr.DataBase
Dim FileOld As String
Dim ch124 As String = Microsoft.VisualBasic.Chr(124)
Dim FileName As String = DB.Name
Dim FileMinName As String = System.IO.Path.GetFileNameWithoutExtension(FileName)
Dim FileDialog As New System.Windows.Forms.OpenFileDialog
FileDialog.Filter = "Копии" & ch124 & FileMinName & "*" & ch124 & "Базы данных" & ch124 & "*.xdb"
FileDialog.Title = "ОТКРЫТЬ КОПИЮ"
If FileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
FileOld = FileDialog.FileName
If FileOld = FileName Then
Microsoft.VisualBasic.MsgBox("Это база, с которой вы сейчас работаете.", , "Отмена")
Exit Sub
End If
DBold = New Predpr.DataBase(FileOld)
Rold = DBold.OpenRecordset("Articles", 2)
R = DB.OpenRecordset("Articles", 2)
Do While Not Rold.EOF
R.FindFirst("ID=" & Rold("ID"))
If R.NoMatch = False Then
R.Edit()
R("TextName") = Rold("TextName")
R("FullName") = Rold("FullName")
R.Update()
End If
Rold.MoveNext()
Loop
R.Close()
Rold.Close()
DBold.Close()
End If
dmitry
Разработчик
 
Сообщения: 3922
Зарегистрирован: Чт янв 27, 2011 3:43 pm


Вернуться в Использование программы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron