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

Тема в разделе "Lotus - Программирование", создана пользователем romanko, 25 янв 2011.

Статус темы:
Закрыта.
  1. romanko

    romanko Гость

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

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    смотреть лог сервера- там обычно пишет, что не нашлось.

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

    Zeka Well-Known Member

    Регистрация:
    1 сен 2009
    Сообщения:
    219
    Симпатии:
    0
    http task запущен?
     
  4. romanko

    romanko Гость

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

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Раздел @Commands on the Web :(
     
  6. romanko

    romanko Гость

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

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

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

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    romanko
    если не ошибаюсь, то
    ошибка 500 - это нет прав на сохранение документа
     
  8. romanko

    romanko Гость

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    romanko
    использовать агенты написанные на Лотус скрипте, а на самой кнопке Собако-формулами просто выхывать агенты
     
  10. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    есть вариант переписать на @-й вызов лотусскриптового агента. Перед этим можно сделать @-сохранение. И код кнопки вписать в агент с учётом правил написания агентов, запускаемых на сервере.
     
  11. romanko

    romanko Гость

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

    hosm * so what *

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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    romanko
    как обращаетесь к текущему документу?
    если через NotesUIWorckSpace - то не сработает
     
  14. romanko

    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

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

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Читать, что Вам советуют:
    Одним словом, удалите всё, что касается NotesUIWorkspace & NotesUIDocument
     
  16. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    навскидку - это всё (убрать или переписать):


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

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

    romanko Гость

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

    alik86 Lotus team
    Lotus team

    Регистрация:
    20 ноя 2008
    Сообщения:
    465
    Симпатии:
    0
    :lovecodeby:
    Добавлено:
    В смысле я шокирован даже не столько вопросом, сколько его формулировкой. Хотя и вопросом тоже…
     
  19. romanko

    romanko Гость

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

    http:\\ip\name.nsf

    но ничего неполучается
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей