Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle | ||
---|---|---|
|
...
|
...
|
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