Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (pauloc), última alteração em 02 ago, 2017

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

Ponto-de-Entrada: CTA080TOK - Valida lancamentos padroes

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

Programa Fonte

CTBA080.PRW

Sintaxe

CTA080TOK - Valida lancamentos padroes ( [ nOpc ] ) --> lRet

Parâmetros:

 

Nome

  

Tipo

  

Descrição

  

Default

  

Obrigatório

  

Referência

 
 

nOpc

  

Array of Record

  

3 Inclusao;4 Alteracao;5 Exclusão;

          

Retorno

lRet(logico)

  • Valor de retorno da função

Observações

 

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