Имя: Пароль:
1C
 
Как установить периодический реквизит в обработке поиск
0 Roma1314704
 
07.12.07
11:33
// Заполним колонки. Код и Наименвание - особые, поэтому заполним отдельно.
   Элементы.НоваяКолонка("Элемент"             ,"Справочник");
   Элементы.НоваяКолонка("Код"                 ,"Строка"    ,,,                     ,10,,?(МДСправочник.ТипКода="Текстовый",1,2));
   Элементы.НоваяКолонка("Наименование"        ,"Строка"    ,,, "Найденные элементы",50);
   
   // Добавим дополнительные колонки (если есть)
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 3 По СписокРеквизитовПоиска.РазмерСписка() Цикл  // код и наименование уже добавили
       ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
       Представление = МДСправочник.Реквизит(ТекРеквизит).Представление();  
       Длина         = МДСправочник.Реквизит(ТекРеквизит).Длина;
       Элементы.НоваяКолонка(ТекРеквизит       ,"Строка"    ,,, Представление       ,Длина);

в глоб модуле
Процедура глПоискПоПодстроке(Конт, СписокПолей = "") Экспорт
   СписокПараметров = СоздатьОбъект("СписокЗначений");
   СписокПараметров.ДобавитьЗначение(Конт.Вид(), "Вид");
   СписокПараметров.ДобавитьЗначение(СписокПолей,"СписокПолей");
   ОткрытьФормуМодально("Обработка.ВыборИзСправочникаПоПодстроке", СписокПараметров);
   Если ТипЗначенияСтр(СписокПараметров)="Справочник" Тогда
       Если СписокПараметров.Вид() = Конт.Вид() Тогда
           Если Конт.Форма.РежимВыбора() = 1 Тогда
               Конт.Форма.ВыполнитьВыбор(СписокПараметров);
           Иначе
               Конт.АктивизироватьОбъект(СписокПараметров);
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры // глПоискПоПодстроке()
на кнопке ПОиск (в справочнике товар фор-ла глПоискПоПодстроке(Контекст,"ЦенаРозничная")
ЧТО НУЖНО ПОМЕНЯТЬ?
1 Ёпрст2
 
07.12.07
11:38
Обработка.ВыборИзСправочникаПоПодстроке
2 Roma1314704
 
07.12.07
11:50
Дружище, а точнее что нужно внести ?
3 Roma1314704
 
07.12.07
11:53
Если обычный реквизит все работает - Good. Только начинаю менять на периодический - НеизвестныйОбьект
4 Roma1314704
 
07.12.07
12:33
Ребята, помогите. Может это немного и геморойно, но для ВАС СПЕЦОВ - раз плюнуть!
5 Ёпрст2
 
07.12.07
12:35
(3)
1.Добавить период в запрос, чтоб периодический реквизит справочника на конечную дату искал ...
2.По умолчанию, ищет данный реквизит во ВСЕХ справочниках, т.е твой реквизит должен быть во всех справочниках в пределах конфигурации ...соответственно, самое тупое - проверять на Вид() справочника, и если нужный тебе - переделать текст запроса ... вот и всё.
6 Ёпрст2
 
07.12.07
12:43
+5 Блин, про все виды справочников это прогнал , просто добавь период в текст запроса :)
7 Ёпрст2
 
07.12.07
12:46
+6 И Это, цена у тебя , разве реквизит справочника Товар ??? Не путаешь? ...
8 Roma1314704
 
07.12.07
12:48
Нифига всеравно пишет НеизвестныйОбьект. Просто он не может прочитать этот долбаный периодический реквизит!
9 Roma1314704
 
07.12.07
12:49
Ну да цену товара я забиваю в справочник (Приходной накладной)
10 Ёпрст2
 
07.12.07
13:31
(8) Открой справочник Товар (или как там он у тебя зовётся ?) в дереве метаданных и посмотри, есть ли у него реквизит Цена ..., если есть то вставь на форму реквизит типа Дата, задай ему идентификатор ВыбДата, в ПриОткрытии напиши
ВыбДата = РабочаяДата(); ... в тексте запроса -
|Период с ВыбДата по ВыбДата; .... всё собственно
11 Ёпрст2
 
