ACBRVALIDADOR - CARTÃO NACIONAL DO SUS

[marcelomgoncalves]

Boa noite! Fiz algumas alterações no componente para fazer a validação do número do cartão nacional do sus no arquivo ACBrValidador.pas, só não consegui encontrar como adiciona o docCNS na parte visual do componente para aparecer a opção lá em TIPODOCTO, configurando o componente para tipodoc:=docCNS manualmente, está funcionando normalmente.. Segue o arquivo para análise, alteração e possível liberação.

 

Obrigado!

ACBrValidador.rar

[EMBarbosa]

13 horas atrás, marcelomgoncalves disse:

Boa noite! Fiz algumas alterações no componente para fazer a validação do número do cartão nacional do sus no arquivo ACBrValidador.pas, só não consegui encontrar como adiciona o docCNS na parte visual do componente para aparecer a opção lá em TIPODOCTO, configurando o componente para tipodoc:=docCNS manualmente, está funcionando normalmente.. Segue o arquivo para análise, alteração e possível liberação.

 

Obrigado!

ACBrValidador.rar 13 kB · 0 downloads

Bom dia.

Estou adicionando na nossa lista de tarefas.

[marcelomgoncalves]

Poderíamos desenvolver mais um componente pra suite ACBr, um ACBrCadSUS por exemplo, para fazer a conexão ao webservice PQDSupplier do datasus, o difícil pra mim foi tratar o xml, as informações vem tanto em tag's como em atributos, tive um tanto de trabalho para conseguir acertar.. e não tem nada muito informativo para delphi e outras linguagens. Se for o caso, eu passo pra vocês o que eu fiz para que vcs possam analisar, eu tenho credencial para o acesso então fica fácil.

[EMBarbosa]

1 hora atrás, marcelomgoncalves disse:

Poderíamos desenvolver mais um componente pra suite ACBr, um ACBrCadSUS por exemplo, para fazer a conexão ao webservice PQDSupplier do datasus, o difícil pra mim foi tratar o xml, as informações vem tanto em tag's como em atributos, tive um tanto de trabalho para conseguir acertar.. e não tem nada muito informativo para delphi e outras linguagens. Se for o caso, eu passo pra vocês o que eu fiz para que vcs possam analisar, eu tenho credencial para o acesso então fica fácil.

Boa tarde.

   Eu não entendo muito sobre esse tema ainda então é melhor tratar em um tópico separado.

   Se você desejar, eu sugiro criar um outro tópico sobre o assunto. Nele tente explicar o seguinte, preferencialmente seguindo a ordem abaixo:

1. O objetivo do componente,
2. inclua porque é interessante pra automação comercial
3. Onde encontramos documentação sobre o assunto (legislação se existir)
4. O que você já fez e o que falta fazer.

[EMBarbosa]

Em 28/04/2021 at 19:37, marcelomgoncalves disse:

Boa noite! Fiz algumas alterações no componente para fazer a validação do número do cartão nacional do sus no arquivo ACBrValidador.pas, só não consegui encontrar como adiciona o docCNS na parte visual do componente para aparecer a opção lá em TIPODOCTO, configurando o componente para tipodoc:=docCNS manualmente, está funcionando normalmente.. Segue o arquivo para análise, alteração e possível liberação.

 

Obrigado!

ACBrValidador.rar 13 kB · 0 downloads

Bom dia.

   Infelizmente, não podemos subir a alteração na forma como está.

   Ele usa recursos (Expressões Regulares) que não estão disponíveis no Delphi 7 nem no Lazarus.

   Se você puder nos mandar um link do algoritmo de validação, talvez consigamos converter para uma versão compatível.

[marcelomgoncalves]

Em 10/05/2021 at 12:20, EMBarbosa disse:

Bom dia.

   Infelizmente, não podemos subir a alteração na forma como está.

   Ele usa recursos (Expressões Regulares) que não estão disponíveis no Delphi 7 nem no Lazarus.

   Se você puder nos mandar um link do algoritmo de validação, talvez consigamos converter para uma versão compatível.

Segue o link do algoritmo de validação para adequação. 

Algoritmo de validação do CNS (ufsc.br)

[marcelomgoncalves]

Em 11/05/2021 at 16:23, marcelomgoncalves disse:

Segue o link do algoritmo de validação para adequação. 

Algoritmo de validação do CNS (ufsc.br)

Segue em anexo o arquivo ACBrValidador.pas corrigido, agora acredito que a validação do Cartão Nacional do SUS funcione para qualquer versão do Delphi, inclusive para o Lazarus. Utilizei o algoritmo de validação da ufsc.br.. Espero que ajude aos colegas da área de saúde.

ACBrValidador.rar

[marcelomgoncalves]

Em 10/05/2021 at 12:20, EMBarbosa disse:

Bom dia.

   Infelizmente, não podemos subir a alteração na forma como está.

   Ele usa recursos (Expressões Regulares) que não estão disponíveis no Delphi 7 nem no Lazarus.

   Se você puder nos mandar um link do algoritmo de validação, talvez consigamos converter para uma versão compatível.

Veja no post acima que já disponibilizei o arquivo corrigido para que pode ser integrado em qualquer versão do delphi e lazarus

 

[Juliana Tamizou]

Bom dia Marcelo
 

Já adicionamos em nosso backlog para validação da nova contribuição, agradecemos e pedimos que aguarde nosso retorno no tópico.

Att.

[BigWings]

@marcelomgoncalves chegou a fazer testes com esse código?

Eu testei com meu antigo e o novo e acusou inválido. Fiz alguns ajustes aqui e validou.

Você tem exemplos de códigos iniciando em 1 ou 2?

[marcelomgoncalves]

testei sim.. pra mim, está validando de boa os finais 1 e 2, e também 7,8 e 9.. Vou enviar novamente, posso ter feito alguma outra alteração no arquivo. Tenho uma rotina que consulta o CNS direto do cadastro do cadsus, não está dando erro pra mim, pelo contrário está funcionando bem. Se quiser ver funcionando direto no sistema, me chame no whatsapp: (22) 9.9984-0094.

[BigWings]

@marcelomgoncalves @EMBarbosa

Fiz ajustes no código para usar os métodos de cálculo da própria classe do validador.

Foi para o repositório na rev. 22046.

@marcelomgoncalves Favor testar usando o código do repositório, e o programa exemplo do componente, e reportar qualquer problema.

[marcelomgoncalves]

18 horas atrás, BigWings disse:

@marcelomgoncalves @EMBarbosa

Fiz ajustes no código para usar os métodos de cálculo da própria classe do validador.

Foi para o repositório na rev. 22046.

@marcelomgoncalves Favor testar usando o código do repositório, e o programa exemplo do componente, e reportar qualquer problema.

Obrigado! Ficou excelente! Já testei diversos números de cartões e está funcionando muito bem... Me desculpe, eu enviei uma versão que não estava atualizada, já tinha corrigido, por isso que pra mim estava tudo funcionando.. mas assim ficou nota 1000!

[BigWings]

Obrigado por reportar.

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