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

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

1. lssv 23.11.23 07:11 Сейчас в теме

Здравствуйте! В продолжение темы https://forum.infostart.ru/forum9/topic76133/

Там автор спрашивает:
"Доброго времени суток! Не могу разобраться в одной проблеме. В определенных документах нужно чтобы строка табличной части при нажатии кнопки "добавить копированием" вставала не в конец списка, в сразу под копируемой строчкой. Где ковырять, подскажите, пожалуйста?)) бух. ред. 2.0 релиз 42.6"

Вопрос:
Есть ли возможность реализовать такой функционал на управляемых формах?

Спасибо

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

Ответы

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

Свернуть все

2. user1880116 23.11.23 07:33 Сейчас в теме

Прикрепленные файлы:

3. VZyryanov 23.11.23 08:42 Сейчас в теме

//В табличной части План в текущее поле копирует значение этого поля из предыдущей строки
&НаКлиенте
Процедура СкопироватьЗначение(Команда)
	Стр=Элементы.План.ТекущиеДанные;	
	Если Стр=Неопределено Тогда
		Возврат;
	КонецЕсли;
	Инд=Объект.План.Индекс(Стр);
	Если Инд=0 Тогда
		Возврат;
	КонецЕсли;
	Попытка
		Кол=СтрЗаменить(Элементы.План.ТекущийЭлемент.Имя,"План","");
		Стр1=Объект.План[Инд-1];
		Стр2=Объект.План[Инд];
		Стр2[Кол]=Стр1[Кол];
		Модифицированность=Истина;
		Если Кол="Договор" Тогда
			ПланДоговорПриИзменении(Неопределено);
		ИначеЕсли Кол="Контрагент" Тогда
			ПланКонтрагентПриИзменении(Неопределено);
		ИначеЕсли Кол="ИсполнительПодразделение" Тогда
			ПланИсполнительПодразделениеПриИзменении(Элементы.ПланИсполнительПодразделение);
		ИначеЕсли Кол="ПриемщикПодразделение" Тогда
			ПланПриемщикПодразделениеПриИзменении(Элементы.ПланПриемщикПодразделение);
		КонецЕсли;
	Исключение
	КонецПопытки;
КонецПроцедуры

Показать

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

E-mail: