Sngpc

[Fabrício Hausman]

Olá, estou terminando um componente de suporte ao SNGPC exigido pela ANVISA.

Para quem não sabe SNGPC significa Sistema Nacional de Gerenciamento de Produtos Controlados. As farmácias são obrigadas a enviar alguns dados para a Anvisa em formato xml quando fazem movimento de medicamentos controlados e antibióticos. O xml pode ser enviado pelo site ou através dos webservices disponíveis.

Caso alguém se interesse posso disponibilizar os fontes do projeto e se alguém se interessar em colaborar eu agradeço.

[Juliomar Marchetti]

Fique a vontade, acredito que mais colegas devam trabalhar com isso

E pode ter certeza eu irão lhe ajudar

[datilas]

No que Precisar de mim estou aqui, pois estou precisando desse componente

[Alberto]

Olá Francisco,

 

Já consegui enviar e validar o inventário inicial e as movimentações de entrada e saída.

Precisando de ajuda é só falar.

[designerba]

Olá, estou terminando um componente de suporte ao SNGPC exigido pela ANVISA.

Para quem não sabe SNGPC significa Sistema Nacional de Gerenciamento de Produtos Controlados. As farmácias são obrigadas a enviar alguns dados para a Anvisa em formato xml quando fazem movimento de medicamentos controlados e antibióticos. O xml pode ser enviado pelo site ou através dos webservices disponíveis.

Caso alguém se interesse posso disponibilizar os fontes do projeto e se alguém se interessar em colaborar eu agradeço.

Bom dia a todos

 

Gostaria de informaçoes  sobre esse componete SNGPC se vai ser liberado para o forum

 

 

Grato

 

Designerba

[Rodrigo Guelf]

Olá Francisco,

 

Já consegui enviar e validar o inventário inicial e as movimentações de entrada e saída.

Precisando de ajuda é só falar.

poderia me ajudar, eu ainda não conseguir validar o inventário, como vc vez para transformar o arquivo zipado em bit64

[Rodrigo Guelf]

Olá, estou terminando um componente de suporte ao SNGPC exigido pela ANVISA.

Para quem não sabe SNGPC significa Sistema Nacional de Gerenciamento de Produtos Controlados. As farmácias são obrigadas a enviar alguns dados para a Anvisa em formato xml quando fazem movimento de medicamentos controlados e antibióticos. O xml pode ser enviado pelo site ou através dos webservices disponíveis.

Caso alguém se interesse posso disponibilizar os fontes do projeto e se alguém se interessar em colaborar eu agradeço.

poderia me fornecer este componente

[Alberto]

poderia me ajudar, eu ainda não conseguir validar o inventário, como vc vez para transformar o arquivo zipado em bit64

 

 

Estou utilizando o Delphi XE2, fiz assim:

var
  arquivoZip: TByteDynArray;

begin


  arquivoZip := FIleToByteArray('SNGPC.zip');
  shash := MD5DigestToStr(MD5File('SNGPC.zip'));




    Resp := ws.EnviaArquivoSNGPC(
      edtUsuario.Text,
      edtSenha.Text,
      arq,
      shash);

[Rodrigo Guelf]

 

Estou utilizando o Delphi XE2, fiz assim:

var
  arquivoZip: TByteDynArray;

begin


  arquivoZip := FIleToByteArray('SNGPC.zip');
  shash := MD5DigestToStr(MD5File('SNGPC.zip'));




    Resp := ws.EnviaArquivoSNGPC(
      edtUsuario.Text,
      edtSenha.Text,
      arq,
      shash);

Alberto poderia me passar estas duas funções:

 

MD5DigestToStr

MD5File

[Fabrício Hausman]

