TP_VALIDAENDERECO — Validação de Endereço

Tela de configuração: ADM010 — Parâmetros do Sistema Localização: aba Configurações → campo Validação de Endereço [TFA001/MPD082] Tabela: PARMSISTEMA.TP_VALIDAENDERECO (CHAR(1), NOT NULL) Valor padrão: 0 (Não Valida)

Telas impactadas

Tela	Rotina	Momento da verificação
TFA001 — Cadastro de Pessoas	TdmTFA001.VerificaEnderecos	Ao validar o campo CEP ou Número do endereço
TFA083 — Cadastro de Pessoas (simplificado)	TdmTFA083.VerificaEnderecos	Ao validar o campo CEP ou Número do endereço

Campos envolvidos

Campo	Tabela	Descrição
NR_CEP	ENDERECOPESSOA	CEP do endereço da pessoa
NR_ENDERECO	ENDERECOPESSOA	Número do endereço da pessoa
CD_PESSOA	PESSOA	Código da pessoa (usado para excluir a pessoa atual da busca)

Opções disponíveis

0 — Não Valida

O que faz	Detalhe
Nenhuma verificação de endereço duplicado	O cadastro de endereços em TFA001 e TFA083 segue sem checagem de CEP + Número

Simulação passo a passo

1. Acesse TFA001 — Cadastro de Pessoas (ou TFA083).
2. Preencha o CEP e o Número do endereço de uma pessoa.
3. Salve o cadastro normalmente.

Resultado esperado: Nenhuma mensagem de alerta sobre endereço já cadastrado para outra pessoa é exibida.

---

1 — CEP, Número

O que faz	Detalhe
Verifica duplicidade de endereço por CEP + Número	Ao preencher CEP ou Número, o sistema busca outras pessoas com o mesmo par
Apenas informativo — não bloqueia	Exibe pergunta ao usuário; se confirmado, abre consulta das pessoas encontradas

Simulação passo a passo

1. Acesse TFA001 — Cadastro de Pessoas (ou TFA083).
2. Preencha o campo CEP (ex.: 88015-300) — ao sair do campo, o sistema automaticamente busca na tabela ENDERECOPESSOA se já existe outra pessoa com o mesmo CEP e Número de endereço informados.
3. Ou, com o CEP já preenchido, preencha o campo Número do endereço (ex.: 150) — ao sair do campo, a mesma verificação é disparada.
4. Se encontrada outra pessoa no mesmo endereço, o sistema exibe a mensagem: "Existem pessoas Cadastradas neste endereço: CEP: 88015-300, Nº: 150. Deseja consultá-las?".
5. Caso clique em Sim, o sistema abre a lista de pessoas que compartilham esse endereço.
6. Caso clique em Não, o cadastro prossegue normalmente.

Resultado esperado: O usuário é informado sobre outras pessoas já cadastradas no mesmo CEP + Número, podendo consultar a lista ou ignorar o aviso.

Exceção / Importante: A verificação exclui automaticamente a pessoa que está sendo editada (usa CD_PESSOA <> :CD_PESSOA). Isso evita que o próprio cadastro em edição seja apontado como duplicata.

Procedures impactadas

Rotinas Delphi com referência direta ao campo

Rotina	Arquivo	Linha	Trecho
TdmADM010.tabPARMSISTEMAAfterInsert	UdmADM010.pas	209	tabPARMSISTEMATP_VALIDAENDERECO.AsString := '0';
TdmTFA001.VerificaEnderecos	UdmTFA001.pas	3457	if(ParmSistema.Values['TP_VALIDAENDERECO'] = '1')then
TdmTFA083.VerificaEnderecos	UdmTFA083.pas	808	if(ParmSistema.Values['TP_VALIDAENDERECO'] = '1')then

Referências SQL diretas ao campo

Nenhuma procedure ou view SQL referencia diretamente o campo TP_VALIDAENDERECO. As procedures listadas no inventário (como GERA_SPEDCONTABIL, GERA_DARF, etc.) utilizam a tabela PARMSISTEMA para outros campos e não possuem impacto funcional por este parâmetro.

Tabela comparativa resumida

Valor	Descrição	Bloqueia salvamento?	Mensagem exibida
0	Não Valida	Não	Nenhuma
1	CEP, Número	Não (informativo)	"Existem pessoas Cadastradas neste endereço… Deseja consultá-las?"