07.12.07
13:32
+10 Токма сдается мне, что Цена - реквизит справочника Цены, подчиненного Номенклатуре ..., ежели конфа типовая ...
12 Roma1314704
 
09.12.07
22:22
И всеравно ЦенаРозничная - НеизвестныйОбьект
13 Roma1314704
 
10.12.07
11:19
И что посоветуете делать?
14 Ёпрст2
 
10.12.07
11:32
(12) Конечно, она видать не Реквизит справочника Номенклатура, а подчиненного справочника какого-нить ... Чего за конфа то?
15 Roma1314704
 
10.12.07
13:29
Ничего подобного ЦенаРозничная  реквизит справочника- Товар
16 Ёпрст2
 
10.12.07
13:33
(15) И чего изменил то хоть в Обработка.ВыборИзСправочникаПоПодстроке ? ... Период туды воткнул? ...
17 Jmot
 
10.12.07
13:36
(15) Чёт не помню я типовых конф, у которых в Номенклатуре Цена - реквизит элемента, даж в типовой бухии - подчинённый справочник
18 Roma1314704
 
10.12.07
15:47
Добавил!
Процедура ПоискПоПодстроке()
   
   Элементы.УдалитьСтроки();
   РеквизитПоиска = СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СписокРеквизитовПоиска.ТекущаяСтрока()));
   Запрос = СоздатьОбъект("Запрос");
   
   ТекстЗапроса ="
   |Период с ВыбДата по ВыбДата;
   |ТекущийЭлемент = Справочник.*.ТекущийЭлемент;" +
   РеквизитПоиска + " = Справочник.*." + РеквизитПоиска + ";
   |Группировка ТекущийЭлемент Без Упорядочивания Без Групп;
   |Условие(Найти(ВРег(" + РеквизитПоиска + "),ВРег(ПодСтрокаПоиска))>0);
   |Без итогов;";          
   
   ТекстЗапроса=СтрЗаменить(ТекстЗапроса,"*",ВидСправочника);
   
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   Инд=0;
   Состояние("Обработано ");
   Пока Запрос.Группировка() = 1 Цикл
       Инд=Инд+1;
       Если Инд%100=0 Тогда
           Состояние("Обработано "+Инд);
       КонецЕсли;
       
       ТекЭлемент = Запрос.ТекущийЭлемент;
       Элементы.НоваяСтрока();
       Элементы.Элемент      = ТекЭлемент;
       
       // Заполним колонки
       СчетчикЦикла = 0;
       Для СчетчикЦикла = 1 По СписокРеквизитовПоиска.РазмерСписка() Цикл
           ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
           Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(ТекЭлемент.ПолучитьАтрибут(ТекРеквизит)));
       КонецЦикла;
       
   КонецЦикла;
   
   Состояние("Обработано "+Инд);
   
   Форма.Открыть.Доступность(?(Элементы.КоличествоСтрок()>0,1,0));
   Форма.Выбрать.Доступность(?(Элементы.КоличествоСтрок()>0,1,0));
   
   // попытаемся найти подстроку в списке
   Поз    = СписокВведенныхПодстрок.НайтиЗначение(ПодСтрокаПоиска);
   Если Поз > 0 Тогда
       // сместим значение в начало списка
       СписокВведенныхПодстрок.СдвинутьЗначение(1 - Поз, Поз);
   Иначе
       // добавим подстроку в начало списока
       СписокВведенныхПодстрок.ВставитьЗначение(1, ПодСтрокаПоиска);
       
       Пока СписокВведенныхПодстрок.РазмерСписка() > 15 Цикл
           СписокВведенныхПодстрок.УдалитьЗначение(СписокВведенныхПодстрок.РазмерСписка());
       КонецЦикла;
           
   КонецЕсли;
   
КонецПроцедуры // ПоискПоПодстроке()


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


//
Процедура ПоКнопкеОткрыть()
   Если Элементы.ТекущаяСтрока()>0 Тогда      
       ОткрытьФорму(Элементы.Элемент);
   КонецЕсли;
