Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: CTA080TOK - Valida lancamentos padroes
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:
Retorno
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas