Ошибка помогите исправить!

[romanko]

Помогите пожайлуста при открытии бд через браузер выдает ошибку 404!Что делать?
И еще такой вопрос если в браузере не выпоняются всеэкшоны которые выполняются в клиенте это нормально?

 

[hosm]

смотреть лог сервера- там обычно пишет, что не нашлось.

Добавлено: Иногда еще может DomLog помочь - включите логирование. Детали как - есть в хелпе.

 

[Zeka]

http task запущен?

 

[romanko]

http task запущен?

Да запущен там что то с самим сервером случилось после его перезагрузки все нормально!СПС!
подскажите еще такую штуку вот для перехода на форму такая формула @Command[Compose]"Form Name" а для перехода на представление?

 

[hosm]

Раздел @Commands on the Web

OpenView
The OpenView @command opens a view in the current database. For example, the following code opens "Main View":
@Command([OpenView]; "Main View")
If key is specified, the view must be sorted and the OpenView command must specify key exactly except for case. On the Web, the view opens with the row containing key at the top. The following code opens "Main View" at the first row that contains the value "one":
@Command([OpenView]; "Main View"; "one");
@Command([OpenDocument])
In the Notes client, you can specify a partial key, for example, "o" or "on" instead of "one." In a Web application, the key must be exact.
In a Web application, the argument "$first" for key means the first row.
These @commands are equivalent to URL commands formatted as follows:

Ссылка скрыта от гостей

Ссылка скрыта от гостей

 

[romanko]

Раздел @Commands on the Web

Еще такой вопрос вот я пишу

@If(@IsValid;
@Do(@Command([FileSave]);@Command([CloseWindow]); @Command([OpenView];"Все документы";"1")); "")

и ниче не происходит при нажатии на это действие в браузере ошибка 500

И еще такой вопрос когда добавляю действие на панель действий или просто создаю любое то оно не отбражается?

 

[morpheus]

romanko
если не ошибаюсь, то
ошибка 500 - это нет прав на сохранение документа

 

[romanko]

Да ту ошибку уже исправил
что делать с действием которое не показывается в вэбе действие написаное на лотус скрипт, получается все действия которые написаны с помощью формул нормально отображаются а одно на лотус скрипт действие которое добавляет файлы что с этим делать?

 

[morpheus]

romanko
использовать агенты написанные на Лотус скрипте, а на самой кнопке Собако-формулами просто выхывать агенты

 

[hosm]

что с этим делать?

есть вариант переписать на @-й вызов лотусскриптового агента. Перед этим можно сделать @-сохранение. И код кнопки вписать в агент с учётом правил написания агентов, запускаемых на сервере.

 

[romanko]

засунул скрипт в агента потом по нажатию на действие ничего не происходит в действии прописано вот так
@Command([ToolsRunMacro];"ADD")????
что делать?

 

[hosm]

ничего не происходит - так не бывает =) должен быть сабмит документа на сервер, где будет выполняться данный агент, а потом либо ошибка, либо Agent Done/Refresh документа/etc.
что делать?
1. смотреть лог сервера на предмет ошибок от веб-сервера
2. проверить - в агенте стоит флаг run as web user, документ получается как Session.DocumentContext?

 

[morpheus]

romanko
как обращаетесь к текущему документу?
если через NotesUIWorckSpace - то не сработает

 

[romanko]

вот код
Dim nwsBrowseWorkspace As New NotesUIWorkspace
Dim nudWebdoc As NotesUIDocument
Dim ndocBackWebdoc As NotesDocument
Dim ndoc As NotesDocument
Dim neoEmbedAttachment As NotesEmbeddedObject
Dim nimAttachFileItem As NotesItem
Dim nrimAttachment As NotesRichTextItem
Dim rti As NotesRichTextItem
Dim varFilePath As Variant
Dim strFilePath As String
Dim session As New NotesSession
Dim strFieldname As String
Dim strFiletype As String
Set w = New NotesUiWorkspace


Set nudWebdoc = nwsBrowseWorkspace.currentdocument
Set ndocBackWebdoc = nudWebdoc.document

