Ponto de Entrada
Descrição: | Ponto de entrada desenvolvido na rotina CTBA030 - Cadastro de Centro de Custo para validação de usuário ao pressionar botão Confirmar. Este ponto de entrada funciona na negativa do fonte, isto é, ao retornar .T. (Verdadeiro) ele retorna para o formulário não prosseguindo com as demais validações e posterior gravação. | ||||||||
Localização: | Atualizações / Cadastros / Configurações Contabeis / Custos / Centro de Custo | ||||||||
Eventos: | Inclusão / Alteração / Exclusão | ||||||||
Programa Fonte: | CTBA030 | ||||||||
Função: | Ct030TudOk | ||||||||
Retorno: |
|
-Tratamento no Fonte CTBA030
If lCTA030TOK
If ExecBlock("CTA030TOK",.F.,.F.,nOpc)
Return .F.
Endif
Endif
`Ponto de Entrada Exemplo:
#Include 'Protheus.ch'
User Function CTA030TOK()
Local nOpc := PARAMIXB
Local lRet := .F. // retornando FALSE sempre continua com as demais validacoes e gravacao
If MsgYesNo("Deseja Abandonar a Validação / Gravação e voltar a editar o formulário ? ", "Abandonar")
lRet := .T. // Verdadeiro
EndIf
Return( lRet )