v8.3: Скопировать значение из поля ввода на форме

JayKay

25.05.2017 15:24

Прочитано: 3540

Есть такая форма:

При нажатии на кнопку "Ок" у нас должно создаваться столько доп. полей сколько указано в поле "Кол во продукции".

Подскажите как скопировать из этого поля ввода значения?Вот код программы если что:

Код 1C v 8.3

 



&НаКлиенте

Процедура ОкПродукт(Команда)

	СоздатьПолеНаСервере();

КонецПроцедуры





&НаСервере

Процедура СоздатьПолеНаСервере()

//	Число=ЭтаФорма.Элементы.КолВоПродукции.Значение;

	Для А=1 По 3 Цикл

		//Добавляем реквизит

		нРеквизиты = Новый Массив;

		Реквизит = Новый РеквизитФормы("X" + Строка(Формат(А,"ЧГ=")), Новый ОписаниеТипов("Строка"), , "Созданное поле", Истина);

		нРеквизиты.Добавить(Реквизит);

		ИзменитьРеквизиты(нРеквизиты);

		

		//Добавляем поле ввода

		Элемент = ЭтаФорма.Элементы.Добавить("X" + Строка(Формат(А,"ЧГ=")), Тип("ПолеФормы"), ЭтаФорма.Элементы.ВыборПрод);

		Элемент.Вид = ВидПоляФормы.ПолеВвода;

		Элемент.ПутьКДанным = "X" + Строка(Формат(А,"ЧГ="));

	КонецЦикла;

  КонецПроцедуры

Yandex

Возможно, вас также заинтересует

JayKay

25.05.2017 17:08

Ответ № 1

Ответ:

Код 1C v 8.3

 Число=Объект.КолВоПродукции;

	Для А=1 По Число Цикл

		//Добавляем реквизит

		нРеквизиты = Новый Массив;

		Реквизит = Новый РеквизитФормы("X" + Строка(Формат(А,"ЧГ=")), Новый ОписаниеТипов("ДокументСсылка.Продукция"), , "Созданное поле", Истина);

		нРеквизиты.Добавить(Реквизит);

		ИзменитьРеквизиты(нРеквизиты);

		

		//Добавляем поле ввода

		Элемент = ЭтаФорма.Элементы.Добавить("X" + Строка(Формат(А,"ЧГ=")), Тип("ПолеФормы"), ЭтаФорма.Элементы.ВыборПрод);

		Элемент.Вид = ВидПоляФормы.ПолеВвода;

		Элемент.ПутьКДанным = "X" + Строка(Формат(А,"ЧГ="));

	КонецЦикла;

JayKay

25.05.2017 17:08

Ответ № 2

Вопрос закрыт!

Подсказка: Для выделения Кода используйте (в редакторе).