Отправляет email-рассылки с помощью сервиса Sendsay

Бюллетень "Lotus Notes CodeStore"

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 224 RSS
←   Январь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней 2 выпусков (1-2 раза в 2 месяца)


Сайт рассылки: http://lotusnotes.wordpress.com
Открыта: 28-03-2008

Автор
Леонид Николаевич Дорохов

Статистика

224 подписчиков
+1 за неделю
←   Все выпуски   →

LO57087: THE DELETED FOLDER DOES NOT DISAPPEAR.


Рассылку ведет: Программист на Lotus NotesLotus CoderВыпуск No 435 от 2011-01-03
рассылка о программировании на Lotus Notes/Domino
Обсуждения на форумах, блогах. Примеры программного кода на LotusScript,@formula, Java

рассылка:выпускархивлентаблогсайт

Бюллетень "Lotus Notes CodeStore" Выпуск 13 от 21.04.2008

comp.soft.prog.lotuscodesrore

Поиск по сайтам о Lotus Notes
Тематически поиск только по сайтам о Lotus Notes.
lotus.googlecse.org.ua
Содержание выпуска

CodeStore. Примеры кодов

Еще примеры:
Больше кодов на сайтах:

Форумы.Свежи темы и обсуждения

Чтобы как-то наладить выполнение LotusScript между двумя БД решил использовать агенты. Соответственно, данные, которые уходят в агент и которые он возвращает хранятся в переменных окружения. Проблема в том, что эти переменные окружения куда-то девают перевод строки.

С этим можно как-то бороться?

Агент:
Sub Initialize
    ' библиотека подключена
    Dim setting As New SettingManager
    
    Dim s As New NotesSession
    Dim id As String
    Dim res As String
    
    id = s.GetEnvironmentString("var")
    
    res = setting.getSetting(id)
    
    Call s.SetEnvironmentVar("res", res)
End Sub


Библиотека получения параметра:
Public Class SettingManager    
    ' возвращает параметр по его id
    Function getSetting (ID As String) As String
        Dim res As Variant
        Dim q As String
        
        q = {@dblookup("":"NoCache"; @dbname; "Настройки"; "} + ID + {"; 2; [FAILSILENT])}
        res = Evaluate(q)
        
        If Not Isempty(res) Then
            Dim out As String
            out = ""
            
            Forall r In res
                out = out + r + Chr(13)
            End Forall
            
            getSetting = out
        End If
    End Function
    
    ' возвращает базу данных, сервер и путь 
    ' которой указан в значении настройки с ключом
    ' ID
    Function getDB (ID As String) As NotesDatabase
        
    End Function
    
    ' конструктор
    Sub new
        
    End Sub    
End Class


Когда вызываю getSetting непосредственно из той БД, где она описана все переносы строк на месте.

Что можете посоветовать?
Интересные темы:
Список форумов:

Tips. Советы

Еще советы:
Смотри советы на сайтах:

Блоги. Что обсуждают и пишут

Еще записи:
Интересные блоги специалистов:

Статьи и Документация

Although the folder of a mail database was deleted, it does not disappear from a screen.
1. Create a simple Java agent that opens some documents in a view
Delegated users with either Lotus Notes 8.5 or 8.5.1 Basic configuration get
Streaming cluster replication does not update a conflict document correctly.
In a "Select Addresses" dialog, a primary name is displayed when an alternate name drag and drop to Recipient fields.
Customer configured reverse proxy in front of Domino 8.5.1. They use browser to
Streaming cluster replication does not work correctly when "Merge Conflicts" is enabled.
After installing the Domino Server on a Windows 2008 platform, users and other servers are unable to access the server.
Также почитатай:
Найти документацию можно на сайтах:
СсылкиУтилиты и программыСайты о Lotus Notes
В избранное