Каталог решений - Заполнение реквизитов документов из предыдущего документа

В типовых в 8-ке есть механизм, который запоминает предыдущие выбранные значения в документах и автоматически подставляет их при создании новых. Удобно и полезно. 

Вспомнилось, что такую же вещь мы делали когда-то для своих конфигураций еще на 1С 7.7. 

С точки зрения затрат — минимум, но благодарности от бухгалтеров — максимум. 

Для начала пример использования: 

Склад = глВзятьРеквизитИзПредыдущегоДокумента(Вид(),ДатаДок,"Склад");

ОтпускРазрешил = глВзятьРеквизитИзПредыдущегоДокумента(Вид(),ДатаДок,"ОтпускРазрешил");

// Номер бланка строгой отчетности. 

Номер            = Число(глВзятьРеквизитИзПредыдущегоДокумента(Вид(),ДатаДок,"Номер")) + 1; 


//В процедуре ВводНаОсновании(), когда ряд реквизитов уже заполнен из основания, или просто в процедуре, например, ВыборКонтрагента

    ДеталиПлатежа = глВзятьРеквизитИзПредыдущегоДокумента(Вид(),ДатаДок,"ДеталиПлатежа","Контрагент",Контрагент);

//Ну и сама функция.

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

Список реквизитов определяется экономикой и логикой, поэтому универсального заполнения всего и вся не делали. 

Проверки на проведенный документ нет — потому что ряд документов в базе не проводится.

Можно добавить проверку на пометку на удаление, но это кусок из живой конфигурации, без "фотошопа". 

Цель публикации — увидел, сказал "о, надо брать" и сделать ctrl+c и ctrl+v.

Ну и попробовать первую публикацию на Инфостарт 🙂