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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 224 RSS
←   Ноябрь 2009   →
 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


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


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

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

Статистика

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

Представление бренда компании в клиентах IBM Lotus Sametime Connect версии 8.0 и выше


Рассылку ведет: Программист на Lotus NotesLotus CoderВыпуск No 252 от 2009-11-02
рассылка о программировании на 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. Примеры кодов

The WebSession class makes coding WQO and WQS Agents a doddle. If you're not using it yet you should be...

11 Feb 2008 | View Demo | Download Demo | Read More »

-- Delivered by Feed43 service

We've all heard of drop-down menus, which are all well and good. What about things you want to appear when needed on the page that aren't part of the site navigation? Use flyouts! This demo shows how. Download and see how the login/admin links on the top right of the page function....

15 Feb 2008 | View Demo | Download Demo | Read More »

-- Delivered by Feed43 service

Latest release of DEXT. New addition:

  • Simple demos of Domino with Google Gear
More to follow...

8 Jun 2009 | View Demo | Download Demo

-- Delivered by Feed43 service

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

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

Написал "синхронизатор" между базами Lotus и таблицами SQL. Данные из лотуса закидываются нормально, но затем не могу прочитать то что закинул. Из лотуса кидаю следующим образом:

CODE
Sub Click(Source As Button)

Dim v As Variant
Dim sqlfields As Variant
Dim sqlfields1 As Variant

Dim item As NotesItem
sf="Select "
For i=Lbound(doc.Forms) To Ubound(doc.Forms)
sf=sf+{form="}+doc.Forms(i)+{" |}
Next
sf=Left(sf,Len(sf)-1)

Set col=db.Search(sf,Nothing,0)
If col.Count=0 Then
Msgbox "Ничего не найдено!"
End
End If
count=col.Count
Msgbox Cstr(count)+" документов"

sqlfields1=doc.sqlfields
Dim sfields As Variant
Dim fieldsTypes As Variant
If doc.AllFields(0)<>"" Then sqlfields1=doc.SQLfieldsList_1
Redim sqlfields(Ubound(sqlfields1))
Redim fieldsTypes(Ubound(sqlfields1))
For i=Lbound(sqlfields1) To Ubound(sqlfields1)
sqlfields(i)=Strleftback(sqlfields1(i),"^")
fieldsTypes(i)=Strrightback(sqlfields1(i),"^")
Next
sfields=Join(sqlfields,",")
con.ConnectTo(doc.Server1(0))
Set qry.Connection=con
Set result.Query=qry
' result.Execute
Dim g
For i=1 To col.Count
Set doc1=col.GetNthDocument(i)
v=""
For j=Lbound(sqlfields) To Ubound(sqlfields)
If doc1.HasItem(sqlfields(j)) Then
g=""
Set item=doc1.GetFirstItem(sqlfields(j))
If Isarray(item.Values) Then g=Trim(Cstr(item.Values(0)))
If g="" Then
v=v+"NULL,"
Else
Select Case fieldsTypes(j)
Case 11:
d=Cdat(g)
v=v+"'"+Cstr(Year(d))+"-"+Cstr(Month(d))+"-"+Cstr(Day(d))+"',"
Case -9, -10:v=v+"'"+g+"',"
Case Else:
v=v+""+g+","
End Select
End If
Else
v=v+"NULL,"
End If
Next
qry.SQL={Insert INTO }+doc.Tables(0)+{(}+sfields+{) Values(}+Left(v,Len(v)-1)+{)}
result.Execute
If i=100 Then Goto next1
Next
next1:
Msgbox "Закончено"
' result.Execute
result.Close(DB_CLOSE)
con.Disconnect
End Sub[/code]

Затем пытаюсь подсчитать кол-во закинутых мною записей. В свойствах таблицы написано реальное кол-во, но при программном чтении он возвращает 1.
[code=no-highlight]Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
If doc.Tables(0)="" Then
Msgbox "Укажите в какой таблице нужно произвести подсчет"
ws.CurrentDocument.GotoField("Tables")
End
End If
con.ConnectTo(doc.Server1(0))
Set result.Query=qry
qry.SQL="SELECT * FROM "+doc.tables(0)

Msgbox (result.Execute)
i=0
If result.Execute Then
Do
result.NextRow
i=i+1
Loop Until result.IsEndOfData
End If
Msgbox Cstr(i)
result.Close(DB_CLOSE)
con.Disconnect
End Sub


Помогите, пожалуйста, найти решение


через qry.SQL="SELECT COUNT(*) FROM "+doc.tables(0) подсчитывается.
Cобственно работаю с одной dll по ЕЦП
но есть подозрение что она не хочет со мной работать, так как я ей подсовываю не верный тип (от неё всегда один и тот же результат - не верный тип вх. параметров)
что требовалось:
[code=no-highlight]Function nkiEnumDevices (no:integer; withcard:boolean; var name):byte[/code]
как это реализовалось на LS:
[code=no-highlight]Declare Function nkiEnumDevices Lib "nkidll" (no As Integer, withcard As Boolean, sName As Variant) As Byte

