AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Este contenido se ha traducido automáticamente.  Haga clic aquí  para ver la versión en inglés.
Ayuda / WLanguage / Funciones WLanguage / Controles, páginas y ventanas / Funciones Groupware Usuario
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Otros
Procedimientos almacenados
Se utiliza para get los derechos concedidos a un control, una ventana, una página o un reporte.
Ejemplo
nState is int = gpwGetRights("MyWindow", "MyControl")
Sintaxis
<Result> = gpwGetRights(<Parent element> [, <Control name> [, <User> [, <Group>]]])
<Result>: Constante de tipo Integer
Tipo de elemento:
gpwStateDefaultEl control tiene el estado "Default".
gpwStateGrayedEl control es Grayed.
gpwStateInactiveEl control es Inactive.
gpwStateInvisibleEl control es Invisible.
<Parent element>: Cadena de caracteres
Nombre de la ventana, página o reporte que contiene el control.
<Control name>: Cadena de caracteres opcional
Nombre del control a manipular.
<User>: Cadena de caracteres opcional
Nombre del usuario cuyos derechos se solicitan.
<Group>: Booleano opcional
  • True para buscar los permisos del grupo,
  • False STRIMEULB para encontrar los derechos concedidos a un usuario.
Componente: wd290gpu.dll
Versión mínima requerida
  • Versión 18
Esta página también está disponible para…
Comentarios
PROCEDURE evento_lista_objetos_gpw(ninstancia)
/variaiveis aux
i is int = 1
objs_form is string = ""
sControlName is string = ""
sControles is string = ""

ninstancia = ninstancia

<COMPILE IF Configuration<>"iOS application" AND Configuration<> "Android application">

IF ninstancia = 0 THEN

RESULT ""

ELSE

NomeForm is string = m_Tabela[ninstancia].gs_nomeJanela

WHEN EXCEPTION IN

sControlName = gpwEnumControl(NomeForm, i)

LOOP(5000)
// Process the control
Trace(sControlName)
// Next control
i++
sControlName = gpwEnumControl(NomeForm, i)
IF sControlName <> "" AND sControlName <> Null AND sControlName <> 0 AND sControlName <> VK_EREOF THEN
indirection is string = NoSpace(NomeForm) +"."+ NoSpace(sControlName)
IF ControlExist(sControlName) = True
sControles += indirection + "; "
END
ELSE
BREAK
END
END
RESULT sControles
DO
IF ExceptionInfo(errCode) THEN
RESULT sControles
END
END

END
<END>
Boller
02 09 2023

Última modificación: 27/05/2022

Señalar un error o enviar una sugerencia | Ayuda local