Inscrição estadual do Distrito Federal inválida ao utilizar a ACBR.

[Savio Ferreira]

Bom dia, pessoal. 
Quando fui validar uma inscrição estadual  do Distrito Federal direto no site do SINTEGRA (http://www.sintegra.gov.br/) a inscrição nº 0800888300299 retornou válida, porém ao utilizar o ACBR, a mesma inscrição não é válida.
Em nosso sistema estamos utilizando a última versão do ACBR.

[BigWings]

Está usando os componentes, ACBrMonitorPLUS ou ACBrLib?

Qual a mensagem de erro ou rejeição?

[Cleber Ferreira]

5 horas atrás, Savio Ferreira disse:

Bom dia, pessoal. 
Quando fui validar uma inscrição estadual  do Distrito Federal direto no site do SINTEGRA (http://www.sintegra.gov.br/) a inscrição nº 0800888300299 retornou válida, porém ao utilizar o ACBR, a mesma inscrição não é válida.
Em nosso sistema estamos utilizando a última versão do ACBR.

Checou direitinho se não há espaços, ou numeros digitados corretamente, ou ainda, se está informando apenas os números?

Editado 26 Julho, 2022 por Cleber

[Roberto Henrique Borges Machado]

Tente o seguinte código:

Declare a função:

function IEValida(vsIE, vsUF : String) : Boolean;

function IEValida(vsIE, vsUF : String) : Boolean;
var
   vValidador : TACBrValidador;
begin
   Try
      vValidador := TACBrValidador.Create(Nil);

      vValidador.TipoDocto := docInscEst;
      vValidador.Documento := vsIE;
      vValidador.Complemento := vsUF;

      Result := vValidador.Validar;
   Finally
      vValidador.Free;
   End;
end;

Faça a chamada:

If ('0800888300299', 'DF') Then
   ShowMessage('VÁLIDA')
Else
   ShowMessage('INVÁLIDA');

Fiz o teste e retorna True, você provavelmente está passando algum parâmetro errado na validação que está fazendo atualmente.

Edit: se em sua aplicação o usuário pode informar a IE com formatação, utilize a função abaixo para retirar caracteres indesejáveis.

Declare a função:

function RetornaNumeroAlfa(vsString : String) : String;

function RetornaNumeroAlfa(vsString : String) : String;
var
   I : Integer;
   vsRetorno : String;
   vsLetra : String;
begin
   vsRetorno := '';

   For I := 1 To Length(vsString) Do
   Begin
      vsLetra := UpperCase(vsString[I]);

      If (vsString[I] In ['A'..'Z']) Or (vsString[I] In ['0'..'9']) Then
         vsRetorno := vsRetorno + vsString[I];
   End;

   Result := vsRetorno;
end;

 

Editado 27 Julho, 2022 por Roberto Henrique Borges Machado

[Savio Ferreira]

Olá Pessoal. Agradeço pelo feedback de vocês.
Conseguimos resolver. 

Ainda não havíamos  compilado o sistema com a nova versão do ACBR.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.