Диалоги Lotus developers

[Guest]

Все гениальное просто. Подсказали как вставить ссылку на базу. Правда на LS.

Call rtitem.AppendDocLink( db, db.Title )

 

[CrazyScientist]

<!--QuoteBegin-Domino6+17:03:2006, 20:42 -->
<span class="vbquote">(Domino6 @ 17:03:2006, 20:42 )</span><!--QuoteEBegin-->Идеальный вариан через dll вызывать окно там рисовать и передавать данные в служебный документ нотеса

[snapback]32043" rel="nofollow" target="_blank[/snapback]​

[/quote]

Создал простенькую библиотеку на Delphi...
Создает окно...

На кнопке в Declarations:

Declare Function ShowForm Lib "C:\Temp\lotus.dll" _
Alias "_ShowForms" () As Integer

На кнопке Click:

Sub Click(Source As Button)
Call ShowForm()
End Sub

При проверке вываливается ошибка - external function not found.
Я так понял из хелпа, что библиотека найдена, а вот функция нет...
Хотя из тестового приложения на Delphi все работает...

Может кто чем поможет...

 

[Fugitive]

Скажите, пожалуйста, можно ли как-нибудь обратиться к view а потом ее обновить с помощью LS, если эта вьюха приватная и не имеет alias ??

     Dim view2 As NotesView 
    Set view2 = db.GetView("Документы\Мои")
    Call view2.Refresh

Так можно ?

 

[CrazyScientist]

Все. Проблема решена...

 

[P@Niker]

Заранее извиняюсь за такой огромный код.
Создал я агента, по идее он должен по выбранному мною документу "Баланс" пересчитать его (из двух видов собирает значения из полей Суммы, а потом разность сум должен заносить в документ "Баланса"), работает по кнопке, но нажимая её получаю Шнягу:Object variable not set !

CODE:
Dim source As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view1 As NotesView
Dim view2 As NotesView
Dim pdoc As NotesDocument
Dim vdoc As NotesDocument
Dim pcollection As NotesDocumentCollection
Dim vcollection As NotesDocumentCollection
Dim summav As Integer,summap As Integer
Set db=session.CurrentDatabase
Set doc=source.Document
Set view1=db.GetView("HMatPost")
Set view2=db.GetView("HMatV")
Call view1.Refresh
Call view2.Refresh
Set pcollection=view1.GetAllDocumentsByKey(doc.NaimBal)
Set vcollection=view2.GetAllDocumentsByKey(doc.NaimBal)
For j=1 To pcollection.Count
Set pdoc = pcollection.GetNthDocument( j )
v=pdoc.QuantityEl(0)
k=k+v
Next
summap=k
For j=1 To vcollection.Count
Set vdoc=vcollection.GetNthDocument(j)
v=vdoc.QuantityV(0)
d=d+v
Next
summav=d
doc.Exist(0)=summap-summav
Call doc.Save(False,False)
End Sub
Помогите пожалуйста разобраться в чем дело, а то это мой первый агент!
Заранее очень признателен!!!!!!!1

 

[CrazyScientist]

Set doc=source.Document...


А source инициализировать кто будет?

 

[Guest]

<!--QuoteBegin-P@Niker+25:03:2006, 21:11 -->
<span class="vbquote">(P@Niker @ 25:03:2006, 21:11 )</span><!--QuoteEBegin-->получаю Шнягу:Object variable not set !

[snapback]32474" rel="nofollow" target="_blank[/snapback]​

[/quote]

Если не знаешь где вылазит ошибка включи обработку ошибок, типа в начале до первого Set пишешь
On error Goto errH

а перед Exit Sub

errL:
Exit Sub
errH:
Print Error$ & " (" & Err() & ") в Кнопке такой-то в линии " & Erl()
Resume errL

и потом уже действуешь по ситуации.

 

[fedotxxl]

У меня таков вопрос - зачем столбац в представлении нужны имена ($1) и где их можно использовать (@picklist, @dblookup...)

 

[Guest]

Что-то не могу найти...
Есть поле Names. Как вывести в представлении имя на русском языке.
В names.nsf Alternate name заполнено.

 

[Wanderstep]

