Árvore de páginas

Versões comparadas

Chave

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

CTA080TOK - Valida lançamentos padrões

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Rotina:

Rotina

Nome Técnico

CTBA080

Lançamento Padrão

 

 

Descrição

executa a validação de lançamentos padrões.
CTA080TOK - Valida lancamentos padroes

CT080GRV - Após gravar o lançamento padrão --

109592

90628

Ponto-de-Entrada: CTA080TOK - Valida lancamentos padroes CT080GRV - Após gravar o lançamento padrão

Abrangências:

Microsiga Protheus 10 , Microsiga Protheus 11

Versões:

Microsiga Protheus 10 , Microsiga Protheus 11

Compatível Países:

Todos

Sistemas Operacionais:

Todos

Compatível às Bases de Dados:

Todos

Idiomas:

Português (Brasil) , Português (Portugal) , Espanhol , Inglês

 

Eventos

ocorre na validação de lançamento padrão

Descrição:

Ponto de Entrada executado após a inclusão ou alteração do lançamento padrão.

Programa Fonte

CTBA080.PRW 

Sintaxe

CTA080TOK - Valida lancamentos padroes CT080GRV - Após gravar o lançamento padrão ( [ nOpc ] ) --> lRet

Parâmetros:

 

Nome

  

Tipo

  

Descrição

  

Default

  

Obrigatório

  

Referência

 
 

nOpc

  

Array of Record

  

3 Inclusao;4 Alteracao;5 Exclusão;Parâmetro com a opção de inclusão e/ou alteração.

          

Retorno

lRet(logico)

  • Valor de retorno da função
Observações

Observações

Ponto de Entrada válido para versão 11.

Exemplos

User Function CT080GRV()        MsgAlert("Ponto de Entrada CT080GRV")Return

Variáveis

 

Nome

  

Tipo

  

Escopo

  

Pode Alterar

  

descrição

 
    

Array of Record

  

Global

  

Não

    

Ponto de Entrada

Descrição:

Lançamento Padrão

Localização:

Atualizações / Entidades

Eventos:

Incluir / Alterar / Excluir

Programa Fonte:

CTBA080

Função:

Todos

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

L

Retorna se é valido ou não

 

 

Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function CTA080TOK()

PRIVATE lVld := .T.
PRIVATE cDesc

if ParamIXB[1]  = 3
	cDesc = "Inclusao"
elseif ParamIXB[1]  = 4
	cDesc = "Alteracao"
elseif ParamIXB[1]  = 5
	cDesc = "Exclusão"
end if  

IF _NOMEEXEC != "SIGACTB.EXE"
	msgalert("A Operação " + cDesc + " de lancamento Padrão so  podera ser feita atravez do modulo SIGACTB ")
	lVld  := .F.
END IF

return lVld