脳内がNotes/Domino系からASP.NETに移行しつつあるIT系情報ブログなつもり。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
昨日やっと、IT管理部署として面倒みてるところ(1事業所)への説明会を。
何の説明会?って、ノーツのR7マイグレについてですよ(´・ω・`)
言いたい事がヤマホドありすぎで、話がまとまんなくって
おまけに自分の説明がへたっぴすぎてて、
ほんと聞きに来てくれてた人、ごめんなさいっ!(ここ見てないと思うけどねw
だって、だって、注意事項多いんだってばさっ!
R4.6⇒R5.0んときはこんな注意事項なかったのに、
なんで今回こんなに色々手間かかるんだろうTT
それもそのはず、R4.6⇒R5.0に変更になったときに手抜きなのか
1台の部門サーバは未だR4.6のまんまで動いてることが発覚するし、
R4.6のときにメールDBをLocalにバックアップ保存してた物は
圧縮かけてODSverを20⇒41に変更してもらわないとクライアントUPダメとか、
(↑非サポートかもしれないけど、再動作チェックしたらR7クライアントから参照できたんで
一応削除。心配な人は、ちゃんと圧縮かけてからのほうがいいかもですよ。)
R4.6⇒R5に上げた部門サーバのログDBがODS20のまんまで
Dominoサービス停止させてからcompactかけて、その上でR7にしなきゃならんとか、
色々と過去の資産が多すぎるんですよっTT
今回の説明会では質問攻めには逢わなかったけど、
これ絶対聞いてる人理解できてないからだよね。。。TT
実行するタイミングで大騒ぎされる可能性が多すぎ。
うん、そのころに1ケ月とか会社休みたいなぁ・゚・(ノД`)・゚・。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
If uidoc.FieldGetText( "Fixture" ) = "" Then
Messagebox "会議予定日が設定されていません。" + Chr(10) _
, 0 , "空き時間検索エラー"
Exit Sub
End If
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim view As NotesView
Set view = db.GetView( "Fixture" )
Dim dc As NotesDocumentCollection
Dim txtDate As String
txtDate = Format$(doc.Fixture(0) , "YYYY/MM/DD")
Set dc = view.GetAllDocumentsByKey(txtDate)
Dim Sdoc As NotesDocument
Set Sdoc = dc.GetFirstDocument()
'値初期化
For m = 0 To 5
FieldName = "a" + Cstr(m)
Call uidoc.FieldSetText( FieldName, "" )
FieldName = "b" + Cstr(m)
Call uidoc.FieldSetText( FieldName, "" )
Next
While Not(Sdoc Is Nothing)
'時間の取得
HurDataS = Cstr(Hour(Sdoc.StartTime(0)))
MinDataS = Cstr(Minute(Sdoc.StartTime(0)))
HurDataE = Cstr(Hour(Sdoc.EndTime(0)))
MinDataE = Cstr(Minute(Sdoc.EndTime(0)))
Dim c As Integer, d As Integer
c = Cint(Left$(MinDataS, 1))
d = Cint(Left$(MinDataE, 1))
If c = 5 And d = 0 Then
d = 6
End If
Select Case HurDataS
Case "15":
Flag = "a"
Case "16":
Flag = "b"
End Select
If c = d - 1 Then
'■が1つのみ(10分間)
Select Case HurDataS
Case "15":
FieldName = Flag + Left$(MinDataS, 1)
Case "16":
FieldName = Flag + Left$(MinDataS, 1)
End Select
Call uidoc.FieldSetText( FieldName, "■" )
Else
'■が2個以上(20分以上)
If HurDataS = HurDataE Then
'時が同じ場合
For i = c To (d - 1)
FieldName = Flag + Cstr(i)
Call uidoc.FieldSetText( FieldName, "■" )
Next
Else
'時が違う場合
For i = c To 5
FieldName = "a" + Cstr(i)
Call uidoc.FieldSetText( FieldName, "■" )
Next
For l = 0 To (d - 1)
FieldName = "b" + Cstr(l)
Call uidoc.FieldSetText( FieldName, "■" )
Next
End If
End If
Set Sdoc = dc.GetNextDocument(Sdoc)
Wend
Call workspace.DialogBox( "time_off", True, True, True, True, False, False, "空き時間検索")
Exit Sub
End Sub
12 | 2025/01 | 02 |
S | M | T | W | T | F | S |
---|---|---|---|---|---|---|
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 |