'varFilePath = nwsBrowseWorkspace.OpenFileDialog(False)
filters$="Word Документ| *.doc|Excel Документ| *.xls|Power Point Документ| *.ppt|Paintbrush Pictures| *.bmp|Все файлы|*.*"
varFilePath=w.OpenFileDialog(False, "Выберите документ для открытия",filters$, "c:\")
If Not Isempty(varFilePath) Then
strFilePath = varFilePath(0)
ndocBackWebdoc.txtFileName = strFilePath
Msgbox "Filepath : "&strFilePath

strFiletype = Strrightback( strFilePath, "." )
Msgbox "File Type : "&strFiletype

End If

Set nrimAttachment = ndocBackWebdoc.GetFirstItem("Body")
If nrimattachment Is Nothing Then
Set nrimAttachment = ndocBackWebdoc.CreateRichTextItem("Body")
End If


Set neoEmbedAttachment = nrimAttachment.EmbedObject( EMBED_ATTACHMENT, "", strFilePath)
If neoEmbedAttachment .FileSize >= 3146001Then
Msgbox "Файл слишком большой !!!!"
Call neoEmbedAttachment .Remove
Else

Set nudWebdoc = nwsBrowseWorkspace.CurrentDocument
nudWebdoc.Refresh True
Set ndocBackWebdoc = nudWebdoc.Document
strFieldname = nudWebdoc.CurrentField
Set nrimAttachment = ndocBackWebdoc.GetFirstItem("Body")


If strFiletype = "doc" Then
Msgbox "Для открытия данного вложения вам потребуется Microsoft Oficce Word",MB_OK,"Подсказка"
Set nrimAttachment = ndocBackWebdoc.GetFirstItem("Podzkazka")
If nrimattachment Is Nothing Then
Set nrimAttachment = ndocBackWebdoc.CreateRichTextItem("Podzkazka")
End If
Call nrimAttachment.AddNewLine(1, True)
Call nrimAttachment.AppendText ("Для открытия данного вложения вам потребуется Microsoft Oficce Word")
End If


If session.NotesBuildVersion >= 190 Then
nrimAttachment.Update
Else
Call ndocBackWebdoc.ComputeWithForm(True, False)
End If

ndocBackWebdoc.SaveOptions = "0"
Call nudWebdoc.Close(True)
Set uidocNew = nwsBrowseWorkspace.EditDocument(True, ndocBackWebdoc, , , , True)
Delete nudWebdoc
uidocNew.Document.RemoveItem("SaveOptions")
If strFieldname <> "" Then uidocNew.GotoField(strFieldname)

End If

что тут надо изменить чтобы работало в браузере?

 

[nvyush]

что тут надо изменить чтобы работало в браузере?

Читать, что Вам советуют:

как обращаетесь к текущему документу?
если через NotesUIWorckSpace - то не сработает

документ получается как Session.DocumentContext?

Одним словом, удалите всё, что касается NotesUIWorkspace & NotesUIDocument

 

[hosm]

что тут надо изменить чтобы работало в браузере?

навскидку - это всё (убрать или переписать):

Dim nwsBrowseWorkspace As New NotesUIWorkspace
Dim nudWebdoc As NotesUIDocument
Dim varFilePath As Variant
Set w = New NotesUiWorkspace


Set nudWebdoc = nwsBrowseWorkspace.currentdocument
Set ndocBackWebdoc = nudWebdoc.document

'varFilePath = nwsBrowseWorkspace.OpenFileDialog(False)
filters$="Word Документ| *.doc|Excel Документ| *.xls|Power Point Документ| *.ppt|Paintbrush Pictures| *.bmp|Все файлы|*.*"
varFilePath=w.OpenFileDialog(False, "Выберите документ для открытия",filters$, "c:\")
If Not Isempty(varFilePath) Then
strFilePath = varFilePath(0)
Msgbox "Filepath : "&strFilePath
Msgbox "File Type : "&strFiletype

End If


Msgbox "Файл слишком большой !!!!"


Set nudWebdoc = nwsBrowseWorkspace.CurrentDocument
nudWebdoc.Refresh True
Set ndocBackWebdoc = nudWebdoc.Document
strFieldname = nudWebdoc.CurrentField

Msgbox "Для открытия данного вложения вам потребуется Microsoft Oficce Word",MB_OK,"Подсказка"


ndocBackWebdoc.SaveOptions = "0"
Call nudWebdoc.Close(True)
Set uidocNew = nwsBrowseWorkspace.EditDocument(True, ndocBackWebdoc, , , , True)
Delete nudWebdoc
uidocNew.Document.RemoveItem("SaveOptions")
If strFieldname <> "" Then uidocNew.GotoField(strFieldname)

End If

Добавлено: можно я пошлю на :lovecodeby: и повторюсь?

И код кнопки вписать в агент с учётом правил написания агентов, запускаемых на сервере.

Добавлено: посмотрите еще базу, выложенную в этой теме - link removed Там, правда, вроде не в рт-поле вкладывают. Но если есть права, на сервере можно детачить и перевложить в нужное рт-поле.

 

[romanko]

а еще такой вопрос
вот на одной машине установлен сервер лотуса и все остальное с другой машины я могу зайти на бд которая лежит на сервере?и как это сделать?что нужно настроить?

 

[alik86]

:lovecodeby:
Добавлено:
В смысле я шокирован даже не столько вопросом, сколько его формулировкой. Хотя и вопросом тоже…

 

[romanko]

получается я пишу вот так

http:\\ip\name.nsf

но ничего неполучается