Курсы онлайн обучения 1С

Автор: admin, 31.07.2010 рубрики: Изучаем программирование

//реквизиты проводок
Для Инд = 1 По Метаданные.РеквизитПроводки() Цикл
Рекв=Метаданные.РеквизитПроводки(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор, Рекв.Представление());
КонецЕсли;
КонецЦикла;
//общие реквизиты документов
Для Инд = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
Рекв=Метаданные.ОбщийРеквизитДокумента(Инд);
Если (Рекв.Тип<>"Строка")ИЛИ(Рекв.Длина<>0) Тогда
ВыбАттр.ДобавитьЗначение(Рекв.Идентификатор, Рекв.Представление());
КонецЕсли;
КонецЦикла;
ИначеЕсли гРежим="Графа" Тогда
ВыбАттр.ДобавитьЗначение(ИсхАтр, ИсхПред);
КонецЕсли;

ТекСтр=ВыбАттр.НайтиЗначение(ИсхАтр);
Если (ТекСтр=0)И(ВыбАттр.РазмерСписка()>0) Тогда
ТекСтр=1;
КонецЕсли;
ВыбАттр.ТекущаяСтрока(ТекСтр);

ПриВыбАттр();

Стр = "";
ПолучитьТип(Стр, 0, 0);
Если Стр = «Неопределенный» Тогда
Форма.ВыбФильтр.НазначитьТип(ТипЗначенияСтр(ИсхЗнач));
КонецЕсли;

ВыбФильтр=ИсхЗнач;
ТекФильтр=ВыбФильтр;
ВыбУсловие.ДобавитьЗначение(«=»);
ВыбУсловие.ДобавитьЗначение(«>»);
ВыбУсловие.ДобавитьЗначение(«<»);
ВыбУсловие.ДобавитьЗначение(«<=»);
ВыбУсловие.ДобавитьЗначение(«>=»);
ВыбУсловие.ДобавитьЗначение(«<>»);
ВыбУсловие.ДобавитьЗначение(«В»);

ТекСтр=ВыбУсловие.НайтиЗначение(ИсхУсл);
Если (ВыбУсловие.НайтиЗначение(ИсхУсл)=0) Тогда
ТекСтр=1;
КонецЕсли;
ВыбУсловие.ТекущаяСтрока(ТекСтр);
КонецЕсли;
Форма.Параметр=ПолучитьПустоеЗначение();

Связанные записи

• Нет связанных записей.