Переходить на ТП - по вкусу.
Мне почему нужен расчет по каждой строчке каждый раз: работает порядка 30 продавцов в единой базе и скоро планируется еще 10-15. И продажа единицы товара двум покупателям (срок поставки может доходить до 3 месяцев) из наличия, хотя товара всего одна единица, может привести к выплате неустойки приличного размера. Поэтому, расчет остатка нужен постоянный.

Да, согласен. При проведении документа 1С ругнется на отсутствие остатков. Но у нас не 30 штук на остатке, а 1-2, и стоимость обычно более 50т.р.. Один продавец скажет клиенту, что есть в наличии и второй. Первый оформит и проведет, а второй в итоге скажет, извините, оказывается нет в наличии, а только под заказ со сроком поставки 45 дней. Человек скорее всего развернется и уйдет, т.к. его обманули. А вот если бы ему сказали сразу, мол нет в наличии и только под заказ, дали бы доп. скидку и пр., то наверняка он бы согласился. Процесс оформления договора может длиться и пол часа, т.к. товар дорогой. Поэтому чем актуальней информация, тем лучше.

Neo писал(а) 17. Сентября 2010 :: 05:54:


Тем более, что обычные формы списка тоже имеют таймаут обновления, который задается в Сервис-параметры.

Neo писал(а) 17. Сентября 2010 :: 07:24:


Можно принудительно обновлять форму списка по таймауту.

У нас останки только в подборе. А больше они никому и не упали.
Всё можно отчетом поглядеть.

Хочу параметрическим запросом получить из регистра ПартииНаличие себестоимость рублевую (СуммаРуб/Кол) и долларовую (СуммаУпр/Кол). Можно ли это (и лучше ли) сделать в одном запросе или лучше сделать 3 раза ВыполнитьСкалярный?      

Т.е., просто остатки получаю как-то так:

//Остатки товара в партиях
           RS_СебестКол=СоздатьОбъект("ODBCRecordset");
           ТекстЗапроса_СебестКол = "
           |SELECT
           |SUM($Рег.Количество) as Количество
           |FROM
           |$РегистрИтоги.ПартииНаличие as Рег With (NOLOCK)
           |WHERE
           |Рег.PERIOD= cast('"+стрдатыТА+"'as datetime) AND
           |$Рег.Товар = ?";
           
           RS_СебестКол.Подготовить(ТекстЗапроса_СебестКол);
RS_СебестКол.ПостроитьПараметры();

                             RS_СебестКол.УстПараметр(1,Тов);
Ост=RS_СебестКол.ВыполнитьСкалярный();

Как получить обе себестоимости наиболее оптимально, чтобы было меньше обращений к базе, т.к., будет юзаться в форме списка?

У меня тоже появилась такая необходимость.
Сделал тестовую обработку. Выполнил ее не монопольно на рабочем сервере в копии рабочей базы при активной работе пользователей (в других базах).
Конфигурация: Windows 2008 Server, MS SQL 2008, 1С 27 релиз патченный-перепатченный  

Код:

Перем глОстТовара  Экспорт;

//*******************************************
Процедура ПриОткрытии()
     стрдатыТА=строка(формат(НачМесяца(ПолучитьДатуТА()),"ДГГГГММДД"));
     глОстТовара = СоздатьОбъект("ODBCRecordset");
     ТекстЗапроса = "
     |SELECT
     |      SUM($Рег.ОстатокТовара)
     |FROM
     |      $РегистрИтоги.ОстаткиТоваров Рег (NoLock)
     |WHERE
     |      Рег.PERIOD='"+стрдатыТА+"' AND
     |      $Рег.Товар = ?
     |";
     
     Если глОстТовара.Подготовить(ТекстЗапроса)=0 тогда
           сообщить("Ошибка подготовки запроса остатков по складу (гл)! "+глОстТовара.ПолучитьОписаниеОшибки()+РазделительСтрок+"Свяжитесь с админитсратором!!!");
     КонецЕсли;
     глОстТовара.ПостроитьПараметры();
КонецПроцедуры

//*******************************************
Функция глОстатокТовара(товар) Экспорт
     ост=0;
     глОстТовара.УстПараметр(1, товар);
     ост=глОстТовара.ВыполнитьСкалярный();
     Возврат ост;
КонецФункции

//*******************************************
Процедура Сформировать()
     спр=СоздатьОбъект("Справочник.Номенклатура");

     Для Инд=1 По 10 Цикл
           Сообщить("Попытка № "+Инд);
           спр.ВыбратьЭлементы();
           А=0;
           ОбщееНачало=_GetPerformanceCounter();
           Пока Спр.ПолучитьЭлемент()=1 Цикл
                 Если Спр.ЭтоГруппа()=1 Тогда
                       Продолжить;
                 КонецЕсли;
                 Ост=глОстатокТовара(Спр.ТекущийЭлемент());
                 А=А+1;
                 Если А=1000 Тогда
                       Прервать;
                 КонецЕсли;
           КонецЦикла;
           ОбщееВремя=(_GetPerformanceCounter()-ОбщееНачало)/1000;
           Сообщить("Прямой запрос = "+ОбщееВремя);
     
           спр.ВыбратьЭлементы();
           А=0;
           ОбщееНачало=_GetPerformanceCounter();
           Пока Спр.ПолучитьЭлемент()=1 Цикл
                 Если Спр.ЭтоГруппа()=1 Тогда
                       Продолжить;
                 КонецЕсли;
                 ");
                 А=А+1;
                 Если А=1000 Тогда
                       Прервать;
                 КонецЕсли;
           КонецЦикла;
           ОбщееВремя=(_GetPerformanceCounter()-ОбщееНачало)/1000;
           Сообщить("Регистр = "+ОбщееВремя);
     КонецЦикла;
КонецПроцедуры

//*******************************************

Результаты как-то не порадовали  
Попытка № 1
Прямой запрос = 39.703
Регистр = 43.021
Попытка № 2
Прямой запрос = 44.288
Регистр = 40.961
Попытка № 3
Прямой запрос = 38.426
Регистр = 39.642
Попытка № 4
Прямой запрос = 41.505
Регистр = 42.717
Попытка № 5
Прямой запрос = 41.22
Регистр = 38.238
Попытка № 6
Прямой запрос = 41.178
Регистр = 41.793
Попытка № 7
Прямой запрос = 38.793
Регистр = 40.759
Попытка № 8
Прямой запрос = 39.377
Регистр = 39.712
Попытка № 9
Прямой запрос = 40.323
Регистр = 39.845
Попытка № 10
Прямой запрос = 40.099
Регистр = 40.799