Duda con Authority Check

[minerva0112]

Hola tengo lo siguiente:

AUTHORITY-CHECK OBJECT 'P_ORGIN'
ID 'PERSK' FIELD '01'.

IF sy-subrc <> 0.
MESSAGE 'Area de Personal debe ser igual a 01' TYPE 'E'.
ENDIF.

pero no funciona y permite ver el reporte indistintamente los parametros de entrada

anexo print de la pantalla donde me estan pasando los datos

[cmacvicar]

Hola,

El Problema es donde colocas el AUTHORITY-CHECK tiene que ser Posterior a los Parámetros de Selección después del AT SELECTION-SCREEN


Ej:

PARAMETERS: p_vbelv LIKE vbfa-vbelv. " Entrega

AT SELECTION-SCREEN.

AUTHORITY-CHECK OBJECT 'P_VBELV' ID 'PERSK' FIELD '010001'.
IF sy-subrc <> 0.
MESSAGE 'Entrega tiene que ser Igual a 010001' TYPE 'E'.
ENDIF.