지병철의 주저리 주저리

ret := @Prompt([OkCancelEdit];"입력"; "변경할 값을 입력하세요";@GetField(FieldName)); @If(ret = ""; @Return(""); ""); @SetField(FieldName; ret); @SetField("문서번호"; Header + "-" + ret);

에이전트를 만들어 내용에 @Command([ToolsRefreshSelectedDocs]) 를 넣고, 에이전트 속성 '런타임'에서 '수행 메뉴 선택' 대상을 '없음'으로 하니 잘 되었다. 아래와 같이 하니 제대로 계산 필드가 재계산 되지 못했다. (using Computewithform) Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim collecti..

Sub Initialize On Error GoTo errHandle Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim num$, FunctionNumber$, approver$, apprdate$, requester$, subject$ Set db = session.CurrentDatabase Set collection = db.UnprocessedDocuments Set doc = collection.GetFirstDocument() While Not(doc Is Nothing) num$ = CStr(getLastNum) nu..

Server:=@Subset(@DbName;1); @DbColumn("":"NoCache";Server:"app\\insa.nsf";"view name";1) @DbLookup("":"NoCache";"server name":"app\\insa.nsf";"view name";"key value";1)

UseLSX "*lsxODBC" Sub Initialize On Error GoTo e Dim pw As String,user As String,odbc As String Dim i As Integer Dim conn As ODBCConnection,query As ODBCQuery,rs As ODBCResultSet Dim db As NotesDatabase Dim session As NotesSession Dim view As NotesView Dim doc As NotesDocument Dim newDoc As NotesDocument Set session = New NotesSession Set db = session.CurrentDatabase Set view ..

Sub WriteNewDocument(sendto As Variant, subject As String, appdoc As NotesDocument) On Error GoTo errHandle Dim targetdb As NotesDatabase Dim newDoc As NotesDocument Dim item As NotesItem Set targetdb = ss.Getdatabase(Server Name, Db Name) If Not targetdb.IsOpen Then Call targetdb.Open("","") End If Set newDoc = targetdb.Createdocument newDoc.Form = "PBoard" newDoc.Subject = s..

Implode 는 Lotus Script 기본 Function 에 포함되어 있는 것을 사용하면 되고, Explode 는 아래의 Function 을 추가해서 사용하면 된다. %REM fullString : Item 들이 들어있는 string 이며 ',' 혹은 ';' 등 separator 로 구분되어 진 것이다 separator: 위에서 설명한 separator 이다 empties: Trim 을 할것인지 결정한다 결과..

Client보기의 버튼에다 넣으시면 됩니다. Sub Click(Source As Button) Dim s As New NotesSession Dim db As NotesDatabase Dim Logdoc As NotesDocument Dim filename As String Dim view As NotesView Set db = s.CurrentDatabase Dim text As String, fileNum As Integer Dim index As Long filename = Inputbox$("입력할 UNID가 저장되어있는 TEXT문서의 경로를 입력..