Процедура ВыборОснования()
  КонтекстДокумента = глВзятьКонтекст(Контекст);
    ДокОснование=ДокументОснование;
    ОткрытьФормуМодально("Обработка.ОснованиеДокумента", КонтекстДокумента);
    Если (ДокОснование<>ДокументОснование) И (ПустоеЗначение(ДокументОснование)=0) Тогда
        СпособЗаполнения=глВыборСпособаЗаполнения(Контекст,ВариантыЗаполнения,"по документу-основанию");
        Если ПустоеЗначение(СпособЗаполнения)=0 Тогда
            УдалитьСтроки();
            НачальноеЗаполнение(СпособЗаполнения,Да);
            Если КоличествоСтрок()=0 Тогда
                Предупреждение("По выбранному способу заполнения состав оказался пустым.");
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    ОбновитьНадписи();
КонецПроцедуры

все умрут