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