RE: RE: Hidden Design en NotesDatabase
Responder

Comentarios:

      Buenas Natalia.
      hace años utilice este código utilizando la API.
      Espero que te sirva
      te creas la funcion
      Const APIModule = "NNOTES" ' Windows/32 only
      Const REPLFLG_HIDDEN_DESIGN = &H0020
      Type ReplicaInfo
      ID(1) As Long
      Flags As Integer
      CutoffDays As Integer
      CutoffDate(1) As Long
      End Type
      Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
      ( Byval P As String, H As Long) As Integer
      Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
      ( Byval H As Long) As Integer
      Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
      ( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
      Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
      ( Byval H As Long, R As ReplicaInfo) As Integer
      Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
      ( Byval H As Long, R As ReplicaInfo) As Integer
      Function IsDesignHidden ( db As NotesDatabase ) As Boolean
      IsDesignHidden = False
      Dim hDB As Long
      Dim R As ReplicaInfo
      p$ = Space(256)
      OSPathNetConstruct 0, db.Server, db.FilePath, p$
      NSFDbOpen p$, hDB
      NSFDbReplicaInfoGet hDB, R
      If ( Not R.Flags And REPLFLG_HIDDEN_DESIGN) = 0 Then
      IsDesignHidden = True
      End If
      NSFDbClose hDB
      End Function
      llamas a la funcion
      Sub Click(Source As Button)
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim rep As NotesReplication
      Set db = session.CurrentDatabase
      Msgbox IsDesignHidden(db)
      End Sub
      si te funciona en 8.5 dimelo
      ------------------------
      Buenas tardes! Necesito saber si hay forma de poder consultar, a traves de LotusScript, si el diseño de una base está oculto o no. No encuentro ningún método en NotesDatabase class que me lo permita..
      Muchas gracias!
Respuestas


Re: Re: Hidden Design En Notesdatabase

Buenas Natalia.
hace años utilice este código utilizando la API.
Espero que te sirva
te creas la funcion
Const APIModule = "NNOTES" ' Windows/32 only
Const REPLFLG_HIDDEN_DESIGN = &H0020
Type ReplicaInfo
ID(1) As Long
Flags As Integer
CutoffDays As Integer
CutoffDate(1) As Long
End Type
Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Function IsDesignHidden ( db As NotesDatabase ) As Boolean
IsDesignHidden = False
Dim hDB As Long
Dim R As ReplicaInfo
p$ = Space(256)
OSPathNetConstruct 0, db.Server, db.FilePath, p$
NSFDbOpen p$, hDB
NSFDbReplicaInfoGet hDB, R
If ( Not R.Flags And REPLFLG_HIDDEN_DESIGN) = 0 Then
IsDesignHidden = True
End If
NSFDbClose hDB
End Function
llamas a la funcion
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Msgbox IsDesignHidden(db)
End Sub
si te funciona en 8.5 dimelo
------------------------
Buenas tardes! Necesito saber si hay forma de poder consultar, a traves de LotusScript, si el diseño de una base está oculto o no. No encuentro ningún método en NotesDatabase class que me lo permita..
Muchas gracias!

Anonymous 11/11/2017 10:40:05 PM Responder

Const REPLFLG_HIDDEN_DESIGN = &H0020
Type ReplicaInfo
ID(1) As Long
Flags As Integer
CutoffDays As Integer
CutoffDate(1) As Long
End Type
Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function OSPathNetConstruct Lib APIModule Alias "OSPathNetConstruct" _
( Byval Z As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbReplicaInfoGet Lib APIModule Alias "NSFDbReplicaInfoGet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Declare Function NSFDbReplicaInfoSet Lib APIModule Alias "NSFDbReplicaInfoSet" _
( Byval H As Long, R As ReplicaInfo) As Integer
Function IsDesignHidden ( db As NotesDatabase ) As Boolean
IsDesignHidden = False
Dim hDB As Long
Dim R As ReplicaInfo
p$ = Space(256)
OSPathNetConstruct 0, db.Server, db.FilePath, p$
NSFDbOpen p$, hDB
NSFDbReplicaInfoGet hDB, R
If ( Not R.Flags And REPLFLG_HIDDEN_DESIGN) = 0 Then
IsDesignHidden = True
End If
NSFDbClose hDB
End Function
llamas a la funcion
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Msgbox IsDesignHidden(db)
End Sub
si te funciona en 8.5 dimelo
------------------------
Buenas tardes! Necesito saber si hay forma de poder consultar, a traves de LotusScript, si el diseño de una base está oculto o no. No encuentro ningún método en NotesDatabase class que me lo permita..
Muchas gracias!

Re: Hidden Design En Notesdatabase

USA DXL.
Buenas tardes! Necesito saber si hay forma de poder consultar, a traves de LotusScript, si el diseño de una base está oculto o no. No encuentro ningún método en NotesDatabase class que me lo permita..
Muchas gracias!

Charlie River 25/01/2014 16:06:36 Responder


Web Desarrollada por Juan Carlos Trigo Díaz
Optimizado para: 1024 x 768 pixels - Explorer > 6 Copyright © 2008