ПОМОГИТЕ

[влад231]

Напишите пж как вывести договоры оргонизаций с контрагентами за определненный период в 1с 8.3
варианты которые я смог сделать на не работающие
   
   &НаСервере
   Процедура НайтиДоговорКонтрагентовНаСервере()
     Договор = справочники.ДоговорыКонтрагентов.НайтиПоРеквизиту(,Датаначало,Датаокончание);
КонецПроцедуры
&НаКлиенте
Процедура НайтиДоговоры_с_Контрагентов(Команда)
       Если 
       ПустаяСтрока(Истина)  тогда         
       Возврат;     
   КонецЕсли;
    элементы.Вывести.ДоговорыКонтрагентов();
КонецПроцедуры 



&НаКлиенте
Процедура
    СоздатьМаркуАвтомобиля(Команда)     
    СоздатьМаркуАвтомобиляНаСервере();
КонецПроцедуры



&НаСервере
Процедура НайтиДоговорыКонтрагентовПОдатеНаСервере1()
    СправочникДоговорыКонтрагентов = Справочники.ДоговорыКонтрагентов; 
    ДоговорыКонтрагентов = СправочникДоговорыКонтрагентов.НайтиПоРеквизиту("оргониации",оргониации);
КонецПроцедуры
&НаКлиенте
Процедура НайтиДоговорыКонтрагентовПооргониации1(Команда)   
    Элементы.Договор_с_Контрагентом.НайтиДоговораКонтрагентовПоОргониацииНаСервере();
КонецПроцедуры

процедура Вывод (кнопка)
    СсылкаДоговор = Справочники.Контрагенты.НайтиПоНаименованию(Справочники.Контрагенты).ОсновнойДоговорКонтрагента.Ссылка;
Сообщить("Найден Договор = " + СсылкаДоговор);
конецпроцедуры

       Функция ДоговорКонтрагента (Контрагент, Организация)
ОтборПоОрганизации = Новый Структура ("Организация",Организация);

ТекДоговор=элементы.Договор_с_Контрагентом.ВыбиратьТип;
НовоеЗначениеДоговора = Неопределено;
Если ТекДоговор.Следуйщий ()
   Тогда
   Если
      ТекДоговор.ВидДоговора=Перечисления.ВидыДоговоровКонтрагентов.Прочее
      Тогда
НовоеЗначениеДоговора = ТекДоговор. Ссылка;
КонецЕсли;
КонецЕсли;
Если НовоеЗначениеДоговора = Неопределено Тогда
НовоеЗначениеДоговора = Контрагент.ОсновнойДоговорКонтрагента;
КонецЕсли;
Возврат НовоеЗначениеДоговора;
сообщить (НовоеЗначениеДоговора);

КонецФункции
процедура Договорыконтрагентов(Контрагент,Оргонизации)
   
     справочники.ДоговорыКонтрагентов ();
конецпроцедуры