Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
CTA030TOK - Validação de Tok
CTA030TOK - Validação de Tok

Ponto-de-Entrada: CTA030TOK - Validação de Tok

 

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

 

Descrição:
O ponto de entrada CTA030TOK é utilizado para validação de TOK da Rotina CTBA030.
Programa Fonte
CTBA030
Sintaxe

CTA030TOK - Validação de Tok ( [ nOpc ] ) --> lRet

Parâmetros:

 

 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)          

 

Retorno
lRet
    (logico)
Exemplos
If lCTA030TOK	If ExecBlock("CTA030TOK",.F.,.F.,nOpc)		Return .F.	EndifEndif
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não    

 

 

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 formulario 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.

If MsgYesNo("Deseja Abandonar ? ", "Abandonar")

    lRet := .T.  / / Verdadeiro

EndIf

Return( lRet )