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

Как можно увеличить производительность при 65 000 объектах учета? Наличие меньше но от этого не легче.
Тормозит при оприходывании товаров, на каждой строке по 5-6сек, про открытие прайса я молчу но прайс это не критично.
Стоит ли задуматься о переходе на SQL?
И еще как можно проставить наценки в прайсах отталкиваясь от себестоимости и валюты себестоимости, всмыле не руками выделять по каждой строчке с зажатым CTRL?

Пример: Все товары до 1000грн наценка 40%, свыше 1000грн - 30%

P.S.: Кстати мультивыдиление в таблицах, с SHIFT или CTRL+SHIFT например, вполне сгодилось бы.

point_5 писал(а):Тормозит при оприходывании товаров, на каждой строке по 5-6сек...

Конкретно в этой ситуации: перед заполнением приходной накладной перейти в ней в раздел "Настройка" и выбрать "Прайс - Не использовать".

point_5 писал(а):Стоит ли задуматься о переходе на SQL?

Да. Попробуйте - и все будет понятно. Вы его только загрузите (http://www.microsoft.com/ru-ru/download/details.aspx?id=1695), потом можете позвонить - я подключусь, сделаю остальное.

point_5 писал(а):И еще как можно проставить наценки в прайсах отталкиваясь от себестоимости и валюты себестоимости, всмыле не руками выделять по каждой строчке с зажатым CTRL?
Пример: Все товары до 1000грн наценка 40%, свыше 1000грн - 30%

Задача стоит так: как выбрать в таблице все товары, где себестоимость < или > 1000 (потом ввести внизу %, нажать "Установить наценку").
- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить скопированный текст, нажать "ОК".

Dim FrmPr as predpr.FrmPriceList
Dim Str as String
FrmPr=Predpr.GlobalFunction.OpenForm("FrmPriceList")
Str=Predpr.GlobalFunction.GetInputBox("Условие: себестоимость","","<1000")
If Str<>"" Then
FrmPr.Grid.Filter="PriceIn" & Str
End If

Без проверки цен скорость поиска заметно лучше не стала 5-6сек на строку.
Будем пробовать заполнять через "Заполнить" но там тоже 20-25 сек загрузка. А SQL чуть позже попробуем.

Код по CTRL+F10 работает, но нужно еще отфильтровать по валюте себестоимости.

point_5 писал(а):Без проверки цен скорость поиска заметно лучше не стала 5-6сек на строку.

Поиск с 65000 названий будет медленным. Дело в том, что при поиске программа сравнивает каждое название с введенным текстом, убирая в названии вспомогательные символы. Это делается для того, чтобы не накапливались дубликаты товаров, отличающиеся пробелами, скобками, кавычками...

point_5 писал(а):Код по CTRL+F10 работает, но нужно еще отфильтровать по валюте себестоимости.

Менее изящный, но более гибкий фильтр (PriceIn - цена закупки, CurrIn - валюта закупки):

Dim FrmPr as predpr.FrmPriceList
Dim Str as String
FrmPr=Predpr.GlobalFunction.OpenForm("FrmPriceList")
Str=Predpr.GlobalFunction.GetInputBox("Условие:","","PriceIn<1000 and CurrIn='грн'")
If Str<>"" Then
FrmPr.Grid.Filter=Str
End If

dmitry писал(а):Поиск с 65000 названий будет медленным. Дело в том, что при поиске программа сравнивает каждое название с введенным текстом, убирая в названии вспомогательные символы. Это делается для того, чтобы не накапливались дубликаты товаров, отличающиеся пробелами, скобками, кавычками...

А что насчет SQL особого ускорения не получиться или лучше пробовать?

Получится. Например при открытии прайс-листа или нажатии "Заполнить".

Переход на SQL значительно ускорил работу, рекомендую.