КонецПроцедуры // ПоКнопкеОткрыть()



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

   // Заполним колонки. Код и Наименвание - особые, поэтому заполним отдельно.
   Элементы.НоваяКолонка("Элемент"             ,"Справочник");
   Элементы.НоваяКолонка("Код"                 ,"Строка"    ,,,                     ,10,,?(МДСправочник.ТипКода="Текстовый",1,2));
   Элементы.НоваяКолонка("Наименование"        ,"Строка"    ,,, "Найденные элементы",50);
   //Элементы.НоваяКолонка("ЦенаРозничная"            ,"Строка");
   
   // Добавим дополнительные колонки (если есть)
   СчетчикЦикла = 0;
   Для СчетчикЦикла = 3 По СписокРеквизитовПоиска.РазмерСписка() Цикл  // код и наименование уже добавили
       ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
       Представление = МДСправочник.Реквизит(ТекРеквизит).Представление();  
       Длина         = МДСправочник.Реквизит(ТекРеквизит).Длина;
       Элементы.НоваяКолонка(ТекРеквизит       ,"Строка"    ,,, Представление       ,Длина);
   КонецЦикла;
   
   Элементы.ВидимостьКолонки("Элемент",0);
   
   // Восстановим прошлое значение поиска
   СписокРеквизитовПоиска.ТекущаяСтрока(Макс(1, ВосстановитьЗначение("НомерРеквизитаПоиска" + ВидСправочника)));
   Форма.Заголовок(МДСправочник.Представление() + " (поиск элементов по подстроке)", 0);
   
   Если МДСправочник.СпособРедактирования="ВСписке" Тогда
       Форма.Открыть.Видимость(0);
   КонецЕсли;
   
   // Если передали подстроку, то пытаемся сразу найти
   Если ПустоеЗначение(ПодСтрокаПоиска) = 0  Тогда
       ПоискПоПодстроке();      
       Если Элементы.КоличествоСтрок()= 1 Тогда // искали один элемент и уже нашли, форму можно не открвать
           ОбработкаВыбора();
           СтатусВозврата(0);
           
       ИначеЕсли Элементы.КоличествоСтрок() > 1 Тогда    // нашли больше одного
           Активизировать("Элементы");
       КонецЕсли;
   КонецЕсли;
   
   СписокВведенныхПодстрок    = ВосстановитьЗначение("СписокПодстрокПоиска");
   Если ТипЗначенияСтр(СписокВведенныхПодстрок) <> "СписокЗначений" Тогда
       СписокВведенныхПодстрок = СоздатьОбъект("СписокЗначений");
   КонецЕсли;
   
КонецПроцедуры // ПриОткрытии()

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


Процедура ПриЗакрытии()
   
   // Сохраним номер реквизита поиска
   СохранитьЗначение("НомерРеквизитаПоиска" + ВидСправочника, СписокРеквизитовПоиска.ТекущаяСтрока());
   СохранитьЗначение("СписокПодстрокПоиска", СписокВведенныхПодстрок);
   
КонецПроцедуры // ПриЗакрытии()
19 Восточный Парень
 
10.12.07
15:48
ты бы еще глобальный модуль сюда запостил
20 Ёпрст2
 
10.12.07
15:51
Не работает ? Тогда так Напиши...результат - сюда:

Процедура ПоискПоПодстроке()
  Сообщить(ВидСправочника);
  Сообщить(РеквизитПоиска);
  Сообщить(Метаданные.Справочник(ВидСправочника).Реквизит(РеквизитПоиска).Выбран());
21 Roma1314704
 
10.12.07
16:26
Сообщить(РеквизитПоиска<<?>>);
{Обработка.ВыборИзСправочникаПоПодстроке.Форма.Модуль(12)}: Переменная не определена (РеквизитПоиска)
Сообщить(Метаданные.Справочник(ВидСправочника).Реквизит(РеквизитПоиска<<?>>).Выбран());
{Обработка.ВыборИзСправочникаПоПодстроке.Форма.Модуль(13)}: Переменная не определена (РеквизитПоиска)
22 YF
 
10.12.07
16:30
(21) Круто. Продолжай в этом духе ...
23 Ёпрст2
 
10.12.07
16:42
(21) Все сообщить запихай внутрь Процедура ПоискПоПодстроке() ...
и еще добавь
Сообщить(ВыбДата);
24 Roma1314704
 
10.12.07
16:47
Товар
Наименование
10.12.07
0
25 Ёпрст2
 
