Пишу базу

[phantom76]

а какое ограничение существует на размер одного документа в БД в 7-ке ?

 

[Akupaka]

ограничений на размер документа, в принципе, нет
есть ограничение на размер summary-полей, и на сумму размеров summary-полей...
summary-поле не должно превышать 32 КБ (в реале около 28-29)
сумма summary-полей не должна превышать 64 КБ (тут тоже врут )

 

[phantom76]

ограничений на размер документа, в принципе, нет
есть ограничение на размер summary-полей, и на сумму размеров summary-полей...
summary-поле не должно превышать 32 КБ (в реале около 28-29)
сумма summary-полей не должна превышать 64 КБ (тут тоже врут )

например какие поля?

 

[Akupaka]

все те итемы, что isSummary = True
по-умолчанию, все итемы, кроме РТ, которые созданы по полям на форме, isSummary = True
если Вы хотите запихать в итем многа-многа данных, то запихайте их с помощью LS, а перед сохранением сделайте итему isSummary = False
например:

doc.ReplaceItemValue("MegaItem", MegaArray).IsSummary = False

заметьте, что тут нет "Call", т.к. doc.ReplaceItemValue возвращает NotesItem, свойство IsSummary которого мы используем

 

[phantom76]

Спасибо теперь понятно

 

[Akupaka]

к стати, я забыл сказать, что не РТ-поле, у которого isSummary = false, тоже ограничено 64 КБ (около 59)...
поэтому если надо ну очень много всего, то придется пихать в РТ-поле и парсить...
если интересно, то гляньте Known limits в хэлпе дизайнера, там это собрано в таблицу...



хм... сам глянул... не все там есть

 

[Sandr]

хм... сам глянул... не все там есть

Блин, откуда ты такой умный?

 

[phantom76]

спасибо нашел

 

[Akupaka]

Блин, откуда ты такой умный?

флудер

 

[phantom76]

как привести типы , чтобы текущее значение dateTime2 напечатать через Print ?

Dim dateTime2 As NotesDateTime
Dim doc As NotesDocument
Set dateTime2 = New NotesDateTime(doc.GetFirstItem("Rep_date").text)

 

[Akupaka]

я че-то понять не могу
ты преобразовываешь какой-то текст (вероятно дату) в дату, а потом хочешь вывести ее текстом?..
в чем смысл?

у класса notesDateTime есть свойства, глянь в хелпе, что тебе наиболее подходит, например, можешь использовать notesDateTime.LocalTime

print dateTime2.LocalTime

 

[phantom76]

Set dateTime2 = New NotesDateTime(doc.GetFirstItem("Rep_date").text) - иначе выдает ошибку типов...
Rep_date - поле на форме тип Date\Time

 

[morpheus]

phantom76
Print Format( doc.GetItemValue("Rep_date")(0), "dd.mm.yyyy" )

 

[phantom76]

а Set dateTime2 = New NotesDateTime(doc.GetFirstItem("Rep_date").text) в каком формате лучше оставлять?
дальше dateTime2 сравниваю с dateTime3 которая равна Set dateTime3 = New NotesDateTime("Today")

 

[morpheus]

а Set dateTime2 = New NotesDateTime(doc.GetFirstItem("Rep_date").text) в таком формате лучше оставлять?
дальше dateTime2 сравниваю с dateTime3 которая равна Set dateTime3 = New NotesDateTime("Today")

ну и к чему это должно привести ? (сравнение )

 

[phantom76]

да в принципе вот к чему...

If dateTime3.DateOnly <= dateTime2.DateOnly Then
Print "отправка напоминаний на отчет от"+ dateTime2.LocalTime
'рассылка уведомлений'
End If

 

[Akupaka]

Set notesDateTime = notesItem.DateTimeValue

->

Set dateTime2 = doc.GetFirstItem("Rep_date").DateTimeValue

ты уверен, что твое сравнение корректно? при таком условии если число дней месяца сегодня не больше чем в указанной дате, то будет отправка уведомлений, но не учитываются остальные параметры - год и месяц (время, как я понимаю, не надо)...

 

[Medevic]

А мне больше нравится работать с Variant of DataType 7.

 

[Akupaka]

запутай его еще больше

 

[Medevic]

Да наоборот проще.

If dateTime3.DateOnly <= dateTime2.DateOnly Then
Print "отправка напоминаний на отчет от"+ dateTime2.LocalTime
'рассылка уведомлений'
End If

Это работать не будет.
Поэтому делаем так:

Dim d As Variant
d = doc.GetItemValue("Rep_date")(0)
d = DateNumber(Year(d), Month(d), Day(d)) - это если надо от времени избавится.
If Today <= d Then
Print "отправка напоминаний на отчет от" + Cstr(d) - а можно Format использовать.
Today