Linha Microsiga Protheus - Inglês

Páginas filhas
  • CTA080TOK - Validates standard entries -- 109592

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
CTA080TOK - Valida lancamentos padroesValidates standard entries -- 109592
CTA080TOK - Valida lancamentos padroesValidates standard entries -- 109592

Entry Point

Ponto-de-Entrada

: CTA080TOK -

Valida lancamentos padroes

Validates standard entries


AbrangênciasVersõesCompatível PaísesTodosSistemas OperacionaisCompatível às Bases de DadosTodosIdiomasPortuguês Brasil Português Espanhol Inglês

Scope

:

Microsiga Protheus 10, Microsiga Protheus 11

Versions:

Microsiga Protheus 10, Microsiga Protheus 11

Compatible Countries:

All

Operating Systems:

Todos

All

Compatible with the Databases

:

All

Languages:

Portuguese (

Brazil) ,

Portuguese (Portugal) ,

Spanish ,

English

Descrição:
executa a validacao de lancamentos padroes
Eventos

ocorre na validação de lancamento padrão


Description:

performs the validation of standard entries

Event

occurs during the standard entry validation

Source Program

Programa Fonte

CTBA080.PRW

Sintaxe

Syntax

CTA080TOK -

Valida lancamentos padroes

Validates standard entries ( [ nOpc ] ) --> lRet

Parâmetros

Parameters:


NomeTipoDescriçãoObrigatórioReferência Inclusao Alteracao Exclusão

Name



Type



Description



Default



Mandatory



Reference



nOpc



Array of Record



3

Add; 4

Change; 5

Deletion;












Retorno

Return

lRet

(logico)

Valor de retorno da função

Return value of the function

Notes


Examples

User Function CTA080TOK()              PRIVATE lVld := .T.           PRIVATE cDescif ParamIXB[1]  = 3    cDesc = "Addition"elseif ParamIXB[1]  = 4   cDesc = "Editing"elseif ParamIXB[1]  = 5        cDesc = "Deletion"      end if       IF _NOMEEXEC != "SIGACTB.EXE"       msgalert("The Operation " + cDesc + " operation for Standard Entry can only be performed through the SIGACTB module ")                                              lVld  := .F.      END IF return

ObservaçõesExemplosUser 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