Punto de entrada: CTA080TOK - Valida asientos estándar
Alcances: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versiones: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Portugués (Brasil) , Portugués (Portugal) , Español , Inglés |
Descripción:
ejecuta la validación de asientos estándar
Eventos
ocurre en la validación de asiento estándar
Programa fuente
CTBA080.PRW
Sintaxis
CTA080TOK - Valida asientos estándar ( [ nOpc ] ) --> lRet
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
nOpc | Array of Record | 3 Inclusión;4 Modificación;5 Borrado; |
Devolución
lRet(logico)
Valor de devolución de la función
Observaciones
Ejemplos
User Function CTA080TOK() PRIVATE lVld := .T. PRIVATE cDescif ParamIXB[1] = 3 cDesc = "Inclusión"elseif ParamIXB[1] = 4 cDesc = "Modificación"elseif ParamIXB[1] = 5 cDesc = "Borrado" end if IF _NOMEEXEC != "SIGACTB.EXE" msgalert("La Operación " + cDesc + " de asiento estándar solamente podrá realizarse por medio del módulo SIGACTB ") lVld := .F. END IF return lVld