...
If you do not set the entry point, the default logic is applied to validate the registration number and prevent duplicate records in the system.
05. EXAMPLE
| Bloco de código |
|---|
| language | cpp |
|---|
| theme | RDark |
|---|
| title | Handling of EP in the system |
|---|
|
If ExistBlock("AF012CHP")
lRet := ExecBlock("AF012CHP",.F.,.F.,{nChapa,lRepChapa})
lRet := If(ValType(lRet) == "L",lRet,.F.)
EndIf |
| Bloco de código |
|---|
| language | cpp |
|---|
| theme | RDark |
|---|
| title | EP Example |
|---|
|
User Function AF012CHP()
Local nChapa:= PARAMIXB[1]
Local lRepChapa := PARAMIXB[2]
Local lRet := .F.
// Customized validation example
If nChapa == 1000
lRet:=.T.
EndIf
Return ( lRet ) |