Имя: Пароль:
1C
 
Нужна rainbow.dll! Помогите, у кого есть......
0 Vika64
 
31.05.07
12:23
Не знаю где взять rainbow.dll для 7.7. Если у кого есть  - ящик vika64@.tut.by
3 selenat
 
31.05.07
12:25
(0) а зачем тебе такая древность? Ты еще поищи платформу 1С ниже 6...
6 Vika64
 
31.05.07
12:31
(1), (2), (3)  ладно, издевайтесь...
на моей подработке - производство 7.7. в справочнике номенклатуры в форме списка есть строка поиска, которая без этой dll не работает.

Процедура ПриОткрытии()
   Попытка
       ЗагрузитьВнешнююКомпоненту("rainbow.dll");
       Мета = СоздатьОбъект("MetaDataWork");
       Радуга = СоздатьОбъект("RainBowService");
   Исключение
       Форма.кнПоиск.Доступность(0);
       Форма.СтрокаПоиска.Доступность(0);
   КонецПопытки;
КонецПроцедуры
Вот хочу чтоб работала эта кнопка, что плохого в этом?
7 Истина
 
31.05.07
12:34
(6) Менйте на 1сpp.dll с небольшими переделками кода.
8 sapphire
 
31.05.07
12:37
9 Vika64
 
31.05.07
12:37
напиши как.....я в этих dll не смыслю, я их только использую.
10 selenat
 
31.05.07
12:39
(9) хорошо сказала...
13 sapphire
 
31.05.07
12:41
(9) по ссылке в (8) лежит архив в нем есть rainbow
14 sapphire
 
31.05.07
12:42
при чем со всеми доками
16 Vika64
 
31.05.07
12:51
(13)   sapphire спасибо огромное
17 sapphire
 
31.05.07
12:58
(16) да незачто
18 Vika64
 
31.05.07
13:31
попробовала, к сожалению вылетела база, после того как я попыталась найти товар, вот код:
Процедура НайтиТовар()
   Перем Запрос, ТекстЗапроса, СписокВыбора;
   Перем ВнутрИД, ТекВыбор;
   Перем ВремСтрокаПоиска;
   
   ВремСтрокаПоиска = "%"+СокрЛП(СтрокаПоиска)+"%";
   ВремСтрокаПоиска = СтрЗаменить(ВремСтрокаПоиска," ","%");
   СписокВыбора = СоздатьОбъект("СписокЗначений");
   
   Если ПустаяСтрока(СтрокаПоиска) = 0 Тогда
       ВнутрИД = "SC" + Мета.ИДСправочника("Номенклатура");
       Запрос = СоздатьОбъект("ODBCQuery");
       ТекстЗапроса="SELECT ID,DESCR
       | FROM "+ВнутрИД+"
       | WHERE (RTRIM(DESCR) LIKE '"+ВремСтрокаПоиска+"')";
       
       Если Запрос.Prepare(ТекстЗапроса,1,1)=1 Тогда
           Если Запрос.Open()=1 Тогда
               Запрос.GotoNext();
               Пока Запрос.IsOK()=1 Цикл
                   ТекЗнач = Радуга.ЗначениеИзСтрокиБД("Справочник","Номенклатура",Запрос.GetString(Запрос.FindField("ID")));
                   Если ТекЗнач.ЭтоГруппа()=0 Тогда
                       СписокВыбора.ДобавитьЗначение(ТекЗнач);
                   КонецЕсли;
                   Запрос.GotoNext();
               КонецЦикла;
               Запрос.Close();
           Иначе
               Предупреждение("Ошибка Запрос.Open");
           КонецЕсли;
           Запрос.Reset();
       Иначе
           Предупреждение("Ошибка Запрос.Prepare");
       КонецЕсли;
       
       Если СписокВыбора.РазмерСписка()>0 Тогда
           Если СписокВыбора.ВыбратьЗначение(ТекВыбор,,,,1)=1 Тогда
               АктивизироватьОбъект(ТекВыбор);
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры

может кто подскажет почему база упала?Может этот rainbow.dll к 7.7. не подходит или разные бывают версии этой библиотеки?