Проблема в следующем пишет ошибку
Если ДокОснование.Выбран()=0 Тогда
{Документ.ДоставкаТовара.Форма.Модуль(58)}: Значение не представляет агрегатный объект (Выбран)
Все процедуры и функции взяты из других документов в ТиС
Немного подкорректировал
Подскажите в чем проблема, проанализмруйте код
Функция ЗаполнениеПоДокументуОснованию()
Перем ДокОснование;    
   Если ДокОснование.Выбран()=0 Тогда
       Возврат "Не выбран документ - основание";
   КонецЕсли;  
   
   Сумма  = 0;
   ВидОсн = ДокОснование.Вид();
   
   Если (ВидОсн <> "ВозвратОтПокупателя") и
        (ВидОсн <> "ЗаказПоставщику") и
        (ВидОсн <> "ОтчетКомитенту") и
        (ВидОсн <> "ПоступлениеДопРасходы") и
        (ВидОсн <> "ПоступлениеТМЦ") и
        (ВидОсн <> "ПоступлениеТМЦРозница") и
        (ВидОсн <> "ПоступлениеТМЦИмпорт") и
        (ВидОсн <> "ПоступлениеПрочее") и
        (ВидОсн <> "ПКО") Тогда
       Возврат "Неверный вид документа - основания!";
   КонецЕсли;

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

Процедура ВводНаОсновании(ДокОснование)
       
   
   Список    = глПолучитьСписокВводимыхНаОсновании(ДокОснование);
   Поз        = Список.НайтиЗначение(Вид());
   
   // выполним проверку, можно ли вводить документ на основании ДокументОснование
   Если Поз = 0 Тогда
       // ДокументОснование не найден в списке разрешенных
       Предупреждение("Документ """
                       """ нельзя вводить на основании """, 60);
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;
   
   глЗаполнитьШапкуНаОсн(Контекст,ДокОснование);
   
   Если ПустоеЗначение(склад) = 1 Тогда
       Касса = глЗначениеПоУмолчанию("ОсновнойСклад");
   КонецЕсли;
   
   Основание = глПредставлениеДокумента(ДокОснование);
   
   Результат = ЗаполнениеПоДокументуОснованию();
   Если ПустоеЗначение(Результат) = 0 Тогда
       Предупреждение(Результат, 60);
       СтатусВозврата(0);
   КонецЕсли;
       
КонецПроцедуры // ВводНаОсновании()

 
Процедура ПоКнопкеОснование()
   Перем ДокОснование;
   
     
   // если документ основание уже есть, откроем его
   Если ПустоеЗначение(ДокОснование) = 0 Тогда
       ОткрытьФорму(ДокОснование);
       Возврат;
   КонецЕсли;
   
   // если документа - основания нет, позволяем выбрать его

   Основание = глВыбратьОснование(Контекст);
   Если ПустоеЗначение(Основание) = 0 Тогда
       // Выбрали основание

       глЗаполнитьШапкуНаОсн(Контекст,Основание);
       
       ТекстВопроса = "Заполнить по документу основанию?";
       Если КоличествоСтрок() <> 0 Тогда
           ТекстВопроса = ТекстВопроса + РазделительСтрок +" (перед заполнением табличная часть будет очищена)";
       КонецЕсли;
           
       Если Вопрос(ТекстВопроса, "Да+Нет", 60) <> "Да" Тогда
           Возврат;
       КонецЕсли;
           
       Результат = ЗаполнениеПоДокументуОснованию();
       Если ПустоеЗначение(Результат) = 0 Тогда
           Предупреждение(Результат, 60);
       КонецЕсли;
       
   КонецЕсли;
   
КонецПроцедуры //ПоКнопкеОснование()

Нету у тебя ничего в ДокОснование, что там может быть выбрано?

(1)как нету в чем ошибка подскажи

ДокОснование - реквизит?

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

В этом месте ты что-нибудь в переменную ДокОснование передал? Нет там ничего. Процедура эта должна вызываться с контекстом, я полагаю.

(4) я это все взял из типовой

(4) вот в чем и прикол

(6) на работе посмотрю, но ты что-то упустил, это точно.

(7) хорошо жду

перем выше процедур перенеси.

Если ПустоеЗначение(ДокОснование) = 0

Странно почему все из типовой

(10) и что

вместо твоего ДокОснование.Выбран()=0

913) так оно не должно быть пустым правильно

(13) так оно не должно быть пустым правильно
какие еще варианты есть я в этом начинающий.Вот пытаюсь разобраться.Но не судьба пока. И главное все из типовых документов взято и немного переделано

Учись читать, тебе ж сказал в (9). Переменная модуля а не процедуры.

(16) перенес а ничего не изменилось

Функция ЗаполнениеПоДокументуОснованию()
   //Перем ДокОснование;    
   Если ДокОснование.Выбран()=0 Тогда
       Возврат "Не выбран документ - основание";
   КонецЕсли;

если конечно ДокОснование - реквизит документа

а вот и я обьясните мне пожалуйста

(19) хоть реквизит формы

Функция ЗаполнениеПоДокументуОснованию(ДокОснование)
   //Перем ДокОснование;

а при вызове заменить
   Результат = ЗаполнениеПоДокументуОснованию();
на
   Результат = ЗаполнениеПоДокументуОснованию(ДокОснование);

(21) в типовых документах ДокОснование чем является

(22) ты откуда ?

(23) реквизитов дока
но я на форму могу вывести ДокОснованиеУ

но если напишу
Перем ДокОснованиеУ;
будет лажа

(25) в смысл .

в прямом

Перем ДокОснование

закроет хоть реквизит объекта, хоть формы