10.12.07
16:55
(24) Молодца! Только не видно, что реквизит Поиска у тебя ЦенаРозничная  ....
26 Roma1314704
 
10.12.07
17:25
Я добавил и все равно не работает
   СписокРеквизитовПоиска.УдалитьВсе();
   СписокРеквизитовПоиска.ДобавитьЗначение("Код");
   СписокРеквизитовПоиска.ДобавитьЗначение("Наименование");  
   СписокРеквизитовПоиска.ДобавитьЗначение("ЦенаРозничная");
27 Roma1314704
 
10.12.07
17:31
просто пустая колонка и ВСЕ!
28 Roma1314704
 
10.12.07
18:09
Гм
29 Ёпрст2
 
11.12.07
10:07
В форме списка справочника Товар кнопка с формулой  глПоискПоПодстроке(Контекст,"ЦенаРозничная"); Далее пиши сюда , что сообщает (20)
30 Roma1314704
 
11.12.07
11:07
Вот что в глоб. модуле
Процедура глПоискПоПодстроке(Конт, СписокПолей = "") Экспорт

   СписокПараметров = СоздатьОбъект("СписокЗначений");
   СписокПараметров.ДобавитьЗначение(Конт.Вид(), "Вид");
   СписокПараметров.ДобавитьЗначение(СписокПолей,"СписокПолей");
   ОткрытьФормуМодально("Обработка.ВыборИзСправочникаПоПодстроке", СписокПараметров);

   Если ТипЗначенияСтр(СписокПараметров)="Справочник" Тогда
       Если СписокПараметров.Вид() = Конт.Вид() Тогда
           Если Конт.Форма.РежимВыбора() = 1 Тогда
               Конт.Форма.ВыполнитьВыбор(СписокПараметров);
           Иначе
               Конт.АктивизироватьОбъект(СписокПараметров);
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;

КонецПроцедуры // глПоискПоПодстроке()
31 Ёпрст2
 
11.12.07
11:13
(30) Света ? (29) читала? ...
32 Roma1314704
 
11.12.07
11:16
Ребята не судите строго, я эту обработку взял с 1cproclub. Но откуда ж я знал что там такие ГРАМОТЕИ выкладивают свои шедевры. Хотел под себя немного переделать,  а тут такие БОКА
33 Ёпрст2
 
11.12.07
11:17
(32) Болеете ? Это всё есть в ЛЮБОЙ стандартной конфе ...
Тебя 20 раз просят сделать одно и тоже - ПРОВЕРИТЬ, есть ли реквизит в справочнике, или нет.
34 Roma1314704
 
11.12.07
11:36
конечно есть. Когда я убираю галочку ПЕРИОДИЧЕСКИЙ - ВСЕ РАБОТАЕТ. Только ставлю ее обратно - БОЛТ!
35 Ёпрст2
 
11.12.07
11:40
Показывай, для начала, что сообщает (20) когда "болт"
36 Roma1314704
 
11.12.07
11:53
да ничего не сообщает просто пустая колонка
37 Roma1314704
 
11.12.07
11:54
Не могу понять, что еще ему надо этому поиску?
38 Ёпрст2
 
11.12.07
12:15
(37) Так, для начала:
           СчетчикЦикла = 0;
           Для СчетчикЦикла = 1 По СписокРеквизитовПоиска.РазмерСписка() Цикл
               ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
               Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(ТекЭлемент.ПолучитьАтрибут(ТекРеквизит)));
               Если (ТекРеквизит = РеквизитПоиска)И(ТекРеквизит<>"Наименование")И(ТекРеквизит<>"Код") Тогда
                   Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(Запрос.ПолучитьАтрибут(ТекРеквизит)));
               КонецЕсли;
           КонецЦикла;
39 Roma1314704
 
11.12.07
12:19
Поменял, работает так же!
40 Ёпрст2
 
11.12.07
13:33
(39) Как вызываешь обработку ?
Реквизит заполнен ? На какую дату ?
41 Roma1314704
 
11.12.07
14:48
Обработку вызываю через ПоискПоПодстроке()
Дату установил согласно рекомендации

   ТекстЗапроса ="
   |Период с ВыбДата по ВыбДата;
   |ТекущийЭлемент = Справочник.*.ТекущийЭлемент;" +
42 Ёпрст2
 
