| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA150 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada CTB150TOK é utilizado para executar validações de acordo com regras específicas do usuário.
IF ExistBlock("Ctb150TOk")
lRet := ExecBlock( "Ctb150TOk", .F. , .F.,{ dData,lInclui,lExclui } )
Endif |
User Function Ctb150TOk()
Local dData := PARAMIXB[1]
Local lInclui := PARAMIXB[2]
Local lExclui := PARAMIXB[3]
Local lRet := .T.
MsgAlert(dData)
If !lExclui .And. !lInclui
MsgAlert("Conteúdo das variáveis lInclui e lExclui FALSOS")
lRet := .F.
Else
MsgAlert("Conteúdo das variáveis lInclui e lExclui não são FALSOS")
EndIf
Return (lRet) |
|