<!--QuoteBegin-Юлия+28:03:2006, 14:04 -->
<span class="vbquote">(Юлия @ 28:03:2006, 14:04 )</span><!--QuoteEBegin-->Что-то не могу найти...
Есть поле Names. Как вывести в представлении имя на русском языке.
В names.nsf Alternate name заполнено.

[snapback]32630" rel="nofollow" target="_blank[/snapback]​

[/quote]
У меня в таком случае в событии "Input Translation" поля Sender заносится следующая формула:

@Name([CN]; @NameLookup([NoUpdate]; Sender; "AltFullName"))

 

[Guest]

Для: Wanderer
Спасибо!

 

[Adept]

Как выполнить команду (@command) из LotusScript? На сколько я понял evaluate работает только с функциями.
Ну а в целом проблема в том, чтобы из ЛС пометить документ как прочитаный (видел подобный вопрос на форуме, но ответа там не было)

 

[Guest]

<!--QuoteBegin-Adept+11:04:2006, 14:12 -->
<span class="vbquote">(Adept @ 11:04:2006, 14:12 )</span><!--QuoteEBegin-->Как выполнить команду (@command) из LotusScript? На сколько я понял evaluate работает только с функциями.
Ну а в целом проблема в том, чтобы из ЛС пометить документ как прочитаный (видел подобный вопрос на форуме, но ответа там не было)

[snapback]33379" rel="nofollow" target="_blank[/snapback]​

[/quote]

Вроде как в методе NotesDocument.Save() в одном из параметров указывается является ли документ прочитанным или нет, попробуй таким способом.

 

[Duedev]

Кто знает, как программно можно узнать кол-во пользователей, работающих в данный момент с базой, находящейся на сервере?

 

[Domino6]

<!--QuoteBegin-Duedev+12:04:2006, 18:06 -->
<span class="vbquote">(Duedev @ 12:04:2006, 18:06 )</span><!--QuoteEBegin-->Кто знает, как программно можно узнать кол-во пользователей, работающих в данный момент с базой, находящейся на сервере?

[snapback]33455" rel="nofollow" target="_blank[/snapback]​

[/quote]

Суть. Для чего? От этого зависит реализация

 

[Ln_dvlpr]

как откыть базу созданный версией 6.5 на пятерке. база создан без использовании новинок.
или как переформатировать с 6.5 на 5.

 

[Domino6]

<!--QuoteBegin-Ln_dvlpr+13:04:2006, 10:58 -->
<span class="vbquote">(Ln_dvlpr @ 13:04:2006, 10:58 )</span><!--QuoteEBegin-->как откыть базу созданный версией 6.5 на пятерке. база создан без использовании новинок.
или как переформатировать с 6.5 на 5.

[snapback]33486" rel="nofollow" target="_blank[/snapback]​

[/quote]

сделать базу на 5 сервере
или
сделать реплику с сервера 5 клиентом
или
в админпанели профиксапить с переведением формата

 

[Duedev]

<!--QuoteBegin-Domino6+12:04:2006, 21:35 -->
<span class="vbquote">(Domino6 @ 12:04:2006, 21:35 )</span><!--QuoteEBegin-->Суть. Для чего? От этого зависит реализация

[snapback]33456" rel="nofollow" target="_blank[/snapback]​

[/quote]

Интересно, а какие есть варианты? .
Вообще говоря, мне нужно ,чтобы базу могли открыть одновременно, скажем, не более 5 пользователей.
PS: делать что-то вроде внутренних счетчиков уж очень не хочется

 

[Ln_dvlpr]

сделать базу на 5 сервере
или
сделать реплику с сервера 5 клиентом
или
в админпанели профиксапить с переведением формата

у нас установлен 5-сервер и у всех клиентов 5 версия. принесли базу версии 6,5. надо на его основе создать у нас базу. пок аона у меня на локально когда пытаюсь открыть пишет что неправильная версия.

 

[Domino6]

<!--QuoteBegin-Ln_dvlpr+14:04:2006, 07:56 -->
<span class="vbquote">(Ln_dvlpr @ 14:04:2006, 07:56 )</span><!--QuoteEBegin-->пытаюсь открыть пишет что неправильная версия.

[snapback]33547" rel="nofollow" target="_blank[/snapback]​

[/quote]
Поставь 6-ой клиент