Histórico da Página

...

Portuguese

Pagetitle

	CN130PrG - Pré Validação antes da Gravação da Medição
	CN130PrG - Pré Validação antes da Gravação da Medição

Ponto-de-Entrada: CN130PrG - Validação de exclusão ou alteração da mediçãoantes da Gravação da Medição

Versões:	Protheus 12.1.17
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todas TotvsDbAccess
Idiomas:	Todos

Descrição:

Localização: Function CNTA130 - Responsável pela Manutenção da Medição do Contrato

Em que ponto: Antes de efetuar a gravação (CN130Manut).

Utilização: Validações customizadas de acordo com a necessidade.

Eventos

Validar customizações antes de efetuar a gravação.

Programa Fonte

CNTA130.PRW

Sintaxe

CN130PrG( [ cExp1 ], [ cExp2 ], [ nExp3 ] ) - Validações finais efetuadas antes da gravação --> lRet

Retorno

Sem Formato

nopanel	true

lRet
     (lógico) - Determina o retorno da validação, sendo .T. (verdadeiro) ou .F. (Falso).

Parâmetros:

Nome	Tipo	Descrição
cExp1	Caractere	Informa a tabela que está sendo manipulada
cExp2	Caractere	Informa o registro que está posicionado
nExp3	Numérico	Operação do sistema, sendo: 4 = Alteração e 5 = Exclusão.

Aviso
Para a Nova Medição (CNTA121) é necessário utilizar o ponto de entrada padrão do MVC (Model View Controller).

Exemplos

Sem Formato

nopanel	true

#include 'protheus.ch'
#include 'parmtype.ch'

//-------------------------------------------------------------------
/*{Protheus.doc} CN130PrG

Ponto de Entrada acionado na validação final antes de efetuar
a gravação da Medição

@author TOTVS
@version P12.1.17
*/
//-------------------------------------------------------------------
User Function CN130PrG()

Local cAlias:= Paramixb[1]
Local nReg  := Paramixb[2]
Local nOpc  := Paramixb[3]
Local aArea := GetArea()
Local lRet  := .T.

If nOpc == 5
     If CND->CND_DTINIC == dDatabase
          lRet := .F.
          Help("",1,"Não é possível excluir medição com data de inclusão igual a data base")
     Endif
Endif

RestArea( aArea )
Return lRet

Árvore de páginas

Versões comparadas

Versão antiga 17

Nova versão Atual

Chave