Linha Microsiga Protheus

Árvore de páginas

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
Descrição: 
executa a validacao de lancamentos padroes
Eventos

ocorre na validação de lancamento 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
 
Exemplos 
User Function CTA080TOK()              PRIVATE lVld := .T.           PRIVATE cDescif 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