Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 14:34

Проблема с документом

Автор Luciano, 05 июн 2015, 10:50

0 Пользователей и 2 гостей просматривают эту тему.

Luciano

Цитата: Rasty от 08 июн 2015, 17:11
а где у вас цены тогда хранятся?


Справочник.Номенклатура (реквизит УчетнаяЦена)

Rasty

а процедура где выполняется? НаКлиенте или НаСервере?
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Luciano

Цитата: Luciano от 09 июн 2015, 07:56
Цитата: Rasty от 08 июн 2015, 17:11
а где у вас цены тогда хранятся?


Справочник.Номенклатура (реквизит УчетнаяЦена)


Добавилось
Не периодический
РегистрыСведений.УчетнаяЦена (Измерения - СправочникСсылка.Номенклатура,  Ресурс - УчетнаяЦена (Число 15,2  не отр.)

Модуль пустой

=============
Общие модули 2 штуки

РаботаСоСправочниками   (Сервер,Вызов Сервера)

Функция УчетнаяЦена (ЭлементНоменклатуры)Экспорт
//Создаем вспомогательный объект ОТБОР
Отбор = Новый Структура("Номенклатура", ЭлементНоменклатуры);
//Получаем значение УчетнойЦены
ЗначенияРесурсов = РегистрыСведений.УчетнаяЦена.Получить(Отбор);
Возврат ЗначенияРесурсов.УчетнаяЦена;
КонецФункции




РаботаСДокументами (Клиент (управляемое приложение)

Процедура РассчитатьСумму(СтрокаТЧ) Экспорт
СтрокаТЧ.Сумма = Число(СтрокаТЧ.Количество) * СтрокаТЧ.Цена;
КонецПроцедуры



Документ Заявка

Реквизиты
Подразделение (СравочникСсылка.Подразделения)
Заказчик (СправочникСсылка.ФизЛицо)
Объект (СправочникСсылка.Объект)
Датапоставки (Дата)

ТабличнаяЧасть Материалы

Номенклатура (СправочникСсылка.Номенклатура)
Количество (Число 15,3 неотрицательное)
ЕдИзмерения (СправочникСсылка.Номенклатура)
Цена (ЛюбаяСсылка)
Сумма (Число 15,2 неотрицательное)

Форма Документа

МатериалыНомерСтроки
МатериалыНоменклатура - Объект.Материалы.Номенклатура
Количество
МатериалыЕдИзмерения - Объект.Материалы.Номенклатура.ЕдиницаИзмерения
МатериалыЦена
МатериалыСумма

&НаКлиенте
Процедура МатериалыКоличествоПриИзменении(Элемент)
СтрокаТЧ = Элементы.Материалы.ТекущиеДанные;
РаботаСДокументами.РассчитатьСумму(СтрокаТЧ)
КонецПроцедуры




Вопросы :mellow:
1)Куда всунуть обработку для заполнения регистра сведений:dfbbdrfb:
2)Что нужно доделать для того, чтобы при добавлении в документ наименований из номенклатуры автоматически подставлялась УчетнаяЦена (как я понимаю из егистра сведений) и пересчитывалось поле Сумма при изменении количества.

Буду признателен, так как в голове уже бардак:(   

Rasty

НаСервере получаете реквизит Цена Строка.Номенклатура.Цена и чтоб тип был число, а цена реквизит справочника или формы?
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Luciano

Цитата: Rasty от 09 июн 2015, 10:13
НаСервере получаете реквизит Цена Строка.Номенклатура.Цена и чтоб тип был число, а цена реквизит справочника или формы?

Справочник.Номенклатура реквизит УчетнаяЦена (число 15,2) --->РегистрыСведений.УчетнаяЦена (Измерения СправочникСсылка.Номенклатура; Ресурс УчетнаяЦена Число 15,2)---->Документ Заявка (ТабличнаяЧасть.Материалы реквизит Цена(ЛюбаяСсылка)) 

Вот это не могу реализовать  :dfbsdfbsdf:

Rasty

Так при записи справочника создаете запись регистра сведений, потом пишите запрос на получение цен вот самый простой

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УчетнаяЦена.Цена
|ИЗ
| РегистрСведений.УчетнаяЦена КАК УчетнаяЦена
|ГДЕ
| УчетнаяЦена.Номенклатура = &Номенклатура";
Для Каждого Стр из ТЧ Цикл
Запрос.УстановитьПараметр("Номенклатура", Стр.Номенклатура);
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
Стр.Цена = Выборка.Цена;
КонецЦикла;
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

cska-fanat-kz

регистр цен - непериодический?

разве в Радченко нет в главе про регистры сведений получение текущей цены?!
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Rasty

Там все есть, только походу многим лень сидеть читать и делать...
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

vitasw

Цитата: Rasty от 09 июн 2015, 11:31
Там все есть, только походу многим лень сидеть читать и делать...
Святая истина.

Luciano

Цитата: Rasty от 09 июн 2015, 11:03
Так при записи справочника создаете запись регистра сведений, потом пишите запрос на получение цен вот самый простой

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УчетнаяЦена.Цена
|ИЗ
| РегистрСведений.УчетнаяЦена КАК УчетнаяЦена
|ГДЕ
| УчетнаяЦена.Номенклатура = &Номенклатура";
Для Каждого Стр из ТЧ Цикл
Запрос.УстановитьПараметр("Номенклатура", Стр.Номенклатура);
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
Стр.Цена = Выборка.Цена;
КонецЦикла;



Так справочник есть уже с записями как я понимаю нужна обработка

Теги: 8.2 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск