PE AF010TOK

01. DADOS GERAIS

02. DESCRIÇÃO

O ponto de entrada AF010TOK é responsável por realizar a validação dos dados digitados antes de sua gravação no processo de cadastro de ativos.

Funcionamento:

• É acionado imediatamente antes da confirmação e efetivação da gravação dos dados cadastrados.
• Permite que o desenvolvedor implemente regras específicas para validar as informações fornecidas pelo usuário, garantindo a integridade e consistência dos dados.

Benefícios:

• Controle de qualidade: Assegura que os dados inseridos atendam a critérios previamente estabelecidos antes de serem gravados.
• Flexibilidade: Permite que empresas personalizem o comportamento padrão, adaptando-o às suas necessidades específicas.

Este ponto de entrada é ideal para garantir que o cadastro de ativos atenda a padrões personalizados de validação antes de ser finalizado.

03. DEMAIS INFORMAÇÕES

If lRet .AND. ExistBlock("AF010TOK")
	lRet := ExecBlock("AF010TOK",.F.,.F.)
Endif

#include "rwmake.ch"

User function AF010TOK()

	Local aArea := GetArea()
	Local cMensagem := ""
	Local lRet := .T.
	Local cChapa := AllTrim(M->N1_CHAPA)

	If !Empty(cChapa)
		If Len(cChapa) <> 6
			cMensagem := "Numero da Plaqueta nao esta no padrao de digitos."
			Help("ATFA010",1,"HELP","VALCHAPA",cMensagem,1,0)
			lRet := .F.
		Endif
	Endif

	RestArea(aArea)
	SN1->(DbSetOrder(1))

Return lRet

04. ASSUNTOS RELACIONADOS

• Não se aplica.