Línea de producto: | Microsiga Protheus | ||||
Segmento: | Servicios | ||||
Módulo: | Facturación | ||||
Rutina: |
| ||||
País(es): | Todos | ||||
Base(s) de datos: | Todos | ||||
Sistema(s) operativo(s): | Todos | ||||
Versión: | 12.1.17 y superior. |
Descripción: | La finalidad del punto de entrada MA040VLD es permitir o no la inclusión, modificación o eliminación de vendedores en la rutina del Registro de Vendedores. | ||||||||
Localización: | Actualizaciones/Registros/Vendedores | ||||||||
Eventos: | MA040VLD( nOpc ) --> lRet | ||||||||
Programa fuente: | MATA040.PRX | ||||||||
Parámetros: | nOpc - Tipo Numérico - Número de la opción seleccionada, donde: 3 = Inclusión; 4 = Modificación; 5 = Eliminación | ||||||||
Respuesta: |
|
Ejemplo:
#Include 'Protheus.ch'
User Function MA040VLD()
Local _nOpc := PARAMIXB //3- Inclusión, 4- Modificación y 5- Eliminación
Local _lRet := .T.
Local _cUsuario := RetCodUsr()
If _nOpc == 4 .And. _cUsuario == "000001"
Alert("El usuario no debe hacer modificaciones.")
_lRet := .F.
ElseIf _nOpc == 5 .And. _cUsuario == "000002"
Alert("El usuario no debe hacer eliminaciones.")
_lRet := .F.
EndIf
Return _lRet