Отобрать все виды договоров

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. sergqwert15 3 11.10.19 14:37 Сейчас в теме

Как отобрать вид договора не только с поставщиком, но еще и с покупателем

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

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user623969_dusa 11.10.19 14:59 Сейчас в теме

СЗ = Новый СписокЗначений;
	//заголовок должен быть до процедуры ПолучитьРейсыКонтрагента, в процедуре добавляется колво рейсов к заголовку
	НадписьОтборПоКонтрагентуЗаголовок = "Выбор из прикрепленных контрагентов";
	ПолучитьРейсыКонтрагента(СЗ);
	Если СЗ.Количество() > 0 Тогда
		Отбор.Код.Использование = Истина;

Отбор.Код.ВидСравнения = ВидСравнения.ВСписке;

Отбор.Код.Значение = СЗ;
	Иначе
		НадписьОтборПоКонтрагентуЗаголовок = "Выбор из всех контрагентов";
	КонецЕсли;

3. VictorRGB2 14 11.10.19 16:20 Сейчас в теме

массивом лучше

СтандартнаяОбработка = Ложь;

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

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

Показать

Оставьте свое сообщение

E-mail: