Добавление программно командной панели к тч

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.

1. sweety-twetty 28.08.13 13:50 Сейчас в теме

Здравствуйте, учасники форума. Собственно говоря, вопрос в теме. В справочник ФизическиеЛица добавила тч МБП, теперь хочу к ней добавить командную панель.

ТЧ добавляла в общем модуле

	ЭлементыФормы = Форма.ЭлементыФормы;
	
	НоваяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.Добавить("МБП", "МБП");
	
	ТекущаяСтраницаОсновнойПанели	= ЭлементыФормы.ОсновнаяПанель.ТекущаяСтраница;
	ЭлементыФормы.ОсновнаяПанель.ТекущаяСтраница = НоваяСтраница;
	
	НовыйЭлемент = ЭлементыФормы.Добавить(Тип("ТабличноеПоле"), "МБП", , ЭлементыФормы.ОсновнаяПанель);
	НовыйЭлемент.Лево			= 5;
	НовыйЭлемент.Ширина			= 600;
	НовыйЭлемент.Верх			= 5;
	НовыйЭлемент.Высота			= 300;
	НовыйЭлемент.Значение = Форма.МБП.Выгрузить(,"Номенклатура,ДатаВыдачи,КоличествоВыдачи,ДатаВозврата,КоличествоВозврата,НомерАктаВыбытия,ДатаАктаВыбытия,СрокСлужбы,НомерПаспорта");
	
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Лево,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Лево);
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Право,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Лево);
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Верх,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Верх);
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Низ,
		ЭлементыФормы.ОсновныеДействияФормы, ГраницаЭлементаУправления.Верх);
	НовыйЭлемент.СоздатьКолонки();

Показать

Привязки пока криво работают.

По теме из базы знаний

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
sweety-twetty (0.20 $m)

Показать полностью

Найденные решения

2. Allexe8.1 28.08.13 14:27 Сейчас в теме

(1) sweety-twetty,
КомПанель = ЭлементыФормы.Добавить(Тип("КоманднаяПанель"));
КомПанель.Автозаполнение = Истина;
КомПанель.ИсточникДействий = ЭлементыФормы.ТабличноеПоле

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Allexe8.1 28.08.13 14:27 Сейчас в теме

3. sweety-twetty 28.08.13 15:27 Сейчас в теме

Написала так

ЭлементыФормы = Форма.ЭлементыФормы;
	
	НоваяСтраница = ЭлементыФормы.ОсновнаяПанель.Страницы.Добавить("МБП", "МБП");
	
	ТекущаяСтраницаОсновнойПанели	= ЭлементыФормы.ОсновнаяПанель.ТекущаяСтраница;
	ЭлементыФормы.ОсновнаяПанель.ТекущаяСтраница = НоваяСтраница;
	
	НовыйЭлемент = ЭлементыФормы.Добавить(Тип("ТабличноеПоле"), "МБП", , ЭлементыФормы.ОсновнаяПанель);
	НовыйЭлемент.Лево			= 6;
	НовыйЭлемент.Ширина			= ЭлементыФормы.ОсновнаяПанель.Ширина - 12;
	НовыйЭлемент.Верх			= 30;
	НовыйЭлемент.Высота			= Форма.Высота -140;
	НовыйЭлемент.Значение = Форма.МБП.Выгрузить(,"Номенклатура,ДатаВыдачи,КоличествоВыдачи,ДатаВозврата,КоличествоВозврата,НомерАктаВыбытия,ДатаАктаВыбытия,СрокСлужбы,НомерПаспорта");
	
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Лево,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Лево);
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Право,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Право);
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Верх,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Верх);
	НовыйЭлемент.УстановитьПривязку(ГраницаЭлементаУправления.Низ,
		Форма.Панель, ГраницаЭлементаУправления.Низ);
	НовыйЭлемент.СоздатьКолонки();
	
	// Создадим командную панель
	КоманднаяПанельМБП = ЭлементыФормы.Добавить(Тип("КоманднаяПанель"), "КоманднаяПанельМБП", , ЭлементыФормы.ОсновнаяПанель);
	КоманднаяПанельМБП.Лево				= 6;
	КоманднаяПанельМБП.Ширина			= ЭлементыФормы.ОсновнаяПанель.Ширина - 12;
	КоманднаяПанельМБП.Верх				= 0;
	КоманднаяПанельМБП.Высота			= 24;
	КоманднаяПанельМБП.УстановитьПривязку(ГраницаЭлементаУправления.Лево,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Лево);
	КоманднаяПанельМБП.УстановитьПривязку(ГраницаЭлементаУправления.Право,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Право);
	КоманднаяПанельМБП.УстановитьПривязку(ГраницаЭлементаУправления.Верх,
		ЭлементыФормы.ОсновнаяПанель, ГраницаЭлементаУправления.Верх);
	КоманднаяПанельМБП.УстановитьПривязку(ГраницаЭлементаУправления.Низ,
		ЭлементыФормы.ОсновныеДействияФормы, ГраницаЭлементаУправления.Верх);
	
	
	
	КоманднаяПанельМБП.ИсточникДействий	= ЭлементыФормы.МБП;
	КоманднаяПанельМБП.Автозаполнение		= Истина;

Показать

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

4. sweety-twetty 28.08.13 15:49 Сейчас в теме

нашла что вопрос с видимостью связан со строкой
КоманднаяПанельМБП.ИсточникДействий = ЭлементыФормы.МБП;

Объясните, почему?

5. sweety-twetty 28.08.13 16:23 Сейчас в теме

Ап

6. sweety-twetty 28.08.13 17:24 Сейчас в теме

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

	НовыйЭлемент.ТолькоПросмотр	= Ложь;

.Всем спасибо за помощь

Оставьте свое сообщение

E-mail: