Небольшая задачка

[Евгений90]

Процедура ДействияФормыРаспределитьПоИФ(Кнопка)

   ОбработкаКомментариев = глЗначениеПеременной("глОбработкаСообщений");
   ОбработкаКомментариев.УдалитьСообщения();

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




Код для кнопки попробовал изменить, не выходит


Процедура ВыполнитьНажатие(Элемент)
   
      

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

[Dethmontt]

В модуле объекта дописать к процедуре РаспределитьНачисленияПоИсточникамФинансирования() ЭКСПОРТ

В форме списка пишешь для твоей кнопки:
   

Код Выделить Развернуть

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