Простая СППР

@Fenlou · Регистрация: 11.03.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, дали задание написать простое СППР. 1С:П8.0. Я выбрал тему "телефоны". Но не пойму как сделать. Создал справочник телефон с реквизитами и все. Для создания СППР нужно написать запрос? Приведите пример пожалуйста!

@archlink87 · 03.10.2014, 09:27

а вы параметры "Камера" и "Операт_память" передали?

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Процедура Кнопка1Нажатие(Элемент)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |    Телефон.Наименование,
               |    Телефон.Камера,
               |    Телефон.Операт_память
               |ИЗ
               |    Справочник.Телефон КАК Телефон
               |ГДЕ
               |    Телефон.Камера = &ПолеВвода1
               |    И Телефон.Операт_память = &ПолеВвода2
               |
               |СГРУППИРОВАТЬ ПО
               |    Телефон.Наименование,
               |    Телефон.Камера,
               |    Телефон.Операт_память";
 
Запрос.УстановитьПараметр("ПолеВвода1",Камера);
Запрос.УстановитьПараметр("ПолеВвода2",Операт_память);
 
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
 
Пока Выборка.Следующий() Цикл
 
КонецЦикла;
ЭлементыФормы.ТабличноеПоле1.Значение=Результат.Выгрузить();
ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();
    
КонецПроцедуры

@duk337 · 03.10.2014, 11:19

Сообщение от Fenlou

Для создания СППР нужно написать запрос?

От количества апов мудрости не прибавляется.
1. Что такое СППР? Если Вам кажется, что аббревиатура однозначна, Вы заблуждаетесь. Причём, в Вашем прочтении её вообще никто не использует.
2. Для создания любой, даже малюсенькой, системки автоматизирования нужен прежде всего алгоритм её решения.

@Fenlou · 05.10.2014, 15:40 **[ТС]**

Сообщение от archlink87

а вы параметры "Камера" и "Операт_память" передали?

{ОбщаяФорма.Форма(18,40)}: Переменная не определена (Камера)
Запрос.УстановитьПараметр("ПолеВвода1",< <?>>Камера);
{ОбщаяФорма.Форма(19,40)}: Переменная не определена (Операт_память)
Запрос.УстановитьПараметр("ПолеВвода2",< <?>>Операт_память);

@Dethmontt · 05.10.2014, 18:43

Не по теме:

Сообщение от Fenlou

Переменная не определена

Всегда задавался вопросом, что не понятно в словах "Переменная не определена" ?

@wwall · 05.10.2014, 19:15

За пролог прочти. Реализовать его интерпритатор на 1С не так и сложно, а вот возможностей даст на порядок больше.
Можешь еще за базы знаний почитать - как они реализовываются на реляционных БД. Представление знаний вообще вещь интересная.

@Fenlou · 05.10.2014, 21:05 **[ТС]**

Сообщение от Dethmontt

Переменная не определена"

как ее определить в запросе?

@Dethmontt · 05.10.2014, 21:17

Fenlou, в запросе ее не нужно определять! она должна быть определена в данном контексте!

@duk337 · 05.10.2014, 23:32

Не по теме:

ей-богу, тролль. Вот ещё вариант троллинга: "У меня в системе ХЗКПЦ Константа не заводится. Помогите!"

@Dethmontt · 06.10.2014, 00:03

Не по теме:

Сообщение от duk337

Константа не заводится. Помогите!"

С толкоча?

@duk337 · 06.10.2014, 01:01

Не по теме:

Dethmontt, :D именно, предварительно залив в картер ведро компрессии

@wladimir_ui · 06.10.2014, 06:51

Fenlou, выложи базу

@Fenlou · 06.10.2014, 13:40 **[ТС]**

Сообщение от wladimir_ui

выложи базу

http://rghost.ru/58377911

Добавлено через 3 минуты

Сообщение от wladimir_ui

выложи базу

помогите написать запрос с параметром, по "Камера", "Операт_память".

@wladimir_ui · 06.10.2014, 16:35

едрить, 8.0 шоле?

@Fenlou · 06.10.2014, 16:45 **[ТС]**

Сообщение от wladimir_ui

едрить, 8.0 шоле?

да, она самая.

@wladimir_ui · 06.10.2014, 17:17

1C
1
2
Запрос.УстановитьПараметр("ПолеВвода1",ПолеВвода1);
Запрос.УстановитьПараметр("ПолеВвода2",ПолеВвода2);

Как вы яхту назовёте, так она и поплывет (с)

@wladimir_ui · 06.10.2014, 17:22

Не по теме:

некрофил, в следующий раз 1Cv8.1CD архивь и выкладывай, чтоб его конвертнуть можно было, а не искать платформу 10 летней давности...
з.ы. следующего раза надеюсь не будет

...

@duk337 · 06.10.2014, 21:58

wladimir_ui, ...

...

@Fenlou · 10.10.2014, 15:50 **[ТС]**