11.12.07
15:03
(41) В форме списка справочника Товар, повесь кнопку, в формулу кнопки -
глПоискПоПодстроке(Контекст,"ЦенаРозничная") ... Так сделал то хоть?
43 Roma1314704
 
11.12.07
15:51
Это все у меня было еще изначально
44 Roma1314704
 
11.12.07
15:56
Ты  понимаеш, загвоздка в этом долбаном периодеском реквизите. ведь если галочку убрать то все работает. Сам не пойму где собака зарыта
45 Roma1314704
 
12.12.07
15:03
46 Ёпрст2
 
12.12.07
15:06
(44) Мне не лень , я проверил - всё работает ....
Можно даже ПериодНе указывать - вернёт на ТА тогда ...
47 Ёпрст2
 
12.12.07
15:12
+46 .. на вот, http://slil.ru/25225208
48 Roma1314704
 
12.12.07
15:32
:) так вот скачал. И нифига. Цена Розничная НеизвестныйОбъект. И что делать?
49 Roma1314704
 
12.12.07
15:34
Ни хрена не пойму. Это уже ОЧЕНЬ ДАЖЕ ИНТЕРЕСНО
50 Roma1314704
 
12.12.07
15:39
Справочник - Товар
РЕквизит - ЦенаРозничная
Дополнительно:
- Неотрицательный- галочка
- Периодический - галочка
- Изменяется документами- галочка
- ручное изменение- галочка
- использовать: для элемента
51 Ёпрст2
 
12.12.07
15:41
(50) Либо синтаксическая ошибка, либо ЦенаРозничная не реквизит справочника Товар.
Иного не дано ...
52 Ёпрст2
 
12.12.07
15:43
(51) Кинь мд-ник в архиве поглядеть .. на http://slil.ru/
53 Roma1314704
 
12.12.07
15:43
Аська у тебя есть?
54 Ёпрст2
 
12.12.07
15:48
(53) Нет ... так выкладывай ...
55 Roma1314704
 
12.12.07
16:00
файл 1,5 метра, а у меня нет на отдачу слабый. посмотрим получится ли
56 Roma1314704
 
12.12.07
16:20
57 Ёпрст2
 
12.12.07
16:31
(56) Ну и ? И всё работает! http://i006.radikal.ru/0712/2c/072e70df58be.jpg
58 Roma1314704
 
12.12.07
16:35
Не понял. а рекизит ЦенаРозничная - перидический? Тогда вообще я НИХРЕНА НЕ ПОЙМУ. КАКОГО ... у меня не работает?
59 Roma1314704
 
12.12.07
16:37
Так хххх :) поиск должен быть по имени или по коду!!!!
60 Roma1314704
 
12.12.07
16:38
По цене у меня тоже работает!!! :)
61 Ёпрст2
 
12.12.07
16:39
(58) Смотри сам : http://i035.radikal.ru/0712/e2/6b584afca04f.jpg
А чего у тебя там - хз ..:)
62 Roma1314704
 
12.12.07
16:42
Ты в поиске напиши Вася
63 Ёпрст2
 
12.12.07
16:53
(62) Утомил ...
Вот так переделай, радуйся
       СчетчикЦикла = 0;
       Для СчетчикЦикла = 1 По СписокРеквизитовПоиска.РазмерСписка() Цикл
           ТекРеквизит   =  СокрЛП(СписокРеквизитовПоиска.ПолучитьЗначение(СчетчикЦикла));
           Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(ТекЭлемент.ПолучитьАтрибут(ТекРеквизит)));
           Если Метаданные.Справочник(ВидСправочника).Реквизит(ТекРеквизит).Выбран()=1 Тогда
               Если Метаданные.Справочник(ВидСправочника).Реквизит(ТекРеквизит).Периодический =1 Тогда
                   Элементы.УстановитьЗначение(Элементы.НомерСтроки, ТекРеквизит, СокрЛП(ТекЭлемент.ПолучитьАтрибут(ТекРеквизит).Получить(ВыбДата)));
               КонецЕсли;
           КонецЕсли;
       КонецЦикла;
64 Roma1314704
 
12.12.07
17:02
Мамкина НОРКА - Заработало. ОГРОМНЫЙ  Р Е С П Е К Т!