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

Características do Requisito

Descrição

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

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

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

Descrição:

Ponto de Entrada executado após a inclusão ou alteração do lançamento padrão.

Programa Fonte

CTBA080.PRW

Sintaxe

CT080GRV - Após gravar o lançamento padrão ( [ nOpc ] )

Parâmetros:

Retorno

()

Observações

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

Exemplos

Variáveis

Ponto de Entrada

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