|
Нужна 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. не подходит или разные бывают версии этой библиотеки? |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |