Ajuda para Testar Componente ACBrValidador (Free)

22/08/2004

0

Ola pessoal...

Como voces podem conferir no topico abaixo... lançamos um novo release para o conjunto de componentes para Automação Comercial - ACBr (Free e Multiplataforma)

http://delphiforum.icft.com.br/forum/viewtopic.php?p=155262#155262

Gostaria da ajuda de vocês para testar o componente ACBrValidador. Ele faz a validação de diversos documentos como por exemplo:
CPF, CNPJ, Num.Cheques, PIS, Inscrição Estadual (todos os estados).
Considerando as Inscrições Estaduais, esse componente verifica atualmente 31 documentos diferentes.

A minha dúvida, é que apesar de ter seguido a documentação disponivel no site do SINTEGRA, nem todos os Estados disponibilizam no site Numeros de Inscrições Estaduais para teste...
Como é uma unica rotina que faz a validação de todas as Inscrições Estaduais... nao deve haver bugs... mas eu gostaria de ter certeza...

Os Estados AM, ES, MS, PB, PI nao foram testados por não terem numeros disponiveis no site... Os demais, foram testados...

Um demo já compilado (Win32 e Linux) pode ser encontrado no Pacote de Download:

http://acbr.sourceforge.net/


Dopi

Dopi

Responder

Posts

23/08/2004

Dopi

Se voce possui uma rotina de validação para algum documento que não consta na relação de documentos do ACBrValidador, ficaremos muito contente se você compartilhar o seu código fonte com a comunidade....

Mesmo que seja somente um DOC ou TXT explicando como efetuar a verificação....

O ACBrValidador possui uma classe TACBrDig11 que facilita muito a criação de rotinas de verificação. Veja abaixo a classe sendo usada para calcular os digitos verificadores do CNPJ.

  Modulo11.CalculoPadrao ;
  Modulo11.Documento := copy(fsDocto, 1, 12) ;
  Modulo11.Calcular ;
  DV1 := IntToStr( Modulo11.DigitoFinal ) ;
  Modulo11.Documento := copy(fsDocto, 1, 12)+DV1 ;
  Modulo11.Calcular ;
  DV2 := IntToStr( Modulo11.DigitoFinal ) ;

  if (DV1 <> fsDocto[13]) or (DV2 <> fsDocto[14]) then
     fsMsgErro := ´CNPJ inválido. Digito calculado: ´+DV1+DV2 ;




Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar