Histórico da Página
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
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Abrangências: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
O ponto de entrada CTA030TOK é utilizado para validação de TOK da Rotina CTBA030.
CTBA030
CTA030TOK - Validação de Tok ( [ nOpc ] ) --> lRet
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
nOpc | Numérico | Numero da operação de interação com a tela (Inclusão, Alteração) |
- (logico)
...
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 )