Ponto-de-Entrada: CN130PrG - Validação de exclusão ou alteraçã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
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. |
Para a Nova Medição (CNTA121) é necessário utilizar o ponto de entrada padrão do MVC (Model View Controller). |
Exemplos
#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 |