Аналог Форма.Параметр в 1С v8

24.09.2010 08:17

Прочитано: 3233

Здравствуйте!
Пишу код с семерки на восьмерку, столкнулась со свойством формы справочника Форма.Параметр. Какое аналог этого метода в восьмерке? И есть ли он?

Код 1C v 8.х

 	Если ТипЗначенияСтр(Форма.Параметр)="ГрупповойКонтекст" Тогда

		Если (Форма.Параметр.Вид() = "СчетФактура") Или

			(Форма.Параметр.Вид() = "НакладнаяНаРозничныйСклад") Или

			(Форма.Параметр.Вид() = "НакладнаяСРозничногоСклада") Тогда

			ИспСклад=Форма.Параметр.Склад;

			Форма.Параметр.ВыбратьСтроки();

			Пока Форма.Параметр.ПолучитьСтроку()=1 Цикл

				ДобавитьСтроку();

				ВыбТов.Код=Форма.Параметр.Товар.Код;

				ВыбТов.Товар=Форма.Параметр.Товар;

				ВыбТов.Количество=Форма.Параметр.Количество;

				ВыбТов.Счет=Форма.Параметр.ВидТМЗ.СчетТМЗ;

			КонецЦикла;

		ИначеЕсли (Форма.Параметр.Вид() = "ПеремещениеТМЗ") Или

			(Форма.Параметр.Вид() = "ВнутреннееСписаниеТМЗ") Тогда

			ИспСклад=Форма.Параметр.Отпустил;

			Форма.Параметр.ВыбратьСтроки();

			Пока Форма.Параметр.ПолучитьСтроку()=1 Цикл

				ДобавитьСтроку();

				ВыбТов.Код=Форма.Параметр.Товар.Код;

				ВыбТов.Товар=Форма.Параметр.Товар;

				ВыбТов.Количество=Форма.Параметр.Количество;

				ВыбТов.Счет=Форма.Параметр.ВидТМЗ.СчетТМЗ;

			КонецЦикла;

		КонецЕсли;

	КонецЕсли;

Yandex

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

bless18

24.09.2010 08:19

Ответ № 1

Написала пока что такое только:

Код 1C v 8.х

 	СтрокаТЗ = ЭлементыФормы.ВыбранныйТовар.ТекущиеДанные;

	ТекущийСчет();

	ТекущийОстаток();

	Строка = ЭлементыФормы.ВыбранныйТовар.ТекущиеДанные;

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Счет");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Код");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Товар");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Количество");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Остаток");

	Пока ЭтаФорма.ВыбранныйТовар.ВыбратьСтроку() = 1 Цикл

		ЭлементыФормы.ВыбранныйТовар.ДобавитьСтроку();

		СтрокаТЗ.Код = 

	КонецЦикла;;

А дальше Форма.Параметр.Код.. Как это на 8-ку переписать не могу разобраться

E_Migachev

24.09.2010 09:07

Ответ № 2

Используй ЭлементыФормы и ЭтотОбъект

bless18

24.09.2010 09:19

Ответ № 3

Использую вот так:

Код 1C v 8.х

 

   	СтрокаТЗВыбТовар = ЭлементыФормы.ВыбранныйТовар.ТекущиеДанные;

	СтрокаТЗОстатТов = ЭлементыФормы.ОстаткиТовара.ТекущиеДанные;



	ТекущийСчет();

	ТекущийОстаток();

	ЭлементыФормы.ВыбранныйТовар.ДобавитьСтроку();

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Счет");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Код");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Товар");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Количество");

	ЭлементыФормы.ВыбранныйТовар.Колонки.Добавить("Остаток");

	//Пока ЭтаФорма.ВыбранныйТовар.Получить() = 1 Цикл

	

		СтрокаТЗВыбТовар.Код = СтрокаТЗОстатТов.Код;

		СтрокаТЗВыбТовар.Товар = СтрокаТЗОстатТов.Товар;

Дает ошибку Значение не является значением объектного типа (Код)
СтрокаТЗВыбТовар.Код = СтрокаТЗОстатТов.Код; И закрывает предприятие

E_Migachev

24.09.2010 10:48

Ответ № 4

судя по семерошному коду, должно быть:
СтрокаТЗВыбТовар.Код = СтрокаТЗОстатТов.Товар.Код;

bless18

24.09.2010 10:52

Ответ № 5

Так вот так и пишу, вылетает..
и помимо ошибки выводит окно, что память не может быть прочитана и закрывается предприятие

bless18

24.09.2010 10:57

Ответ № 6

Определила Строку как
СтрокаТЗОстатТов = ЭлементыФормы.ОстаткиТовара.Значение.Колонки
Не вылетает пока

E_Migachev

24.09.2010 11:49

Ответ № 7

память не может быть прочитана и закрывается предприятие - это уже другая ошибка, самой платформы!

AndreyVl

11.10.2010 15:20

Ответ № 8

У формы есть реквизиты (3-я закладка). Туда можно ввести что угодно.
Например, сделаем форму. Сделаем реквизит формы "СтрокаНаша" с типом текст. Разместим на форме поле ввода , впишем в "данные" - "СтрокаНаша".

Код 1C v 8.х

 	Форма=ПолучитьОбщуюФорму("ФормаТест");

	Форма.СтрокаНаша="Ляляляля";

	Форма.ОткрытьМодально();

	ТеперьСтрокаСодержит=Форма.СтрокаНаша;

Подсказка: Для быстрого перемещения к последнему ответу или к вопросу используйте или .