nsfl10n

Lotus Notes/Domino のブログ。nsf:Notes Storage Facility。l10n:Localization。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告|
  3. トラックバック(-)|
  4. コメント(-)

フォームから自動的にビューを作る(l10n)

Generate an automatic view from forms

このスクリプトはDBの設計要素からフォームを検索し、フォームに含まれるすべてのフィールドを表示するビューを生成します。大抵、フォームの内容を表示する標準的なビューが必要になるので、このスクリプトを作りました。このスクリプトを実行する前は、ひとつひとつビューを作らないといけませんでした。今となってはワンクリックでOKです。

Sub Initialize Dim s As New NotesSession Dim w As New NotesUIWorkspace Dim db As NotesDatabase Dim frm As NotesForm Dim vw As NotesView Dim frmName As String Dim c As NotesViewColumn Redim frmNames(0) As String Set db=s.CurrentDatabase i=0 frmNames(i)="" Forall x In db.Forms i=i+1 Redim Preserve frmNames(i) As String frmNames(i)=x.name End Forall frmName="" frmName=w.Prompt(PROMPT_OKCANCELLIST, "Select a Database", "Select a database to open.", "",frmNames) Set vw=db.CreateView(frmName,{SELECT FORM = "}+frmName+{"}) '----------------------------------------------- ' Elimination of automatically created columns '----------------------------------------------- i=0 Forall columna In vw.Columns i=i+1 End Forall For j=1 To i vw.RemoveColumn Next Set frm=db.GetForm(frmName) Forall f In frm.Fields If frm.GetFieldType(f)<>1 Then Set c=vw.CreateColumn(,f,f) Print frm.GetFieldType(f) Select Case frm.GetFieldType(f) Case AUTHORS,NAMES,READERS,1281 a$={@name([Abbreviate];}+c.Formula+{)} c.Formula=a$ Case DATETIMES,1024 c.TimeDateFmt=0 c.DateFmt=6 Case NUMBERS,768 c.NumberAttrib=2 End Select '---------------------------------------------------------------------- ' Special cases of columns of type names non-detected by GetFieldType '---------------------------------------------------------------------- If Left$ ( f , 2 )="us" Then a$={@name([Abbreviate];}+c.Formula+{)} c.Formula=a$ End If c.FontFace="Arial" c.HeaderFontFace="Arial" c.FontPointSize=9 c.HeaderFontPointSize=9 c.FontStyle=0 c.HeaderFontStyle=0 End If End Forall End Sub
This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.

====引用ここまで====


前回(2005年6月度)の「ノーツ Tips 大賞」第2位。

スポンサーサイト
  1. 2005/08/19(金) 00:17:42|
  2. Designer|
  3. トラックバック:0|
  4. コメント:0
<<Notes/Domino 7 開発終了 | ホーム | スクリプト編集時にアクティブな行の色を変える(l10n)>>

コメント

コメントの投稿

管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://nsfl10n.blog9.fc2.com/tb.php/56-c661bd39
08 | 2017/09 | 10
Sun Mon Tue Wed Thu Fri Sat
- - - - - 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

Search

Featured Entries

Recent Entries

Recent Comments

Recent Trackbacks

Archives

Category

Links

Ads

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。