Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Usuário desconhecido (pauloc)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Thiago Alves Bussolin_

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

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

formulário de entrada de dados

 Não

-Tratamento no Fonte CTBA030

...

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  Verdadeiro

EndIf

Return( lRet )