//Пример универсального ввода значения

Перем ВыбЗнач;

Массив = Новый Массив;

Массив.Добавить(Тип("Число"));

Массив.Добавить(Тип("Строка"));

Массив.Добавить(Тип("Дата"));

КЧ = Новый КвалификаторыЧисла(12,2);

КС = Новый КвалификаторыСтроки(20);

КД = Новый КвалификаторыДаты(ЧастиДаты.Дата);

ОписаниеТипов = Новый ОписаниеТипов(Массив, КЧ, КС, КД);

Если ВвестиЗначение(ВыбЗнач, "Введите значение", ОписаниеТипов) Тогда

    // обработка введенного значения

    Сообщить("Введенное значение: "+ВыбЗнач);

КонецЕсли;

   

 

Если ВвестиЗначение(Ном, "Введите номер приказа", "Число", 5, 0) = 1 Тогда

   ВыбДок = СоздатьОбъект("Документ.Приказ");

   ВыбДок.НайтиПоНомеру(Строка(Ном), Дата(0));

   Если ВыбДок.Выбран() = 1 Тогда

      // код

   ИначеЕсли;

      // код

   КонецЕсли;

КонецЕсли; 

 

//Удаление по индексу 

СписокТиповЦен.Удалить(1);



//Выборочное удаление по индексу 

Индекс = СписокВидов.Количество() - 1; 

Пока Индекс >= 0 Цикл 

	Если ТипЗнч(СписокВидов[Индекс].Значение) = Тип("Число") Тогда 

		СписокВидов.Удалить(Индекс); 

	КонецЕсли;     	

	Индекс = Индекс - 1; 

КонецЦикла; 



// удаление по элементу

НайденныйЭлемент = СписокТиповЦен.НайтиПоЗначению(ВыбЗначение);

Если НайденныйЭлемент <> Неопределено Тогда

    СписокТиповЦен.Удалить(НайденныйЭлемент);

Иначе

    Сообщить("Значение не найдено!");

КонецЕсли;