БП3 заполнить движения нового док ОперацияБух и показать пользователю док не записывая

Внешняя обработка для заполнения

Реквизит обработки
ОперацияБух с типом ДОкумент.ОперацияБух

Модуль формы

&НаСервере

Процедура Распределение26(ОперацияДок)

    //Сообщить(ОперацияДок.Организация);
    Если не  ЗначениеЗаполнено(ОперацияДок.Дата) Тогда
        Сообщить("Не заполнена ""Дата"" документа");
        Возврат;
    КонецЕСли;

    Если не ЗначениеЗаполнено(ОперацияДок.Организация) Тогда
        Сообщить("Не заполнена ""Органиазция"".");
        Возврат;
    КонецЕСли;


            НаборЗаписей=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();


            НаборЗаписей=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

        НаборЗаписей.Отбор.Регистратор.Значение=ОперацияДок.Ссылка;
        НаборЗаписей.Отбор.Регистратор.Использование=Истина;
        НаборЗаписей.Прочитать();
        НаборЗаписей.Очистить();
НаборЗаписей.Записать();

        ....
             НаборЗаписей.Записать();

КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
    //Сообщить("Х2Х");

    Для Каждого элмОбъектов из ОбъектыНазначенияМассив Цикл
        Объект.ОперацияБух = элмОбъектов;

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



        КлючПоиска = Новый Структура("Ключ", элмОбъектов);
        ФормаДокумента = ПолучитьФорму("Документ.ОперацияБух.Форма.ФормаДокумента", КлючПоиска);
        ФормаДокумента.Прочитать();


        //ДанныеФормыОбъект = ФормаДокумента.Объект;
        //
        //ОстатокНаКонец = ПеренестиВДокументНаСервере(ДанныеФормыОбъект);
        //КопироватьДанныеФормы(ДанныеФормыОбъект, ФормаДокумента.Объект);
        //ФормаДокумента.ОстатокНаКонец =  ОстатокНаКонец;
    КонецЦИкла;
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьЗакрытие26счета(Команда)
    // Вставить содержимое обработчика.
    Распределение26(Объект.ОперацияБух);
ЭтаФорма.Закрыть();
КонецПроцедуры

Модуль объекта

Функция СведенияОВнешнейОбработке() Экспорт

    Имя  = ЭтотОбъект.Метаданные().Имя;
    Наименование = ЭтотОбъект.Метаданные().Синоним;
//Сообщить("ххх"+Имя);
//Сообщить("ъъъ"+Наименование);

    // Объявим переменную, в которой мы сохраним и вернем "наружу" необходимые данные
    ПараметрыРегистрации = Новый Структура;

    // Объявим еще одну переменную, которая нам потребуется ниже
    МассивНазначений = Новый Массив;

    // Первый параметр, который мы должны указать - это какой вид обработки системе должна зарегистрировать.
    // Допустимые типы: ДополнительнаяОбработка, ДополнительныйОтчет, ЗаполнениеОбъекта, Отчет, ПечатнаяФорма, СозданиеСвязанныхОбъектов
    ПараметрыРегистрации.Вставить("Вид", "ЗаполнениеОбъекта");

    // Теперь нам необходимо передать в виде массива имен, к чему будет подключена наша ВПФ
    // Имейте ввиду, что можно задать имя в таком виде: Документ.* - в этом случае обработка будет подключена ко всем документам в системе,
    // которые поддерживают механизм ВПФ
    МассивНазначений.Добавить("Документ.ОперацияБух");
    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);

    // Теперь зададим имя, под которым ВПФ будет зарегистрирована в справочнике внешних обработок
    ПараметрыРегистрации.Вставить("Наименование", Наименование);

    // Зададим право обработке на использование безопасного режима. Более подробно можно узнать в справке к платформе (метод УстановитьБезопасныйРежим)
    ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);

    // Следующие два параметра играют больше информационную роль, т.е. это то, что будет видеть пользователь в информации к обработке
    ПараметрыРегистрации.Вставить("Наименование", Наименование);
    ПараметрыРегистрации.Вставить("Версия", "1.0");
    ПараметрыРегистрации.Вставить("Информация", Наименование);

    // Создадим таблицу команд (подробнее смотрим ниже)
    ТаблицаКоманд = ПолучитьТаблицуКоманд();

    // Добавим команду в таблицу
    //ДобавитьКоманду(ТаблицаКоманд, Наименование, Имя, "ВызовСерверногоМетода", Истина, Имя);
    ДобавитьКоманду(ТаблицаКоманд, Наименование, Имя, "ВызовКлиентскогоМетода", Истина, Имя);

    // Сохраним таблицу команд в параметры регистрации обработки
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

    // Теперь вернем системе наши параметры
    Возврат ПараметрыРегистрации;

КонецФункции

Функция ПолучитьТаблицуКоманд()

   // Создадим пустую таблицу команд и колонки в ней
   Команды = Новый ТаблицаЗначений;

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

   // Имя нашего макета, что бы могли отличить вызванную команду в обработке печати
   Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));

   // Тут задается, как должна вызваться команда обработки
   // Возможные варианты:
   // - ОткрытиеФормы - в этом случае в колонке идентификатор должно быть указано имя формы, которое должна будет открыть система
   // - ВызовКлиентскогоМетода - вызвать клиентскую экспортную процедуру из модуля формы обработки
   // - ВызовСерверногоМетода - вызвать серверную экспортную процедуру из модуля объекта обработки
   Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));

   // Следующий параметр указывает, необходимо ли показывать оповещение при начале и завершению работы обработки. Не имеет смысла при открытии формы
   Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));

   // Для печатной формы должен содержать строку ПечатьMXL
   Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
   Возврат Команды;

КонецФункции

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")

  // Добавляем команду в таблицу команд по переданному описанию.
  // Параметры и их значения можно посмотреть в функции ПолучитьТаблицуКоманд
  НоваяКоманда = ТаблицаКоманд.Добавить();
  НоваяКоманда.Представление = Представление;
  НоваяКоманда.Идентификатор = Идентификатор;
  НоваяКоманда.Использование = Использование;
  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
  НоваяКоманда.Модификатор = Модификатор;

КонецПроцедуры