Условие немного изменилось, запрос будет исходить из 3 документов, именно бренды телефонов.
Вот что я написал:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Процедура Кнопка1Нажатие(Элемент)
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    Lenovo.ОперативнаяПамять,
                   |    Lenovo.ОС,
                   |    Lenovo.Камера
                   |ИЗ
                   |    Документ.Lenovo КАК Lenovo,
                   |    Документ.Nokia КАК Nokia,
                   |    Документ.Samsung КАК Samsung
                   |ГДЕ
                   |    Lenovo.ОперативнаяПамять > &ПолеВвода2
                   |    И Lenovo.ОС = &ПолеВвода3
                   |    И Lenovo.Камера >= &ПолеВвода1
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |    Nokia.ОперативнаяПамять,
                   |    Nokia.ОС,
                   |    Nokia.Камера
                   |ИЗ
                   |    Документ.Nokia КАК Nokia
                   |ГДЕ
                   |    Nokia.ОперативнаяПамять = &ПолеВвода2
                   |    И Nokia.ОС = &ПолеВвода3
                   |    И Nokia.Камера = &ПолеВвода1
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |    Samsung.ОперативнаяПамять,
                   |    Samsung.ОС,
                   |    Samsung.Камера
                   |ИЗ
                   |    Документ.Samsung КАК Samsung
                   |ГДЕ
                   |    Samsung.ОперативнаяПамять = &ПолеВвода2
                   |    И Samsung.ОС = &ПолеВвода3
                   |    И Samsung.Камера = &ПолеВвода1";
    
    Результат = Запрос.Выполнить();
        
Запрос.УстановитьПараметр("ПолеВвода1",ПолеВвода1);
Запрос.УстановитьПараметр("ПолеВвода2",ПолеВвода2);
Запрос.УстановитьПараметр("ПолеВвода3",ПолеВвода3);
 
ЭлементыФормы.ТабличноеПоле1.Значение=Результат.Выгрузить();
ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();
    
КонецПроцедуры

Добавлено через 51 секунду

Сообщение от wladimir_ui

Как вы яхту назовёте, так она и поплывет

условия поменялись, помогите исправить ошибку!

@archlink87 · 10.10.2014, 15:51

И ошибка .....

@wwall · 10.10.2014, 15:53

Сообщение от Fenlou

| Документ.Lenovo КАК Lenovo, | Документ.Nokia КАК Nokia, | Документ.Samsung КАК Samsung

Это что????? Я конечно понимаю что мозгом думать уже не надо. Есть компьютеры...
Но указывать условия для соединения - это же на подсознательном уровне должно быть

Новые блоги и статьи Все статьи Все блоги /
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .

@Fenlou 1 / 1 / 2 Регистрация: 11.03.2014 Сообщений: 489

	1C 8.x Простая СППР 30.09.2014, 09:51. Показов 6097. Ответов 82 Метки нет (Все метки) Здравствуйте, дали задание написать простое СППР. 1С:П8.0. Я выбрал тему "телефоны". Но не пойму как сделать. Создал справочник телефон с реквизитами и все. Для создания СППР нужно написать запрос? Приведите пример пожалуйста! 0

@wwall 213 / 204 / 15 Регистрация: 29.05.2014 Сообщений: 1,058
	05.10.2014, 19:15
	За пролог прочти. Реализовать его интерпритатор на 1С не так и сложно, а вот возможностей даст на порядок больше. Можешь еще за базы знаний почитать - как они реализовываются на реляционных БД. Представление знаний вообще вещь интересная. 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,701 Записей в блоге: 1
	05.10.2014, 21:17
	Fenlou, в запросе ее не нужно определять! она должна быть определена в данном контексте! 0

@duk337
	05.10.2014, 23:32
	Не по теме: ей-богу, тролль. Вот ещё вариант троллинга: "У меня в системе ХЗКПЦ Константа не заводится. Помогите!" 0

@duk337
	06.10.2014, 01:01
	Не по теме: Dethmontt, :D именно, предварительно залив в картер ведро компрессии 0

@wladimir_ui Шизофреник 361 / 363 / 83 Регистрация: 25.06.2013 Сообщений: 1,141
	06.10.2014, 06:51
	Fenlou, выложи базу 1

@wladimir_ui Шизофреник 361 / 363 / 83 Регистрация: 25.06.2013 Сообщений: 1,141
	06.10.2014, 16:35
	едрить, 8.0 шоле? 1

@wladimir_ui Шизофреник 361 / 363 / 83 Регистрация: 25.06.2013 Сообщений: 1,141
	06.10.2014, 17:22
	Не по теме: некрофил, в следующий раз 1Cv8.1CD архивь и выкладывай, чтоб его конвертнуть можно было, а не искать платформу 10 летней давности... з.ы. следующего раза надеюсь не будет ... 1

@duk337 2956 / 1768 / 84 Регистрация: 03.11.2011 Сообщений: 8,280
	06.10.2014, 21:58
	wladimir_ui, ...... 0

@archlink87 16 / 16 / 3 Регистрация: 22.03.2012 Сообщений: 85
	10.10.2014, 15:51
	И ошибка ..... 0