1
IBM Lotus Notes & Domino / Как програмно отличить basic версию лотуса от standart
« : 15 Октябрь 2014, 17:18:11 »
нужно по нажатию кнопки на лотусскрипте или собакаформулах, java не нужно.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
IBM Lotus Notes & Domino / Как програмно отличить basic версию лотуса от standart
« : 15 Октябрь 2014, 16:39:57 »
Подскажите, кто знает, пожалуйста!
3
Администрирование / клиент lotus notes 8.5.1 server 7.0.4
« : 29 Декабрь 2012, 17:51:58 »
В общем, проблема в следующем:
Форма при открытии тормозит, если картинки маштабированы с использованием лотуса. Используйте маштабирование 100%, а жмите внешними редакторами!!\
Тормоза открытия пропадут!
Форма при открытии тормозит, если картинки маштабированы с использованием лотуса. Используйте маштабирование 100%, а жмите внешними редакторами!!\
Тормоза открытия пропадут!
4
Разработка приложений / ошибка в дизайне
« : 24 Декабрь 2012, 13:36:48 »
А что за версия Lotus Designer?
ЗЫ: при использовании *.png картинок в кнопках (action bar) 7-й клиент Lotus Notes тупо валится ))
ЗЫ: при использовании *.png картинок в кнопках (action bar) 7-й клиент Lotus Notes тупо валится ))
6
Разработка приложений / Перевести фокус на документ в клиенте LN вместо открытия нового экземпляра
« : 21 Сентябрь 2012, 11:16:01 »
Найдено в хелпе клиента с подсказки одного хорошего человека:
Set notesUIDocument = notesUIWorkspace.EditDocument( [editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )
newInstance: Boolean. Optional. If True (default), opens a new instance of notesDocument (parameter 2) in the UI. If False, changes focus to an existing instance of notesDocument if one exists, or to a new instance if one does not exist. This parameter does not apply if notesDocument is not specified or the document has a target frame.
Note This parameter is new with Release 6.
newInstance:Тип параметра - Boolean.Необязательный параметр. Если параметр равен True (по-умолчанию), открывает документ по установленному параметру notesDocument, как новый экземпляр документа в клиенте LN. Если параметр равен False, переводит фокус на открытый в клиенте LN документ, либо открывает документ, как новый экземляр, если в клиенте LN нет открытого документа. Этот параметр не влияет на поведение в клиенте LN, если параметр notesDocument не задан, либо документ открыт во фрейме.
Замечание Использование параметра возможно с версии R6 клиента LN.
... что называется: "Век живи, век учись".
Set notesUIDocument = notesUIWorkspace.EditDocument( [editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )
newInstance: Boolean. Optional. If True (default), opens a new instance of notesDocument (parameter 2) in the UI. If False, changes focus to an existing instance of notesDocument if one exists, or to a new instance if one does not exist. This parameter does not apply if notesDocument is not specified or the document has a target frame.
Note This parameter is new with Release 6.
newInstance:Тип параметра - Boolean.Необязательный параметр. Если параметр равен True (по-умолчанию), открывает документ по установленному параметру notesDocument, как новый экземпляр документа в клиенте LN. Если параметр равен False, переводит фокус на открытый в клиенте LN документ, либо открывает документ, как новый экземляр, если в клиенте LN нет открытого документа. Этот параметр не влияет на поведение в клиенте LN, если параметр notesDocument не задан, либо документ открыт во фрейме.
Замечание Использование параметра возможно с версии R6 клиента LN.
... что называется: "Век живи, век учись".
7
Разработка приложений / Склонение ФИО и должности во всех падежах!!!
« : 19 Сентябрь 2012, 16:29:16 »
Да, действительно. На такие редкие фамилии пока что вижу такое решение: реализация исключений в виде справочника.
8
Разработка приложений / Форматирование строки
« : 03 Июль 2012, 10:21:59 »
str в LotusScript нельзя использовать в качестве идентификатора.
На собаках точно так же работает:
str := "ИВАНОВ ИВАН ИВАНОВИЧ";
@ProperCase(str);
На собаках точно так же работает:
str := "ИВАНОВ ИВАН ИВАНОВИЧ";
@ProperCase(str);
9
Разработка приложений / Узнать количество повторений в строке( Formula Language)?
« : 03 Июль 2012, 10:12:46 »Код: [Выделить]
pattern:="да";
list:= "да нет да да было да ту ту да ту";
tmp:=@Explode(@Trim(list));
quantity:=@Elements(tmp);
cnt:=0;
@For(i:=1;i<=quantity;i:=i+1;
@If(tmp[i]=pattern;cnt:=cnt+1;@Success)
);
cnt
где cnt - возвращаемое количество
10
Учебный центр / IBM Certified Advanced Application Developer - Lotus Notes and Domino 8.5
« : 06 Март 2012, 11:26:05 »
На сайте IBM http://www-03.ibm.com/certify/certs/14003205.shtml для получения сертификата нужет сертификат IBM Certified Application Developer - Lotus Notes and Domino 8.5 + любой тест из списка.
Вопрос: вот этот тест из списка выбирает экзаменуемый или случайно выбирается экзаменатором?
Спасибо за ответы!
Вопрос: вот этот тест из списка выбирает экзаменуемый или случайно выбирается экзаменатором?
Спасибо за ответы!
11
Разработка приложений / Склонение ФИО и должности во всех падежах!!!
« : 24 Февраль 2012, 12:18:01 »
функции возвращают сколонения в нижнем регистре (кроме ФИО).
функции возвращают лишний пробел справа, так что используйте RTrim
Для того чтобы вернуть регистр букв используйте функцию:
функции возвращают лишний пробел справа, так что используйте RTrim
Для того чтобы вернуть регистр букв используйте функцию:
Код: [Выделить]
Function sameStrCase(strOrig As String, ByVal strCh As String) As String
Dim strChElem As String
Dim lenOrig As Long
Dim lenCh As Long
Dim cnt As Long
Dim cntMax As Long
Dim i As Long
Dim strOrigArr As Variant
Dim strChArr As Variant
Dim letterOrig As String, letterCh As String
Dim strFinal As String
If strCh = "" Then
sameStrCase = ""
Exit Function
End If
strCh = LCase(strCh)
strOrigArr = Split(strOrig, " ")
strChArr = Split(strCh, " ")
cntMax = UBound(strChArr) 'чтобы не зайти за пределы массива
cnt=0
ForAll j In strOrigArr
strChElem = strChArr(cnt)
lenOrig = Len(j)
lenCh = Len(strChElem)
If lenOrig>lenCh Then
lenOrig = lenCh 'чтобы не нарваться на выход за пределы строки
End If
For i = 1 To lenOrig
letterOrig = Mid( j,i,1)
letterCh = Mid( strChElem,i,1)
If letterOrig = UCase(letterCh) Then
Mid(strChArr(cnt),i,1) = letterOrig
End If
Next
cnt = cnt +1
If cnt > cntMax Then Exit ForAll 'во избежании ошибки переполнения
End ForAll
ForAll j In strChArr
strFinal = strFinal + j +" "
End ForAll
sameStrCase = RTrim(strFinal)
End Function
12
Разработка приложений / Склонение ФИО и должности во всех падежах!!!
« : 13 Февраль 2012, 15:33:21 »Код: [Выделить]
%REM
Library Padeg
переписано с 1С кода
Created Feb 12, 2012 by Евгений Меднов/Nikoil/RU
// (c) Jurer Production Begin ( Start )
// В случае, если программа окажется для Вас полезной, и Вы представляете только свои интересы, а не интересы фирмы,
// автор будет весьма признателен, если Вы перечислите ему, то есть мне, некую сумму на Ваше усмотрение
// Счет для я-деньги: 4100131343416 - будьте ж несдержаней в своих инициативах
//
// http://superjur.narod.ru
//
// Удаление этих строк незнаконно!
// Гарантия 91 года и 1 месяц!!!
// Послегарантийное обслуживание - бесплатно!!!
// Круглосуточная поддержка - все 48 часов в бою!
// Ссылка на источник обязательна!
// Эти программы защищены законом об авторских правах. Запрещается перепродажа данной программы.
// ПРОВЕРЕНО! ВИРУСОВ НЕТ!!! АНТИВИРУСОВ ТОЖЕ!!!
// Смотри Милячуша в творительном !!
// скупой слепой тупой - пропой!!
// !№№!
// !56! укратил
// !55! ПадежЫ - для оглы и кызы
// !54!
// !53! Очередное сокращение кода
// !51! Прегромадное спасибо Олегу Дубровскому за оказанную моральную, информационную и материальную поддержку сего проекта.
// Сергею Толкачёву за напоминание о том, что в русском языке всегда есть место исключениям!
// !50! П:Ответственный за электрохозяйство Ф:Ацута Груша
// !48! исправлена ошибка при склонении фамилий (спасибо, Mario).
// !47! исправлена ошибка при склонении профессий ( спасибо, Павел Ковалев).
// !46! оптимизация + четвертый параметр задает, что вернуть - фамилия, имя или отчество или всё сразу в нужном падеже
// !42! Осел + Соловей + Воробей + Немец + Кормилец + Силиец
// !41! отчества оканчивающиеся на "ы" считаются женскими ?
// Функция для склонения одного слова!!!
// z1 - само слово
// z2 - номер падежа
// z3 - пол
// z4 - 1-склонять как фамилию, 2-имя, 3-отчество
%END REM
Option Public
Sub Terminate
End Sub
%REM
Function Max
Description: Comments for Function
%END REM
Function Max(x As Variant, y As Variant) As Variant
If x>y Then
Max = x
Else
Max = y
End If
End Function
Function Падеж(z1,z2,z3,z4,z5) As String
%rem
//_____________________________________________________________________________
// z1 - фамилия имя отчество например Железняков Юрий Юрьевич
// z2 - Падеж ( по умолчанию = 2 - родительный)
// 2 - родительный ( нет кого? ) Железнякова Юрия Юрьевича
// 3 - дательный ( кому? ) Железнякову Юрию Юрьевичу
// 4 - винительный ( вижу кого? ) Железнякова Юрия Юрьевича
// 5 - творительный ( кем? ) Железняковым Юрием Юрьевичем
// 6 - предложный ( о ком? ) Железнякове Юрии Юрьевиче
// Если задать Z2 меньше 0, то на выходе получим от -1=Железняков Ю. Ю. до -6=Железнякове Ю. Ю.
// z3 - параметр Пол может не указываться(в LotusScript z3 = 3), но при наличии фамилий с
// инициалами точное определение пола невозможно, поэтому предлагается задавать пол этим
// параметром 1 - мужской 2 - женский
// ДЛЯ СКЛОНЕНИЯ ПРОФЕССИЙ ИСПОЛЬЗУЙТЕ ФУНКЦИЮ ПАДЕЖП И БУДЕТ ВАМ СЧАСТЬЕ!
// ПадежП(должность,род(число),0) - форма для вызова
// ---------------------------------------------------------------------------------------
// Бибик Галушка Цой Николайчик Наталия Петровна Герценберг Кривошей Капица-Метелица
// Если Падеж(Фио ,1 ,3), то на выходе получим Фамилия Имя Отчество и т.д.
// Если Падеж(Фио ,1 ,3,"1" ), то Фамилия
// Если Падеж(Фио ,1 ,3,"2" ), то Имя
// Если Падеж(Фио ,1 ,3,"3" ), то Отчество
// Если Падеж(Фио, 1 ,3,"12" ), то Фамилия Имя
// Если Падеж(Фио, 1 ,3,"23" ), то Имя Отчество
// Если Падеж(Фио,-1 ,3,"231" ),то И. О. Фамилия
// Если Падеж(Фио,-1 ,3,"23" ), то И. О.
// 10-11-2003 3-20
%End rem
'z1,z2=2,z3=3,z4="123",z5=1 - значения, которые можно задать по умолчанию
z6=LCase(Right(RTrim(z1),4))
z7=Right(z6,1)
'Падеж = IIf(z5<4,Падеж(Trim(Replace(Mid(z1,InStr(z1+" "," ")+1),".",". ")),z2,z3,Replace(z4,z5,ПадежС(IIf((z5=3)And(z7="ы"),z1,Left(z1,InStr(z1+" "," ")-1)),z2,Mid("ча"+z7,IIf(z3=3,IIf(z6="оглы",1,IIf(z6="кызы",1,3)),z3),1),z5)+" "),z5+1),z4)
If z5<4 Then
Падеж = Падеж(Trim(Replace(Mid(z1,InStr(z1+" "," ")+1),".",". ")),z2,z3,Replace(z4,CStr(z5),ПадежС(IIf((z5=3)And(z7="ы"),z1,Left(z1,InStr(z1+" "," ")-1)),z2,Mid("ча"+z7,IIf(z3=3,IIf(z6="оглы",1,IIf(z6="кызы",1,3)),z3),1),z5)+" "),z5+1)
Else
Падеж = z4
End If
End Function
%REM
Function IIf
Description: Comments for Function
%END REM
Function IIf(bool As Boolean, x As Variant, y As Variant) As Variant
If bool Then
IIf = x
Else
IIf = y
End If
End Function
'Function ПадежП(z1,z2,z3) As String
Function ПадежП(ByVal z1,ByVal z2,z3) As String
'ByVal z1,ByVal z2,z3=0
z1=Trim(z1):z4=InStr(z1+" "," ")+1:z5=Left(z1,z4-2):z6=Right(z5,2)
z7=IIf((InStr("ая ий ый",z6)>0)And(InStr("ющий нный",Mid(z1,z4-5,4))=0)And(z3=0),"1","*")
'ПадежП = LCase(IIf((z6="ая")Or(Right(z6,1)="а"),ПадежС(z5,z2,z7,1)+" "+ПадежС(Mid(z1,z4),z2,"*",0),ПадежС(z5,z2,"ч",1)+IIf((z6="ий")And(InStr(z1," ")=0),""," "+IIf(z7="1",ПадежП(Mid(z1,z4),z2,CInt(z7)),Mid(z1,z4)))))
If (z6="ая")Or(Right(z6,1)="а") Then
var = ПадежС(z5,z2,z7,1)+" "+ПадежС(Mid(z1,z4),z2,"*",0)
Else
If (z6="ий")And(InStr(z1," ")=0) Then
var1 = ""
Else
If z7= "1" Then
var1 = ПадежП(Mid(z1,z4),z2,CInt(z7))
Else
var1 = Mid(z1,z4)
End If
var1= " "+var1
End If
var = ПадежС(z5,z2,"ч",1)+var1
End If
ПадежП = LCase(var)
End Function
Function ПадежС(z1,ByVal z2,ByVal z3,z4) As String
'z1,Знач z2=2,Знач z3="*",z4=0 - значения, которые можно задать по умолчанию
z5=InStr(z1,"-")
'z6 = IIf(z5 = 0, "", "-" + ПадежС(Mid(z1, z5 + 1, Len(z1) - z5 + 1), z2, z3, z4))
If z5 = 0 Then
z6 = ""
Else
z6 = "-" + ПадежС(Mid(z1, z5 + 1, Len(z1) - z5 + 1), z2, z3, z4)
End If
'z1 = LCase(IIf(z5 = 0, z1, Left(z1, z5 - 1)))
If z5 = 0 Then
z1 = LCase(z1)
Else
z1 = Left(z1, z5 - 1)
End If
z7=Right(z1,3):z8=Right(z7,2):z9=Right(z8,1)
z5=Len(z1)
za=InStr("ая ия ел ок яц ий па да ца ша ба та га ка",z8)
zb=InStr("аеёийоуэюяжнгхкчшщ",Left(z7,1))
zc=Max(z2,-z2)
'zd=IIf(za=4,5,InStr("айяь",z9))
If za=4 Then
zd = 5
Else
zd = InStr("айяь",z9)
End If
zd=IIf((zc=1)Or(z9=".")Or((z4=2)And(InStr("оиеу"+IIf(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))Or((z4=1)And(InStr("мия мяэ лия кия жая лея",z7)>0)),9,IIf((zd=4)And(z3="ч"),2,IIf(z4=1,IIf(InStr("оеиую",z9)+InStr("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,IIf(z3<>"ч",IIf(za=1,7,IIf(z9="а",IIf(za>18,1,6),9)),IIf(((InStr("ой ый",z8)>0)And(z5>4)And(Right(z1,4)<>"опой"))Or((zb>10)And(za=16)),8,zd))),zd)))
ze=InStr("лец вей бей дец пец мец нец рец вец аец иец ыец бер",z7)
zf=IIf((zd=8)And(zc<>5),IIf((zb>15)Or(InStr("жий ний",z7)>0),"е","о"),IIf(z1="лев","ьв",IIf((InStr("аеёийоуэюя",Mid(z1,z5-3 ,1))=0)And((zb>11)Or(zb=0))And(ze<>45),"",IIf(za=7,"л",IIf(za=10,"к",IIf(za=13,"йц",IIf(ze=0,"",IIf(ze<12,"ь"+IIf(ze=1,"ц",""),IIf(ze<37,"ц",IIf(ze<49,"йц","р"))))))))))
'// zf=IIf((zd=9)Or((z4=3)и(z3="ы")),z1,Left(z1,z5-IIf((zd>6)Or(zf<>""),2,IIf(zd>0,1,0)))+zf+RTrim(Mid("а у а "+Mid("оыые",InStr("внч",z9)+1,1)+"ме "+IIf(InStr("гжкхш",Left(z8,1))>0,"и","ы")+" е у ойе я ю я ем"+IIf(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+IIf((zf="е")Or(za=16)Or((zb>12)и(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2)))
zf=IIf((zd=9)Or((z4=3)And(Right(z1,1)="ы")),z1,Left(z1,z5-IIf((zd>6)Or(zf<>""),2,IIf(zd>0,1,0)))+zf+RTrim(Mid("а у а "+Mid("оыые",InStr("внч",z9)+1,1)+"ме "+IIf(InStr("гжкхш",Left(z8,1))>0,"и","ы")+" е у ойе я ю я ем"+IIf(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+IIf((zf="е")Or(za=16)Or((zb>12)And(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2)))
ПадежС = IIf(""=z1,"",IIf(z4>0,UCase(Left(zf,1))+IIf((z2<0)And(z4>1),".",Mid(zf,2)),zf)+z6)
End Function
13
Разработка приложений / Работа в дизайнере на серверной реплике шаблона БД может привести к поломке БД?
« : 02 Декабрь 2011, 10:07:05 »
Собственно, это вопрос.
Я почему-то всегда работал на локальной реплике, реплицируя на серверную изменения. Когда я начинал работать с лотусом, мой коллега настойчиво рекомендовал мне поступать таким образом (он начинал с 5-й версии).
У кого-нибудь были проблемы, связанные с работой в дизайнере с серверной репликой?
Может, этот глюк был когда-то давно и теперь устранен?
Я почему-то всегда работал на локальной реплике, реплицируя на серверную изменения. Когда я начинал работать с лотусом, мой коллега настойчиво рекомендовал мне поступать таким образом (он начинал с 5-й версии).
У кого-нибудь были проблемы, связанные с работой в дизайнере с серверной репликой?
Может, этот глюк был когда-то давно и теперь устранен?
14
Разработка приложений / Re: LotusNotes - Delphi - OLE API
« : 23 Ноябрь 2011, 17:23:32 »
Call MailDoc.ReplaceItemValue("SendTo", edTo.Text)
так не получается?
так не получается?
15
Разработка приложений / Re: коннект с базой DB2
« : 23 Ноябрь 2011, 17:09:54 »
http://www.redbooks.ibm.com/Redbooks.nsf/RedbookAbstracts/redp4102.html?Open
в этом редбуке посмотрите
в этом редбуке посмотрите