Tipo Variable
Publicado por Mateus (18 intervenciones) el 06/01/2004 19:47:34
Los mejores deseos para este nuevo año.
Mi pregunta es la siguiente, tengo un script en visual 6 para el manejo de una dll y utilizan un variable de tipo object, pero no encuentro una similar en en powerbuilder 8.0.4 si la conocen les agradezco me pueden ayudar......es un poco urgente......les agrego el codigo en visual
SeguridadClient es el nombre de la dll
Public NombreUsuario As String
Public NombreAplicacion As String
Public NombreDominio As String
Public Seguridad As Object
Public Permisos As Scripting.Dictionary
Public Asigna As String
Sub ValidaSeguridad()
NombreAplicacion = App.Title
NombreDominio = Str_Dominio
NombreUsuario = Str_UserNT
'On Error Resume Next
Set Seguridad = CreateObject("SeguridadClient.clsPermisosClient")
Set Permisos = Seguridad.Permisos(Trim(NombreUsuario), Trim(NombreDominio), Trim(NombreAplicacion))
If Permisos.Item("ERROR") = 0 Then
Asigna = Permisos.Item("PERMISOS")
' strODBC1 = Permisos.Item("ODBC1")
' strODBC2 = Permisos.Item("ODBC2")
' strODBC3 = Permisos.Item("ODBC3")
Else
MsgBox "Error Para este usuario " & Permisos.Item("PERMISOS")
End
End If
Set Seguridad = Nothing
Set Permisos = Nothing
End Sub
Mi pregunta es la siguiente, tengo un script en visual 6 para el manejo de una dll y utilizan un variable de tipo object, pero no encuentro una similar en en powerbuilder 8.0.4 si la conocen les agradezco me pueden ayudar......es un poco urgente......les agrego el codigo en visual
SeguridadClient es el nombre de la dll
Public NombreUsuario As String
Public NombreAplicacion As String
Public NombreDominio As String
Public Seguridad As Object
Public Permisos As Scripting.Dictionary
Public Asigna As String
Sub ValidaSeguridad()
NombreAplicacion = App.Title
NombreDominio = Str_Dominio
NombreUsuario = Str_UserNT
'On Error Resume Next
Set Seguridad = CreateObject("SeguridadClient.clsPermisosClient")
Set Permisos = Seguridad.Permisos(Trim(NombreUsuario), Trim(NombreDominio), Trim(NombreAplicacion))
If Permisos.Item("ERROR") = 0 Then
Asigna = Permisos.Item("PERMISOS")
' strODBC1 = Permisos.Item("ODBC1")
' strODBC2 = Permisos.Item("ODBC2")
' strODBC3 = Permisos.Item("ODBC3")
Else
MsgBox "Error Para este usuario " & Permisos.Item("PERMISOS")
End
End If
Set Seguridad = Nothing
Set Permisos = Nothing
End Sub
Valora esta pregunta
0