|
8.2 колонка с одним из типов цен в списке номенклатуры. | ☑ | ||
---|---|---|---|---|
0
GruNow
17.11.11
✎
17:26
|
ЗДРАВСТВУЙТЕ! Знаю, сейчас все будут дружно ругаться, но я уже отчаялся.
Открыл конфигуратор Справочники->номенклатура добавил реквизит "цена" в форму списка добавил колонку, ее элемент указываю - "поле ввода" на поле ввода вешаю код Как оформить созданный в номенклатуре реквизит "цена" (имею ввиду свойства)? На какое событие в поле ввода вешать код, и как само это поле тоже настроить? Код - это вообще жесть, не знаю что и делать, смотрел много, плотно, но ничего не нашел, все что нашел - не пашет. Вот самый близкий к правде, на мой взгляд, код(не работает): [CODE]Функция ПолучитьЦенуНоменклатурыПоТипуЦен(Дата, ТипЦен, НаименованиеТовара) Экспорт Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура, | ЦеныНоменклатурыСрезПоследних.Цена КАК Цена |ИЗ | РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дата, ТипЦен=&ТипЦен) | КАК ЦеныНоменклатурыСрезПоследних |ГДЕ | ЦеныНоменклатурыСрезПоследних.Номенклатура.Наименование = &Название"; Запрос.УстановитьПараметр("Дата", Дата); Запрос.УстановитьПараметр("ТипЦен", СправочникиТипыЦенНоменклатуры.НайтиПоНименованию(ТипЦен)); Запрос.УстановитьПараметр("Название", НименованиеТовара); Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл НайденнаяЦена = Выборка.Цена; КонецЦикла; Возврат НайденнаяЦена; КонецФункции[/CODE] Я не умею программить на 1с, но хочу обучиться, а вопросы некоторые уже сейчас приходится решать, читаю "1с программирование как 2х2", но эта книга настолько запутана, что до конца года буду разбираться. Помогите советом, научите, скажите как самому научиться, мозг скоро лопнет. |
|||
1
Pozdnyakov
18.11.11
✎
12:42
|
Здравствуйте zoomerland!
Создаете в форме списка справочника Номенклатура новую колонку, даете ей имя (например Цена). Ищете в свойствах Списка событие /"ПриПолученииДанных/" и помещаете туда следующий код: Процедура СписокПриПолученииДанных(Элемент, ОформленияСтрок) НайденнаяСтрока = Неопределено; Запрос = Новый Запрос; Запрос.Текст = /"ВЫБРАТЬ | ЦеныНоменклатурыСрезПоследних.Цена КАК Цена, | ЦеныНоменклатурыСрезПоследних.ТипЦен, | ЦеныНоменклатурыСрезПоследних.Номенклатура |ИЗ | РегистрСведений.ЦеныНоменклатуры.СрезПоследних(, ТипЦен.Наименование = /"/"Закупочная/"/") КАК ЦеныНоменклатурыСрезПоследних/"; Результат = Запрос.Выполнить().Выгрузить(); Для каждого ОформлениеСтроки из ОформленияСтрок Цикл ОтборСтрок = Новый Структура(); ОтборСтрок.Вставить(/"номенклатура/",ОформлениеСтроки.ДанныеСтроки.Ссылка); НайденныеСтроки = Результат.НайтиСтроки(ОтборСтрок); Если НайденныеСтроки.Количество() > 0 Тогда Для каждого Строка из НайденныеСтроки Цикл Цена = Строка.Цена; КонецЦикла; ОформлениеСтроки.Ячейки.Цена.Значение = Формат(Цена, /"ЧДЦ = 2/"); КонецЕсли; КонецЦикла; КонецПроцедуры Так можно вытащить любой тип цен. |
|||
2
ProProg
18.11.11
✎
12:42
|
ипона мать. ковырятель.
|
|||
3
ProProg
18.11.11
✎
12:43
|
Иди на курсы учится. И потом пару лет во фране работать. Как минимум.
|
|||
4
GruNow
18.11.11
✎
15:38
|
(1)
Спасибо большое, очень рад что вы откликнулись, хоть начал немного понимать что откуда и куда. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |