S
Sergoon
Доброе время суток! Вопрос такой, в журнале есть функция копировать строку (F9), какая процедура вызываеться и как мне ее прописать для своей кнопки? 1С недавно колупать начал, помогите пожалуйста!!!
Доброе время суток! Вопрос такой, в журнале есть функция копировать строку (F9), какая процедура вызываеться и как мне ее прописать для своей кнопки? 1С недавно колупать начал, помогите пожалуйста!!!
Процедура ВводНаОсновании(ДокОсн)
Если ДокОсн.Вид()="Счет" Тогда
РеквизитШапки1 = ДокОсн.РеквизитШапки1; // РеквизитШапки1 - тоже для примера
//Далее тоже самое для всех реквизитов шапки
//Если есть табличная часть, то
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ДокОсн.ВыгрузитьТабличнуюЧасть(ТЗ);
Док.ЗагрузитьТабличнуюЧасть(ТЗ);
КонецЕсли;
КонецПроцедуры
Док = Документы.АнкетаЗастрахованногоЛица.НайтиПоНомеру();
Док1 = Док.Скопировать();
LxS, по вопросу не понятно о какой вермии идет речь
Мой пример для 7.7
При этом также как по [F9] откроется новый уже заполненный, но не сохраненный документ (вроде бы именно это требуется)
Как сделать в 8 версии я не в курсе
LxS, по вопросу не понятно о какой вермии идет речь
Мой пример для 7.7
При этом также как по [F9] откроется новый уже заполненный, но не сохраненный документ (вроде бы именно это требуется)
Как сделать в 8 версии я не в курсе
- теперь в курсе.Как сделать в 8 версии я не в курсе
- теперь в курсе.
Спасибо Hryv, именно твой то пример мне и нужен, а где он???
На кнопку повесить (если кнопка на форме журнала)
ОткрытьФорму("Документ.Счет",,ТекущийДокумент);//Счет - это для примера, надо подставить правильный вид документа
А в самом документе поставить галочку, что он может вводиться на основании самого себя
И процедуру вставить в модуль
Если процедура ВводНаОсновании в модуле уже есть, то подправитьКод:Процедура ВводНаОсновании(ДокОсн) Если ДокОсн.Вид()="Счет" Тогда РеквизитШапки1 = ДокОсн.РеквизитШапки1; // РеквизитШапки1 - тоже для примера //Далее тоже самое для всех реквизитов шапки //Если есть табличная часть, то ТЗ = СоздатьОбъект("ТаблицаЗначений"); ДокОсн.ВыгрузитьТабличнуюЧасть(ТЗ); Док.ЗагрузитьТабличнуюЧасть(ТЗ); КонецЕсли; КонецПроцедуры
Док = Документы.АнкетаЗастрахованногоЛица.НайтиПоНомеру("111").Скопировать();
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab