Имя: Пароль:
1C
1С v8
Как после выполнения обработки открыть форму документа ОперацияБух уф?
0 Niveus
 
31.07.15
17:19
&НаКлиенте
Процедура Нажатие(Команда)
                
     ФормированиеДокумента(Счет,Организация,СчетПриемник);
     //
     //   Параметры = Новый Структура("Ключ", ДокФорма);
     //       Форма = ПолучитьФорму("Документ.ОперацияБух.Форма.ФормаДокумента", Параметры);
     //   Форма.Открыть();
        
КонецПроцедуры      




Функция ФормированиеДокумента(Счет,Организация,СчетПриемник)
                    
    //Записываем документ
        
    ДатаЗаписи = ТекущаяДата();    
    
    РегХозрасчетный  = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    Док = Документы.ОперацияБух.СоздатьДокумент();
    Док.Дата = ДатаЗаписи;
    Док.Организация = Организация;
    Док.Ответственный = ПараметрыСеанса.ТекущийПользователь;
    Док.Комментарий = "Перенос остатков счета " + Счет.Код + " на счет " + СчетПриемник.Код;
    Док.Содержание =  "Перенос остатков счета " + Счет.Код + " на счет " + СчетПриемник.Код;
    Для Каждого Строка  Из Объект.ТабличнаяЧасть Цикл
            Док.СуммаОперации = Строка.Сумма + Док.СуммаОперации;    
    КонецЦикла;

    Док.Записать();
        
    //Набор записей в ренистр бухгалтерии

    РегХозрасчетный.Отбор.Регистратор.Установить(Док.Ссылка);     
    
        
                            Для Каждого Строка  Из Объект.ТабличнаяЧасть Цикл
                                                           
                                    Движение = РегХозрасчетный .Добавить();
                                    Движение.Регистратор = Док.Ссылка;
                                    Движение.Период = ДатаЗаписи;    
                                    Движение.Организация = ЭтаФорма.Организация;
                                    Движение.СчетКт = ЭтаФорма.Счет;
                                    Движение.СчетДт = ЭтаФорма.СчетПриемник ;
                                    Движение.Сумма = Строка.Сумма;
                                    БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "Контрагенты",Строка.Контрагент);
                                    БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "СФПолученные",Строка.Документ);
                                    БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ПрочиеДоходыИРасходы",Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Затраты, невключаемые в налогообложение прибыли_Other_TP"));
                                    //Док.СуммаОперации = Строка.Сумма + Док.СуммаОперации;
                                КонецЦикла;
                            
    
    РегХозрасчетный.Записать();
    //ДокФорма = Док.ЭтотОбъект;
    //Возврат ДокФорма;    
    //
    
    //Док.Ссылка.ПолучитьФорму("ФормаДокумента").Открыть();
КонецФункции
1 Niveus
 
31.07.15
17:20
Могу открыть форму, но она открывает пустую операцию, а мне нужно созданную по "Процедура Нажатие(Команда)"
2 Euguln
 
31.07.15
17:20
Почитай в СП пр ОткрытьФорму
3 Niveus
 
03.08.15
11:26
Да я читал справку) но проблема, какой параметр и каким образом его передать из функции в процедуру