TFA007.R001 — Vendedor precisa de pessoa e endereço cadastrados

Módulo: TFA007 · Menu: Cadastros > Tabelas de Faturamento > Vendedores Classificação: observado · Relevância: alta

Regra

O código informado como vendedor só é aceito se já existir como Pessoa (TFA001), com endereço cadastrado, e ainda não existir como Vendedor.

Quando dispara

Ao digitar/buscar o código do vendedor no cadastro (novo registro).

Mensagem exibida

E-1624 / E-1625 / E-1626

Como o usuário resolve

Cadastrar a pessoa e o endereço em TFA001 antes de criar o vendedor; se já existir vendedor com esse código, abrir o existente.

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/TFA007/UdmTFA007.pas	287-320	TdmTFA007.tabVENDEDORCD_VENDEDORValidate	Confere PESSOA, endereço via RETORNA_DADOSCADASTRAIS e duplicidade em VENDEDOR.

source/TFA007/UdmTFA007.pas:287

procedure TdmTFA007.tabVENDEDORCD_VENDEDORValidate(Sender: TField);
var
   Consulta, iNm_Vendedor: String;
   Resultado: TResultado;
begin
   if ( Trim(tabVENDEDORCD_VENDEDOR.AsString) <> '' ) then begin
      Consulta := 'Select NM_PESSOA From PESSOA ' +
         'Where CD_PESSOA = ' + tabVENDEDORCD_VENDEDOR.AsString;
      Resultado := ExecutaConsulta(dmTFA007.transaction, Consulta);
      if ( Resultado[0] <> '' ) then
         iNm_Vendedor := Resultado[0]
      else