import.css=/download/attachments/327912/newLayout.css |
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 |