Dim i As Integer, j As Integer, s As String, w As Integer, v As Variant, mas(72) As String, no As Byte, withcard As Boolean
Print "Existing readers:"
i = 1
no = 1
Do
v = mas
withcard = False
j = nkiEnumDevices(i, withcard, s)
If j=0 Then
Print s
Else
Exit Do
End If
i = i +1
Loop While j<>0[/code]
если юзать аналогичные примера на С++ или Паскале то всё пашет
может я как-то не правильно задеклалировал функцию?
Братцы, подскажите, какой бесплатной утилитой сделать экспорт из .nsf в .csv ?
Братцы, подскажите, какой бесплатной утилитой сделать экспорт из .nsf в .csv ?
Есть ли в природе оный (Mail8.5rus.ntf)и если есть - кто может поделиться?
Интересные темы:
Список форумов:

Tips. Советы

This is one of my shorter Tips and I feel a little self-conscious about not posting something a little longer, but I'd feel worse if there are people out there that have been waiting for this and didn
If you're running BlackBerry Enterprise Server 5.0 for Lotus Domino, Dennis Ruddigkeit says a new bug has been reported that moves foldered messages back to the Inbox.

Read | Permalink
Giulio Campobassi likens the Hide/When formula to junk food. The first taste is great, then things get out of hand. He offers some "pretty" Hide/When code to help you keep your sanity.

Read | Permalink
Keith Brooks knows there's a Technote that lists all these switches, it just doesn't list them in alphabetic order. He's provided the list as displayed by the Compact help option.

Read | Permalink


MARK YOUR CALENDAR FOR IN-DEPTH LOTUS TRAINING, MAY 12-14, 2010, BOSTON
Register by December 31, 2009 to save $350.

Andrew Pollack's web application uses Forms and Subforms with embedded Views and has a picklist that's supposed to update when information is changed. However, it seems the Subforms needed some extra attention before they'd update.

Read | Permalink

As you might know, we've got another baby on the way chez Howlett. This will bring the head count to six. Hence we won't all fit in a standard 5-seater car and we're now looking for something bigger. A seven-seater.

We've all but made our minds up on a Nissan Qashqai+2 and this week we're probably going to order a new one. When I say new, I mean new. As in built to order. Although I swore I'd never do that again after I bought a brand new Golf GTI back in my reckless twenties, which ended up just being nothing more than a fancy lease car and a waste of money.

For various reasons we're going to be able to buy a brand new Nissan Qashqai for less than it would cost to buy any other 7 seater from the second hand market. Although I should point out that Karen refuses to buy a "people carrier", so we're restricted to the "crossover" variety of SUVs.

Anyway. What I can't decide is whether to buy a petrol or a diesel model? Everybody says buy diesel as they're cheaper to run but is it as clear-cut as that?

The diesel models are a grand or more expensive than the petrols. How much mileage do you have to be doing to start getting a return on this? On average we spend about 150 pounds a month on petrol.

Another issue is that the salesman (admittedly a slime-ball) advised us against a diesel, based on what we'd told him of our driving habits, as the diesel Qashqai has a "FAP" filter on the exhaust and unless you travel at 50mph for about 30 minutes at least once a week it will clog up and be expensive to clean out, thus negating the cost savings of a diesel.

Any thoughts? Just how much more economic is a diesel?

Click here to post a response

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

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

Author: Philippe P.
Tags: View column title @formula
Idea:
Now you can only specify 1fix text label for Notes view column titles. 
It would be very usefull to be able to specify an @Formula to define Notes view column titles. Especially in multilingual environments, where you can use @formula to show the column title in the user's language.

Author: Philippe P.
Tags: View column title @formula
Idea:
Now you can only specify 1fix text label for Notes view column titles. 
It would be very usefull to be able to specify an @Formula to define Notes view column titles. Especially in multilingual environments, where you can use @formula to show the column title in the user's language.

Members: Vince Schuurman (Chairman), Nathan Freeman (absent), Ludwig Nastansky (absent), Justin Hill, John Head, Brent Peters, Scott Johnsen Others Present: Peter Tanner, Niklas Heidloff, Steve Castledine, Angus McIntyre Proceedings: Meeting called ...
Jane Marcus has contributed a DSAPI filter to allow single sign on for web users including for servers that don't run Windows - see here. With this project you can achieve single sign-on for Domino web users in an environment where some servers are ...
Author: Bruce Currier
Tags: completed ideas
Idea:
In the past I have  frequently voted "No Opinion" (especially on ideas that I don't have direct knowledge of).  I've now decided to go back and vote on alot of them.  If an idea has already been marked complete, I would think you probably don't want any new votes on them.

I don't know about you but everything around OpenNTF feels like a whirlwind right now, lots of new content (best new quality in a short period for a long time for me), Notes Domino base templates being made available on OpenNTF (a first), Notes Domino ...
Еще записи:
Интересные блоги специалистов:

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

Данная статья описывает процесс установки и изменения плагина размещения бренда (branding plug-in) Lotus Sametime на примере плагина для размещения бренда вымышленной компании Your Co.
This document provides a list of notes.ini variables that are now obsolete in Notes and Domino 8.x.
Также почитатай:
Найти документацию можно на сайтах:
СсылкиУтилиты и программыСайты о Lotus Notes
В избранное