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