Какую функцию выбрать

@kegl9 · Регистрация: 13.07.2010

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

Подскижите какая функция у кнопки Да, или нужно ее самому прописывать?
Есть ОБЩАЯ форма приветствия пользователя, где нужно вводить фио.

Подскажите какие функции нужно выбрать, что бы при нажатии на Да, можно было передавать данные в Справочник?

@fimbulwinter · 26.06.2011, 20:04

1C
1
2
3
4
5
6
7
8
9
10
11
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
        Фамилия = Параметры.Фамилия;
КонецПроцедуры 
 
&НаКлиенте
Процедура Далее(Команда)
        Перем ТекущиеДанные;
        ТекущиеДанные = Элементы.Список.ТекущиеДанные;
    ОткрытьФорму("ОбщаяФорма.Вопросы", Новый Структура("Фамилия", ТекущиеДанные.Фамилия));                         
КонецПроцедуры

Это все в одном модуле?

@kegl9 · 26.06.2011, 21:52 **[ТС]**

да в одном модуле

@fimbulwinter · 26.06.2011, 22:09

почему то у меня такое чувство, что ты одну и ту же форму пытаешься открыть. Это раз.
Второе, необходима проверка на наличие параметра. Платформы под рукой нету. на память не помню. То ли Параметр.Свойство("<Имя свойства>"), то ли Найти()...
Кажется первое.
тогда так:
Если Параметр.Свойство("Фамилия") Тогда
ЧтоТоТам = Параметр.Фамилия;
...
КонецЕсли;

Зачем вообще перем в процедуре?

@kegl9 · 26.06.2011, 22:57 **[ТС]**

у меня есть 2 общие формы
Первая это регистрация, Вторая показывает кто зарегистрировался и показывает вопросы (пока только один вопрос)
Интересно попробовать передать информацию с формы на форму. Просто открыть форму получается, а вот передать данные с формы на форму не получается.

Сейчас попробую ваш пример и позже напишу получилось или нет

@kegl9 · 26.06.2011, 23:00 **[ТС]**

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

Зачем вообще перем в процедуре?

В примере по которому делала, переменная была объявлена в процедуре

@fimbulwinter · 27.06.2011, 00:24

объясню более понятно
Процедура При создании на сервере у тебя скорее всего находится не в том модуле. Она должна находиться в модуле формы Вопросы

1C
1
2
3
4
5
6
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("Фамилия") Тогда
        Фамилия = Параметры.Фамилия;
КонецЕсли;
КонецПроцедуры

в форме регистрации код должен быть примерно следующий

1C
1
2
3
4
5
&НаКлиенте
Процедура Далее(Команда)
        ПараметрыФормы = Новый Структура("Фамилия", Фамилия);
    ОткрытьФорму("ОбщаяФорма.Вопросы", ПараметрыФормы);                         
КонецПроцедуры

Подозреваю что реквизит на форме у тебя называется "Фамилия", в таком случае нет необходимости получать значение Через элементы формы. Уже обсуждалось мною например вот тут.

@kegl9 · 05.07.2011, 14:21 **[ТС]**

Подскажите пожалуйста возможна передача нескольких параметров в одно поле?

И при использовании такого кода, ругается, что много параметров передаю, подскажите как будет правильнее

1C
1
2
3
        Если Параметры.Свойство("Фамилия", "Имя", "Отчество") Тогда
        СертификациюПроходит = Параметры.Фамилия + " " + Параметры.Имя + " " + Параметры.Отчество;
        КонецЕсли;

@fimbulwinter · 05.07.2011, 15:20

свойство - оно одно. См. описание метода "Свойство()"
почему бы сразу в параметры не передать полное имя?

ПараметрыФормы = Новый Структура("ПолноеИмя", Фамилия + " " + Имя + " " + Отчество);

Ну и соответственно в форме

1C
1
2
3
Если Параметры.Свойство("ПолноеИмя") Тогда
                СертификациюПроходит = Параметры.ПолноеИмя;
КонецЕсли;

@kegl9 · 07.07.2011, 09:16 **[ТС]**

Добрый день, подскажите как делать цикл. Есть форма вопросов. На нее вывожу 1 вопрос, пользователь видит 3 варианта ответа и выбрав 1 ответ должна идти проверка правильности ответа и зачисление балла, после чего должен выводиться следующий вопрос

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
Перем ПеремКод;
&НаСервере
Процедура ДобавитьИзСервера() 
    
        Выборка = Справочники.Вопросы.Выбрать();
        Пока Выборка.Следующий() Цикл
        СПВоп = Выборка.ПолучитьОбъект();
        
        Вопрос    =  СПВоп.Наименование;
        Вариант1  = СПВоп.Ответ1;
        Вариант2  = СПВоп.Ответ2;
        Вариант3  = СПВоп.Ответ3;
        ПравОтвет = СПВоп.ПравОтвет;
        КонецЦикла
КонецПроцедуры
 
&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПеремКод = 0;
    ДобавитьИзСервера();
        
    Если Верен1Ответ = 1 Тогда
        //  сравнение этого ответа с правильным и если равны балл+1    
        Если Вариант1 = ПравОтвет Тогда
        ПеремКод=ПеремКод+1;    
        КонецЕсли  
        //Переход на следующий вопрос и снятие галочек 
    КонецЕсли;
    
    Если Верен2Ответ = 1 Тогда
        
        Если Вариант2 = ПравОтвет Тогда
        ПеремКод=ПеремКод+1;    
        КонецЕсли  
        //Переход на следующий вопрос и снятие галочек    
    КонецЕсли;
    
    Если Верен3Ответ = 1 Тогда
        Если Вариант3 = ПравОтвет Тогда
        ПеремКод=ПеремКод+1;    
        КонецЕсли  
        //Переход на следующий вопрос и снятие галочек    
    КонецЕсли;
