Linha Microsiga Protheus

Árvore de páginas

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:

Nome

Tipo

Descrição

Obrigatório

 lRet

 Logico

 Retornando .T. (Verdadeiro) não prossegue voltando o foco ao formulário de entrada de dados

 Não

-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 )