Имя: Пароль:
1C
1С v8
Данные из регистра сведений
0 Kostik2013
 
26.02.13
14:17
Доброго времени суток!Есть регистр сведений и в нем хранится цена номенклатуры.Еще есть документ квитанция,в которой при выборе номенклатуры должна записаться цена из регистра на данный товар.Подскажите каким способом это можно решить?
1 zladenuw
 
26.02.13
14:21
запрос к РС ценам номенклатуры по срезу последних, с отбором по номенклатуре. как то так
2 rbcvg
 
26.02.13
14:45
в типовых подобного навалом
3 Kostik2013
 
26.02.13
14:58
а таким способом как в синтаксис помощнике можно это сделать?
4 rbcvg
 
26.02.13
14:58
я не против
5 Kostik2013
 
26.02.13
15:01
(4) но оно не передаст цену в документ я правильно понимаю?
6 pessok
 
26.02.13
15:03
(5) в СП ПолучитьПоследнее()? лучше таки запросом.
Резу = Запрос.Выполнить();
Если Не Рез.Пустой() Тогда
ЭлементыФормы.Товары.ТекущаяСтрока.Цена = Рез.Выгрузить()[0].Цена;
КонецЕсли
7 Deon
 
26.02.13
15:04
(6) почему лучше запросом?
8 pessok
 
26.02.13
15:05
(7) та хз... вроде как-то "так принято" :)
9 Kostik2013
 
26.02.13
15:08
Всем большущее спасибо!Буду пробовать!
10 Kostik2013
 
26.02.13
15:50
Нашел такой способ,но не работает...

&НаСервере
Функция ОпределитьДиагностику(Аппарат,Диагностика)
   Отбор=Новый Структура ("Аппарат",Аппарат);
   Отбор.Вставить("Диагностика",Диагностика);
   СтрокаРегистра=РегистрыСведений.ЦеныДиагностика.ПолучитьПоследнее(Объект.Дата,Отбор);
   Цена=СтрокаРегистра.Диагностика;
   Возврат Диагностика;
КонецФункции
11 Rovan
 
гуру
26.02.13
16:16
(10) че-то как-то не то в королевстве Датском:
Цена=СтрокаРегистра.Диагностика;
Возврат Диагностика;
12 Kostik2013
 
26.02.13
16:55
(11) заменил цену на диагностику и все равно не работает..
13 Kostik2013
 
26.02.13
17:10
может подскажите что не так?
14 Deon
 
26.02.13
17:12
(13) Код покажи. И чё за диагностика такая?
15 Kostik2013
 
26.02.13
17:14
(14) это весь код)Диагностика это ресурс в регистре и реквизит в квитанции куда и нужно выгрузить стоимость
16 Deon
 
26.02.13
17:15
(15) Убери тогда Отбор.Вставить("Диагностика",Диагностика); и всё будет пучиком
17 Kostik2013
 
26.02.13
17:20
(16) жаль,не помогло...
18 Deon
 
26.02.13
17:20
(17) Код покажи
19 Kostik2013
 
26.02.13
17:21
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   Если  Объект.Ссылка.Пустая() тогда  //если новый заказ
       
       Объект.Организация          = Константы.ОсновнаяОрганизация.Получить();
       Объект.ПодразделениеБизнеса = Константы.ОсновноеПодразделениеБизнеса.Получить();
       ТекФизЛицо = параметрыСеанса.ТекущийПользователь.ФизЛицо;
       Если ТекФизЛицо.Пустая() тогда
           сообщить("Не заполнено физ лицо по умолчанию!");
       иначе
           Объект.Автор = параметрыСеанса.ТекущийПользователь.ФизЛицо;
       Конецесли;
       Объект.Диагностика = 25;
       Объект.КлиентСтрокаСправочник = 1;
   иначе
       ЭтаФорма.ТолькоПросмотр = ОбщийСервер.ДатаЗапретаРедактирования(объект.Дата);
       
   Конецесли;
   
КонецПроцедуры

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
   ШК = Формат(ТекущийОбъект.Дата, "ДФ=dd") + Формат(ТекущийОбъект.Дата, "ДФ=MM")+ Формат(ТекущийОбъект.Дата, "ДФ=yy") + Прав(ТекущийОбъект.Номер,7);
   ТекущийОбъект.ИдШтрихКод = ШК;
КонецПроцедуры

Функция СтрокаИлиСправочник()
   ТекКлиент = Объект.КлиентСтрокаСправочник = 1;
   возврат  ТекКлиент;
КонецФункции

&НаКлиенте
Процедура КлиентСтрокаСправочникПриИзменении(Элемент)
   Элементы.КлиентСтрока.Видимость  = СтрокаИлиСправочник();
   Элементы.Клиент.Видимость        = не СтрокаИлиСправочник();
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   КлиентСтрокаСправочникПриИзменении(неопределено);
КонецПроцедуры

&НаСервере
Функция ОпределитьДиагностику(Аппарат,Диагностика)
   Отбор=Новый Структура ("Аппарат",Аппарат);
   //Отбор.Вставить("Диагностика",Диагностика);
   СтрокаРегистра=РегистрыСведений.ЦеныДиагностика.ПолучитьПоследнее(Объект.Дата,Отбор);
   Диагностика=СтрокаРегистра.Диагностика;
   Возврат Диагностика;
КонецФункции
20 Deon
 
26.02.13
17:30
(19) А хде событие при изменении номенклатуры?
21 Kostik2013
 
26.02.13
17:33
(20) хммм должно быть получается,но только его нет... У меня получается не просто номенклатура а группа номенклатуры...
22 Deon
 
26.02.13
17:34
(21) в квитанции - группа номенклатуры? Эт как-то неправильно )
23 Kostik2013
 
26.02.13
17:39
(22) у меня есть квитанция по ремонту,в ней поле аппарат (номенклатура) и поле диагностика (стоимость диагностики товара).Есть группы номенклатуры:Планшеты,телефоны и т.д.Вот когда я выбираю телефон независимо какой,должна автоматом поставиться сумма диагностики так как на все телефоны стоимость одинакова
24 Kostik2013
 
26.02.13
17:49
И в регистре теперь хранятся цены на эти группы и их надо как-то вытащить в квитанцию....
25 Kostik2013
 
26.02.13
17:59
Help please....(
26 Kostik2013
 
26.02.13
18:43
неделю уже мучаюсь с этой фигней!
2 + 2 = 3.9999999999999999999999999999999...