Versiones: | Versiones anteriores |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Español , Inglés |
Descripción:
El punto de entrada CTB150TOK se utiliza para validación de usuario.
Programa fuente
CTBA150.PRW
Sintaxis
IF ExistBlock("Ctb150TOk")
lRet := ExecBlock( "Ctb150TOk", .F. , .F.,{ dData,lInclui,lExclui } )
Endif
Devolución
No tiene devolución.
Ejemplos
//----------------------////----------------------
User Function Ctb150TOk()
Local dData := PARAMIXB[1]
Local lInclui := PARAMIXB[2]
Local lExclui := PARAMIXB[3]
MsgAlert(dData)
If !lExclui .And. !lIncluiMsgAlert("Contenido de las variables lInclui y lExclui FALSOS")
Else
MsgAlert("Contenido de las variables lInclui y lExclui no son FALSOS")
EndIf
Return