Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 11:11

ПОМОГИТЕ

Автор влад231, 03 мар 2019, 17:45

0 Пользователей и 1 гость просматривают эту тему.

влад231

Помогите не заню как вывести договоры оргонизаций с контрогентами за определенный период на 1с 8.3

DmitriyF

Цитата: влад231 от 03 мар 2019, 17:45
Помогите не заню как вывести договоры оргонизаций с контрогентами за определенный период на 1с 8.3
А какие были варианты?

Etherial

Запрос к справочнику договоров, в качестве параметров передаются начало и конец периода за который нужны договора

Отправлено с моего MI 5s через Tapatalk


DmitriyF

Цитата: Etherial от 03 мар 2019, 17:53
Запрос к справочнику договоров, в качестве параметров передаются начало и конец периода за который нужны договора

Отправлено с моего MI 5s через Tapatalk
А что не получается в итоге? нет таких реквизитов в справочнике?

bsn-chita

Можно через "Еще-Настроить список..." с помощью отборов наложить ограничения на список.

влад231

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

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

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

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

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


DmitriyF

Цитата: bsn-chita от 04 мар 2019, 02:39
Можно через "Еще-Настроить список..." с помощью отборов наложить ограничения на список.
А как ты на договор наложишь отбор по периоду?

bsn-chita

Цитата: DmitriyF от 04 мар 2019, 09:33
Цитата: bsn-chita от 04 мар 2019, 02:39
Можно через "Еще-Настроить список..." с помощью отборов наложить ограничения на список.
А как ты на договор наложишь отбор по периоду?
Не вижу особой проблемы. Имеем динамический список(список документов) в отборе беру Дата два раза и один раз сравниваю с больше второй раз с меньше, а значения это дата начала и дата конца периода. Или почему так не должно сработать?

влад231

а можете показать программу для оперделения периода

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск