Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTA080TOK - Valida lancamentos padroes
CTA080TOK - Valida lancamentos padroes

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcArray 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