Entry Point: CTA080TOK - Validates standard entries
Scope: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versions: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible Countries: | All |
Operating Systems: | All |
Compatible with the Databases: | All |
Languages: | Portuguese (Brazil) , Portuguese (Portugal) , Spanish , English |
Description:
performs the validation of standard entries
Event
occurs during the standard entry validation
Source Program
CTBA080.PRW
Syntax
CTA080TOK - Validates standard entries ( [ nOpc ] ) --> lRet
Parameters:
Name | Type | Description | Default | Mandatory | Reference | ||||||||||||
nOpc | Array of Record | 3 Add; 4 Change; 5 Deletion; |
Return
lRet(logico)
Return value of the function
Notes
Examples
User Function CTA080TOK() PRIVATE lVld := .T. PRIVATE cDescif ParamIXB[1] = 3 cDesc = "Addition"elseif ParamIXB[1] = 4 cDesc = "Editing"elseif ParamIXB[1] = 5 cDesc = "Deletion" end if IF _NOMEEXEC != "SIGACTB.EXE" msgalert("The Operation " + cDesc + " operation for Standard Entry can only be performed through the SIGACTB module ") lVld := .F. END IF return lVld