1С УТ 11.4 Проведение документа из списка документов (кнопка)?

Question

[SteepNET]

Добрый день! УТ 11.4
Делаю кнопку (Провести) на форме списка документов "Заказ клиента" в расширении, что то не выходит, помогите!

Документ.ЗаказКлиента.ФормаСпискаДокументов

НаСервере
Процедура Расш_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)

НоваяКоманда = ЭтаФорма.Команды.Добавить("Команда1");
	НоваяКоманда.Действие = "НажатиеКнопки";//Имя процедуры
	НоваяКоманда.Заголовок = "Провести";

	МояКнопка = ЭтаФорма.Элементы.Добавить("Провести", Тип("КнопкаФормы"), ЭтаФорма.КоманднаяПанель);
    МояКнопка.Вид = ВидКнопкиФормы.ОбычнаяКнопка;
    МояКнопка.ИмяКоманды = "Команда1";
КонецПроцедуры

&НаКлиенте
Процедура НажатиеКнопки()
	ДокументОбъект = Элементы.Список.ТекущаяСтрока; 
	ПараметрыЗаписи = Новый Структура;
	ПараметрыЗаписи.Вставить("РежимЗаписи", РежимЗаписиДокумента.Проведение);
	Форма = ПолучитьФорму("Документ.ЗаказКлиента.Форма.ФормаДокумента", Новый Структура("Ключ", ДокументОбъект));
	Форма.Записать(ПараметрыЗаписи);
КонецПроцедуры

Comments

[Sgr_A]

Почему бы глобальную команду проведения не использовать?

[SteepNET]

Sgr_A, Подскажите пожалуйста как и какую?

Answer 1

[VitalyChaikin]

ТекущаяСтрока = Элементы.Список.ТекущаяСтрока;  // Устанавливаем точку останова на этой строке
// Смотрим в отладчике что в переменной ТекущаяСтрока 
ДокСсылка = ТекущаяСтрока.Ссылка; // вместо .Ссылка подставляем то что нужно !
ДокОбъект = ДокСсылка.ПолучитьОбъект();
// И далее уже записываем ДокОбъект (а не Форму как у тебя)

Comments

[SteepNET]

Это все на клиенте? Не работает , ссылка не найдена и нет метода ПолучитьОбъект

[SteepNET]

Не знаю правильно ли сделал..

&НаКлиенте
Процедура НажатиеКнопки(Команда)	
	ДокументОбъект = Элементы.Список.ТекущаяСтрока; 	
	Провести(ДокументОбъект);
КонецПроцедуры

&НаСервереБезКонтекста
Процедура Провести(ДокументОбъект)
	ДокументОбъект = ДокументОбъект.ПолучитьОбъект();	
	ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);	
КонецПроцедуры

[VitalyChaikin]

SteepNET, важно проверить что именно находится в Элементы.Список.ТекущаяСтрока
о чём я сразу и написал (посмотреть в отладчике), а дело в том, что в зависимости от запроса в "Динамическом списке" данные в Элементы.Список.ТекущаяСтрока могут быть РАЗНЫМИ; в итоге твой код может работать в одной Форме (где для Динамического списка указана Основная таблица), и в то же время не будет работать в Форме (где для Динамического списка указан запрос)

[SteepNET]

VitalyChaikin, Да, по отладчику именно тот документ на котором стоит курсор в списке документов..
Он проводиться нормально но форма не обновляется и сообщение не выводит как при стандартном проведении и отмене ,но то мелочи уже...

[SteepNET]

VitalyChaikin, Вопрос может поможете попутно, вообще не понимаю как эти кнопки в командную панель поместить в одном расположении с основными кнопками, размещается где то сверху..
Делаю так...
МояКнопка = ЭтаФорма.Элементы.Добавить("Провести", Тип("КнопкаФормы"), ЭтаФорма.КоманднаяПанель);
МояКнопка.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;

[VitalyChaikin]

SteepNET, Обновить форму списка можно так:

// Обновление данных
ЭтаФорма.ОбновитьОтображениеДанных();

на счет расположения кнопки, - почему бы не добавить кнопку на Форму в режиме конструктора (в конфигураторе туда куда нужно) ? ... программное добавление мне кажется не имеет смысла ( и не обязательно кнопка должна быть на стандартной панели)

Answer 2

[Sgr_A]

1. Проведение доступно из контекстного меню (нажатие ПКМ)


2. Перенести в командную панель стандартную команду проведения. Не забыв настроить отображение.


3. Использовать методы БСП. Подсмотрев, как сделана данная кнопка в журналах или других формах списка документов. Например:

ОбщегоНазначенияУТКлиент.ПровестиДокументы(Список, ТипСписка);

Comments

[Sgr_A]

SteepNET, помогло?

[SteepNET]

Sgr_A, Я может туповат не не смог прикрутить
ОбщегоНазначенияУТКлиент.ПровестиДокументы(Список, ТипСписка);
В модуле формы списка документов

[Sgr_A]

SteepNET, а просто команду добавить?

[Sgr_A]

SteepNET, вот так:

&НаКлиенте
Процедура СписокПровести(Команда)
	ОбщегоНазначенияУТКлиент.ПровестиДокументы(Элементы.Список, Заголовок);
КонецПроцедуры

не работает?!