Boa noite, estou concluindo a primeira parte do componente que trata das classes de informações do SNGPC (Movimentação e Inventário). Já é possível gerar os XML's com base nas informações do componente. Até amanhã eu já terei feito todos os testes junto a ANVISA. Ainda não fiz a comunicação com os Webservices, estou enviando os arquivos diretamente pelo site para testar, essa será a próxima etapa. Caso alguém se interesse pelo que já fiz é só pedir que mando o projeto.

[datilas]

Boa noite, estou concluindo a primeira parte do componente que trata das classes de informações do SNGPC (Movimentação e Inventário). Já é possível gerar os XML's com base nas informações do componente. Até amanhã eu já terei feito todos os testes junto a ANVISA. Ainda não fiz a comunicação com os Webservices, estou enviando os arquivos diretamente pelo site para testar, essa será a próxima etapa. Caso alguém se interesse pelo que já fiz é só pedir que mando o projeto.

Primeiro parabéns pela  iniciativa pois é um componente muito importante para quem trabalha com farmácias, drogarias etc.

 

O ideal é que vc hospede em um site tipo 4shared.com

ou outro qualquer

mais de qualquer forma se vc puder mandar no meu e-mail

Editado 17 Abril, 2013 por Rafael Dias
Nao forneça dados pessoais para isso mande mp

[Sérgio Assunção]

Bom dia Fabricio ... se possível compartilhe o componente pra que possamos ajudar. Ja desenvolvi uma rotina de importação do inventário desde a versão 1.0 e conclui nessa semana a versão 2.0 do meu aplicativo, de acordo com a nova exigência.

 

Obrigado

 

Sérgio

Editado 17 Abril, 2013 por Rafael Dias
Nao forneça dados pessoais para isso mande mp

[Rodrigo Guelf]

Fabricio manda no meu email

 

Editado 17 Abril, 2013 por Rafael Dias
Nao forneça dados pessoais para isso mande mp

[Rodrigo Guelf]

Fabricio outra coisa como vc esta conseguindo fazer teste sendo que esta dando erro ao importar o arquivo, eu ja baixei o proprio inventario deles zipei e tentei enviar pelo proprio site deles e da erro.

[Fabrício Hausman]

Pessoal, estou terminando as funções de: compressão, encriptação e geração do hash dos XML's. Hoje a noite eu vou colocar em algum repositório e publico o endereço aqui.

[Rodrigo Guelf]

Pessoal pelo que estou sabendo e tambem estou passando pelo mesmo problema o site do SNGPC não esta recebendo nenhum arquivo, eu mesmo peguei o proprio arquivo xml do inventario que o site deles gera e tentei importar para ver se aceitava, tambem deu o mesmo erro que o meu arquivo esta dando.

Liguei em outras farmacia que conheço e tem outros sistemas, tambem estão aguardando os seus programadores conseguirem uma solução, por outro lado eu liguei no 0800 da anvisa e o antendente me disse que o sistema encontra-se normal, pediu para que eu envia-se um email com o erro para o suporte da anvisa que dentro de 15 dias eles me retornariam.

 

alguem esta conseguindo enviar os arquivos normalmente?

 

Grato a quem responder!

[Fabrício Hausman]

Boa noite, coloquei os fontes do componente em: https://sourceforge.net/projects/sngpc/files/latest/download?source=files

Como não tive muito tempo eu criei as classes para inclusão dos dados e gerão dos arquivos somente. Não tive tempo de fazer nenhuma rotina validação dos dados e nem as rotinas de consumo dos WebServices, caso alguém se habilite pode ficar a vontade. Tá difícil enviar dados para ANVISA pois os serviços estão muito instáveis.

[sgeinformatica]

Que a Anvisa iria ferrar com todos os programadores isso eu já sabia.
Ontem tentando transmitir o Inventario de um cliente, depois de muito tentar e não conseguir pelo programa,
acabei enviando diretamente pelo site e deu certo.
Voltando ao programa descobri que o webservice do SNGPC de homologação está diferente do de produção

Homologação : http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?WSDL

Produção : http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?WSDL

