RefreshDesign

[Stephane Maillard]

[syntax="ls"]Const APIModule = "NNOTES" ' Windows



Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _

( Byval NullPort As Long, Byval Server As String, Byval FIle As String, Byval PathNet As String) As Integer

Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _

( Byval PathName As String, DbHandle As Long) As Integer

Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _

( Byval DbHandle As Long) As Integer

Declare Function DesignRefresh Lib APIModule Alias "DesignRefresh" _

( Byval S As String, Byval hDB As Long, Byval F As Long, Byval zA As Long, Byval zM As Long) As Integer



Sub RefreshDesign(templateserver$, dbserver$, dbfilepath$)

dp$ = String(1024, " ")

OSPathNetConstruct 0, dbserver$, dbfilepath$, dp$



Dim hDB As Long

s% = NSFDbOpen(dp$, hDB)

If hDB = 0 Then Exit Sub



DesignRefresh templateserver$, hDB, 1, 0, 0



NSFDbClose hDB

End Sub[/syntax]