Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (pauloc)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (pauloc)

Gravado em

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
CTA080TOK - Valida lançamentos padrões

CT080GRV - Após gravar o lançamento padrão

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Rotina:

Rotina

Nome Técnico

CTBA080

Lançamento Padrão

 

 

Descrição

executaPonto de Entrada executado após a inclusão ou validaçãoalteração dedo lançamentoslançamento padrõespadrão.
CTA080TOK - Valida lancamentos padroes

CT080GRV - Após gravar o lançamento padrão --

109592

90628

Ponto-de-Entrada: CTA080TOK - Valida lancamentos padroes CT080GRV - Após gravar o lançamento padrão

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

 

Eventos

ocorre na validação de lançamento padrão

Programa Fonte

CTBA080.PRW

Sintaxe

Sintaxe

CT080GRV - Após gravar o lançamento padrão 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;Parâmetro com a opção de inclusão e/ou alteração.

          

Retorno

lRet(logico)

Observações

  • Valor de retorno da função
Observações

Ponto de Entrada válido para versão 11.

 

Variáveis

 

Nome

  

Tipo

  

Escopo

  

Pode Alterar

  

descrição

 
    

Array of Record

  

Global

  

Não

    

Ponto de Entrada

Descrição:

Lançamento Padrão

Localização:

Atualizações / Entidades

Eventos:Incluir / Alterar / Excluir

Gravação do cadastro

Programa Fonte:

CTBA080

Função:

Todos

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

L

Retorna se é valido ou não

 

 

Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function CTA080TOKCT080GRV()

PRIVATE lVld := .T.
PRIVATE cDesc

if 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 lVldMsgAlert("Ponto de Entrada CT080GRV")

If CT5->(FieldPos("CT5_USUARI"))  > 0
	RecLock("CT5", .F.)
	CT5->CT5_USUARI := "Paulo da Silva Nunes"
	MsUnlock()
EndIf

Return