Tentando adequar o programa para envio, a aplicação trava, então estou tentando fazer um procedimento mais simples que é
checar se a senha do usuário está correta
Mesmo assim não consegui fazer funcionar, a aplicação trava.
Postei aqui o código para que os colegas com mais experiência consigam ajudar.

procedure TSge078b.BitBtn1Click(Sender: TObject);
var
  Ws: SngpcSoap;
  ChecaUsu: ValidarUsuario;
  MensRet: ValidarUsuarioResponse;
begin
  ChecaUsu:= ValidarUsuario.Create;
  ChecaUsu.Email:= '[email protected]';
  ChecaUsu.Senha:= 'senha';
  MensRet:= ValidarUsuarioResponse.Create;
  Ws:= GetSngpcSoap;
  try
    MensRet:= Ws.ValidarUsuario(ChecaUsu);
    Mensagem(MensRet.ValidarUsuarioResult);
    Self.Close;
  except
    Mensagem('Não foi possível enviar o arquivo XML. Verifique se sua conexão com a internet está funcionando');
  end;
end;

[sgeinformatica]

^{Acho melhor deixar passar alguns dias antes de tentar arrumar o programa para enviar por WebService. Já voltaram o WebService ao modo antigo novamente.}

^{Infelizmente eles são muito desorganizados e os desenvolvedores que acabam sendo penalizados com a incompetência deles.}

[Renan Garcia de Oliveira]

Estou com uma dúvida nesse SNGPC, mesmo usando o WebService eu tenho que mandar um arquivo .zip, não posso por exemplo pegar uma string e mandar um FIleToByteArray?

[Fabrício Hausman]

Renan você precisa comprimir o texto do xml usando a ZLib e depois codificar em base64. Criei esta rotina para comprimir e codificar:

function ZEncodeB64(const Input: AnsiString): AnsiString;
var
  MStream: TMemoryStream;
  ZLibStream: TCompressionStream;
  StringStream: TStringStream;
begin
  MStream := TMemoryStream.Create;
  try
    ZLibStream := TCompressionStream.Create(clDefault, MStream);
    try
      ZLibStream.Write(Input[1], Length(Input));
    finally
      FreeAndNil(ZLibStream);
    end;
    StringStream := TStringStream.Create('');
    try
      MStream.Position := 0;
      EncodeStream(MStream, StringStream);
      Result := StringStream.datastring;
    finally
      FreeAndNil(StringStream);
    end;
  finally
    FreeAndNil(MStream);
  end;
end;

[Fabrício Hausman]

Pessoal uma dica:

para testar a comunicação e retorno dos dados utilize o WebService de produção http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?WSDL pois a homologação não está funcionando. Para evitar que os arquivos sejam processados, coloque alguma informação inválida no final do arquivo xml como uma tag com valor inválido por exemplo, pois assim o sistema vai validar todo o arquivo e caso seus dados esteja consistentes o único erro retornado será o que você inclui propositalmente. É assim que estou fazendo.

Ex.:

            <dataPerdaInsumo>***ERRO***</dataPerdaInsumo>

        <insumoCNPJFornecedor>99900099900000</insumoCNPJFornecedor>

    </saidaInsumoPerda>

</insumos>

[Rodrigo Guelf]

Amigo pelo que diz no manual sim.

[JoaoLuizSouzaTorres]

Boa tarde,

qual a versão mínima de Delphi para instalar e auxiliar no trabalho com esse componente ?

obrigado.

[Sérgio Assunção]

Boa tarde .. em modo homologação eu finalizei o meu inventário dia 16/04, transmiti o inventário ontem (18/04) e amanha irei fazer o envio da primeira movimentação depois dessa instalabilidade. Parece que ta tudo Ok ja com o WS da Anvisa, inclusive ja tenho clientes em modo de produção ja enviando arquivos a partir de hoje.

Estou a disposição para qualquer ajuda.

 

Sérgio