Вывод нужных документов в поле ввода

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

Платформа 1С v7.7

1. Tiler 19.12.06 12:17 Сейчас в теме

Подскажите кто знает, как ограничить выбираемые документы из поля ввода, если я укажу там тип <<Документ>>. Чтоб можно было выбирать например только 5 документов: ПоступлениеТМЦ, ВозвратОтПокупателя, ПоступлениеТМЦРозница, Реализация и РеализацияРозница. Возможно ли это сделать, либо легче организовать 5 полей ввода с checkbox рядом?

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

Ответы

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

Свернуть все

2. maljaev 789 19.12.06 14:21 Сейчас в теме

Метод "ВидыДляВыбора()", смотри в синтакс-помощнике. Если у тебя поле в шапке, тогда просто делаешь так:

ПолеДок.ВидыДляВыбора("ПКО,РКО");

А если поле в табличной части, то делаешь так:

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

3. Tiler 22.12.06 10:14 Сейчас в теме

Вышел из данной ситуации, путем указания типа документа в свойствах поля ввода как "Неопределенный". А в самом модуле:

Процедура ВыборДокумента()
Если ВидРазделителя = 1 Тогда
Форма.ВыбДок.НазначитьТип("Документ.ПоступлениеТМЦ");
Кат = "\\..........\D\Edit\Docs\ПоступлениеТМЦ\";
ИначеЕсли ВидРазделителя = 2 Тогда
Форма.ВыбДок.НазначитьТип("Документ.ПоступлениеТМЦРозница");
Кат = "\\...........\D\Edit\Docs\ПоступлениеТМЦРозница\";
ИначеЕсли ВидРазделителя = 3 Тогда
Форма.ВыбДок.НазначитьТип("Документ.ВозвратОтПокупателя");
Кат = "\\...........\D\Edit\Docs\ВозвратОтПокупателя\";
ИначеЕсли ВидРазделителя = 4 Тогда
Форма.ВыбДок.НазначитьТип("Документ.Реализация"); Кат = "\\...........\D\Edit\Docs\Реализация\";
ИначеЕсли ВидРазделителя = 5 Тогда
Форма.ВыбДок.НазначитьТип("Документ.РеализацияРозница");
Кат = "\\...........\D\Edit\Docs\РеализацияРозница\";
КонецЕсли;
КонецПроцедуры

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

E-mail: