Как сделать, чтобы валюта была руб и цена в руб

[kuznetsovaolgav]

Добрый день!
подскажите, пожалуйста!
конфигурация 7.7
торговля и склад редакция 9.2 (7.7.962)
когда смотрю номенклатуру, нажимаю кнопку остатки по данной позиции товара, выходит окно показать остатки ТМЦ, далее вибираю где показать отстатки по - партиям в наличии.
Как сделать, чтобы валюта была руб и цена в руб????
Спасибо! 

[Herby]

Как сделать, чтобы валюта была руб и цена в руб????

Интерфейсно никак. Эта валютная цена в программном коде строго прописана - выводится всегда только цена в валюте.
Необходимо вносить изменения в программном модуле обработки "Показать остатки".

[kuznetsovaolgav]

это в конфигурацию заходить, а дальше куда?

[Herby]

это в конфигурацию заходить, а дальше куда?

дальше никуда, лучше программиста наймите.

Добавлено: 11 июн 2013, 11:35

если не можете нанять, но сильно хотите внести изменения, то могу подсказать, но все будете делать на свой страх и риск.

и, кстати, вы пользуетесь обновлениями конфигурации? Если вы сейчас внесете эти изменения, а через месяц-другой накатите обновление конфигурации, то эти изменения с рублевой ценой затрутся.

[kuznetsovaolgav]

нет, обновлений нет.
Буду признательна за помощь

Добавлено: 11 июн 2013, 11:40

могу сначала потренироваться на торговле и склад 7.70.947

[Herby]

Перед изменениями не забудьте сделать архивную копию базы.

1. В конфигураторе, в дереве метаданных найдите обработку "ПоказатьОстаткиТМЦ".
2. Откройте найденную обработку, и перейдите на закладку "Модуль" (эта закладка расположена снизу, рядом с закладкой "Диалог").
3. В отрытом модуле найдите процедуру ЗаполнитьПоПартиям() и полностью замените  ее на следующую процедуру:

Код Выделить Развернуть

Процедура ЗаполнитьПоПартиям()

ТаблОстатков =СоздатьОбъект("ТаблицаЗначений");
ПартииНаличие.УстановитьЗначениеФильтра("Номенклатура", ОбъектАнализа, 1);           
ПартииНаличие.ВыгрузитьИтоги(ТаблОстатков,1,1);

ТаблОстатков.Свернуть("Партия","Количество,СуммаРуб");

ТаблОстатков.ВыбратьСтроки();
Пока ТаблОстатков.ПолучитьСтроку() = 1 Цикл
    Если ТаблОстатков.Количество <> 0 Тогда
       
ТекПартия = ТаблОстатков.Партия;
ТаблицаФормы.НоваяСтрока();
ТаблицаФормы.Поставщик      = ТекПартия.Поставщик;
ТаблицаФормы.ВидСвойства    = ТекПартия.Свойство.Владелец;
ТаблицаФормы.Свойство       = ТекПартия.Свойство;
ТаблицаФормы.Остаток        = ТаблОстатков.Количество;
ТаблицаФормы.Единица        = СокрЛП(ОбъектАнализа.БазоваяЕдиница);
ТаблицаФормы.Цена           = глФРМ(ТаблОстатков.СуммаРуб / ТаблОстатков.Количество);
ТаблицаФормы.Валюта         = СокрЛП(глРубли);
ТаблицаФормы.Объект         = ТекПартия.ПриходныйДокумент;
КонецЕсли;
КонецЦикла;

КонецПроцедуры // ЗаполнитьПоПартиям()


4. Сохраните изменения. Закройте конфигуратор.

[kuznetsovaolgav]

спасибо! сейчас попробую

Добавлено: 11 июн 2013, 12:37

теперь внизу показывает :
ТаблицаФормы.Цена           = глФРМ(ТаблОстатков.СуммаРуб / ТаблОстатков.Количество);
{Обработка.ПоказатьОстаткиТМЦ.Форма.Модуль(530)}: Поле агрегатного объекта не обнаружено (СуммаРуб)

[Herby]

Вы точно всю процедуру заменили?

[kuznetsovaolgav]

да

[Herby]

1. В этой процедуре найдите строку ТаблОстатков.Свернуть("Партия",)  - и напишите что в скобках у вас стоит?
2. там же в конфигураторе, раскройте Регистры - ПартииНаличие - Ресурсы - и напишите какие ресурсы там указаны