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