КонецПроцедуры

Думаю еще нужно счетчик ставить, если колВопр = 10 тогда вывод результата

1C
1
2
3
4
5
6
7
8
9
10
&НаСервере
Процедура Тата()
 Сообщить("Вы набрали " + ПеремКод + " баллов");
КонецПроцедуры
 
&НаКлиенте
Процедура ПриЗакрытии()
    // Вставить содержимое обработчика.
      Тата();
КонецПроцедуры

@kegl9 · 10.07.2011, 16:18 **[ТС]**

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

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
&НаСервере
Функция ПоискВопроса(КодВопроса) 
        
    СПВоп = Справочники.Вопросы;
    Выборка = СПВоп.НайтиПоКоду(КодВопроса);
    Если Выборка.Пустая() Тогда
    Сообщить("Вопрос не найден");
    Иначе
        Вопрос    = Выборка.Наименование;
        Вариант1  = Выборка.Ответ1;
        Вариант2  = Выборка.Ответ2;
        Вариант3  = Выборка.Ответ3;
        ПравОтвет = Выборка.ПравОтвет;
    КонецЕсли; 
КонецФункции

Потом вывожу вопрос на экран

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПеремКод = 0;
Номер = Новый Массив (5);
Номер[0] = "000000001";
Номер[1] = "000000002";
Номер[2] = "000000003";
Номер[3] = "000000004";
Номер[4] = "000000005";
Флаг = 0;
КолВопр = Номер[0];
 
    Если флаг < 6 Тогда
    ПоискВопроса(КолВопр);
          Флаг = Флаг + 1;
      Иначе
        тата(); // процедура должна показывать сколько набрали баллов
      КонецЕсли;
    
    КолВопр = Номер[Флаг];
 
КонецПроцедуры

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

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
&НаКлиенте
  Процедура Верен1ОтветПриИзменении(Элемент)
      // Вставить содержимое обработчика.
      
      Если Верен1Ответ = Истина Тогда
          Если Вариант1 = ПравОтвет Тогда
            Сообщить ("да");
            ПеремКод = ПеремКод + 1;
        иначе
            Сообщить ("нет");
        КонецЕсли;
        КонецЕсли;
  КонецПроцедуры
 
  &НаКлиенте
  Процедура Верен2ОтветПриИзменении(Элемент)
      // Вставить содержимое обработчика.
      
      Если Верен2Ответ = Истина Тогда
          Если Вариант2 = ПравОтвет Тогда
            Сообщить ("да");
            ПеремКод = ПеремКод + 1;
        иначе
            Сообщить ("нет");
        КонецЕсли;
        КонецЕсли;
  КонецПроцедуры
 
  &НаКлиенте
  Процедура Верен3ОтветПриИзменении(Элемент)
      // Вставить содержимое обработчика.
      
      Если Верен3Ответ = Истина Тогда
          Если Вариант3 = ПравОтвет Тогда
            Сообщить ("да");
            ПеремКод = ПеремКод + 1;
        иначе
            Сообщить ("нет");
        КонецЕсли;
        КонецЕсли;
  КонецПроцедуры

Подскажите как сделать, что бы вопрос менялся. Потому что когда использую флаг программа зацикливается. А когда использую только один шаг, следующий вопрос не показывается

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@kegl9 0 / 0 / 0 Регистрация: 13.07.2010 Сообщений: 34

	Какую функцию выбрать 19.06.2011, 14:34. Показов 4278. Ответов 29 Метки нет (Все метки) Подскижите какая функция у кнопки Да, или нужно ее самому прописывать? Есть ОБЩАЯ форма приветствия пользователя, где нужно вводить фио. Подскажите какие функции нужно выбрать, что бы при нажатии на Да, можно было передавать данные в Справочник? 0

@kegl9 0 / 0 / 0 Регистрация: 13.07.2010 Сообщений: 34
	26.06.2011, 21:52 [ТС]
	да в одном модуле 0

@fimbulwinter 309 / 309 / 1 Регистрация: 16.01.2011 Сообщений: 1,073
	26.06.2011, 22:09
	почему то у меня такое чувство, что ты одну и ту же форму пытаешься открыть. Это раз. Второе, необходима проверка на наличие параметра. Платформы под рукой нету. на память не помню. То ли Параметр.Свойство("<Имя свойства>"), то ли Найти()... Кажется первое. тогда так: Если Параметр.Свойство("Фамилия") Тогда ЧтоТоТам = Параметр.Фамилия; ... КонецЕсли; Зачем вообще перем в процедуре? 1

@kegl9 0 / 0 / 0 Регистрация: 13.07.2010 Сообщений: 34
	26.06.2011, 22:57 [ТС]
	у меня есть 2 общие формы Первая это регистрация, Вторая показывает кто зарегистрировался и показывает вопросы (пока только один вопрос) Интересно попробовать передать информацию с формы на форму. Просто открыть форму получается, а вот передать данные с формы на форму не получается. Сейчас попробую ваш пример и позже напишу получилось или нет Миниатюры 0