SOCORRO!!!!!!!!!!!!! SNGPC 2.0

[Anthony Ormond]

Bom dia a todos!!!!!!!!!!

 

Já fiz todo o desenvolvimento para atender a nova versão do SNGPC 2.0 e não consigo utilizar o ambiente de homologação.  Consigo fazer o acesso ao sistema de homologação mas na hora de enviar o arquivo de inventário da a seguinte mensagem: O usuário xxxxx@yyyy.com.br não possui um perfil relacionado ao SNGPC.  Já tenho mais de 20 protocolos anotados pelo telefone 0800 642 9782 e não consigo uma solução para este problema.

 

Teria alguma pessoa que poderia me ajudar nessa solução ou até mesmo me emprestar um usuário para eu fazer somente os meus testes?

 

Obs:  Estou desde final do ano passado com este problema.  Todo protocolo aberto é dado um prazo de 15 dias úteis para o retorno.

         Meu prazo termina no dia 16 de abril, dia que entra no ar a versão 2.0

 

Desde já, muito obrigado a todos que me ajudarem.

 

Anthony R. Ormond

 

[kapiaba]

Entre em contato com o pessoal da SYSFAR, veja se o Daniel(?) não pode te ajudar.

 

http://www.sysfar.com.br/SNGPC_2.0.html

 

http://portal.sysfar.com.br/

 

http://www.anvisa.gov.br/sngpc/Manual%20do%20Desenvolvedor%20SNGPC%20(2).pdf

 

abs,

[Anthony Ormond]

Olá João!!!!!  Obrigado pela resposta.... Vc tem o contato do Daniel???  Não sei se ele ajudaria pois é nosso concorrente.

 

Desde já, muito obrigado.

[kapiaba]

Olá João!!!!!  Obrigado pela resposta.... Vc tem o contato do Daniel???  Não sei se ele ajudaria pois é nosso concorrente.

 

Desde já, muito obrigado.

 

Não sei mais como entrar em  contato com ele, ficou complicado com esta nova versão do site do FiveWin.

 

o Gilmer, provavelmente tenha o contato dele. O Gilmer está em seu MSN?? Fale com ele.

 

Nunca vi o Daniel negar ajuda a ninguém aqui do forum, mesmo sendo um  concorrente. Mas...

 

Tel. Contato:(19) 3731-6600.

Email: suporte@sysfar.com.br.

Cel. Plantão: (19) 9235-7354 / 9235-7355

 

Gilmer, se isto não puder colocar aqui, avise, que eu retiro ou vc. retira. obg.

 

abs,

[wanderlei Cardoso]

Olá Anthony,

Sou o Wanderlei que estive ai no ano passado para conhecer a empresa, se vc precisar de ajuda com o SNGPC 2.0 o meu já está enviando os arquivos e validando via webservice pode me chamar no Skype.

[CIACPD]

Olá Pessoal,

 

Teria algum exemplo ou dica para resolver a parte do manual que diz, "precisa ser compactado em formato zip e depois convertido em base64" ?

 

Agradeço toda ajuda, sobre SNGPC.

 

Daniel Segura

daniel_segura@ig.com.br

[Daniel Lopes Filho]

é webservice ? se sim entre em contato comigo posso fazer em outra lingaugem gravando os dados em um txt ou gravando em um dbf 

 

me da um alo

 

skype : zazibr

[wanderlei Cardoso]

Olá Pessoal, ai vai um exemplo.

 

 

/**************************************************************************************

Função.: Enviar arquivo XML para Anvisa via WebService

Autor..: Wanderlei Cardoso de Oliveira

Data...: 15/01/2013

Contrib: Manoel Angeiras

**************************************************************************************/

FUNCTION EnviaSNGPC( cFile )

LOCAL cEmail, cSenha,;

      cString, cString64, cResp

 

   *---> Verifica se tem conexão com a internet <---*

   if !IsInternet()

      MsgAlert("Sem conexão com a Internet. Verifique...", 'Atenção')

      return .F.

   endif

 

   cEmail := "seu email"

   cSenha := "senha do email"

 

   *---> Ler o arquivo que foi zipado <---*

   cString     := MemoRead( cFile )

 

   *---> Converte ele na Base64, que é um tipo de cryptografia <---*

   cString64   := HB_Base64( cString, Len( cString ) )

 

   *---> Gera o Hash ou MD5 mais conhecido <---*

   cHash       := HB_MD5(cString64)

 

   *---> ABERTURA DAS FUNCOES PARA WEBSERVICE DO XHARBOUR - OBJETO HTTP <---*

   try

      http := CreateObject( "MSXML2.XMLHTTP" )

   catch

      MsgStop("Erro na criação do objeto MSXML2.XMLHTTP : " + Ole2TxtError(), 'Atenção')

      return .F.

   end

 

   *---> CRIA OBJETO XML <---*

   try

      doc := CreateObject( "MSXML2.DOMDocument" )

   catch

      MsgStop("Erro na criacao do objeto MSXML2.DOMDocument : " + Ole2TxtError(), 'Atenção')

      return .F.

   end

 

   cXml := ""

   cXml += '<?xml version="1.0" encoding="utf-8" ?>' + CRLF

   cXml += '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/">' + CRLF

   cXml += '  <soapenv:Header/>' + CRLF

   cXml += '  <soapenv:Body>' + CRLF

   cXml += '    <tem:EnviaArquivoSNGPC>' + CRLF

   cXml += '      <tem:Email>'+cEmail+'</tem:Email>' + CRLF

   cXml += '      <tem:Senha>'+cSenha+'</tem:Senha>' + CRLF

   cXml += '      <tem:Arq>' + cString64 + '</tem:Arq>' + CRLF

   cXml += '      <tem:HashIdentificacao>' + cHash + '</tem:HashIdentificacao>' + CRLF

   cXml += '    </tem:EnviaArquivoSNGPC>' + CRLF

   cXml += '  </soapenv:Body> ' + CRLF

   cXml += '</soapenv:Envelope>' + CRLF

 

   IF cAmbiente_Sngpc

      *---> ENDERECO HOMOLOGACAO <---*

      http:Open( "POST", "http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?WSDL HTTP/1.1", .F. )

      http:SetRequestHeader( "Content-Type"   , "text/xml;charset=utf-8" )

      http:SetRequestHeader( "SOAPAction"     , "http://tempuri.org/EnviaArquivoSNGPC" )

      http:SetRequestHeader( "Host"           , "homologacao.anvisa.gov.br" )

   else

      *---> ENDERECO PRODUCAO <---*

      http:Open( "POST", "http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?WSDL HTTP/1.1", .F. )

      http:SetRequestHeader( "Content-Type"   , "text/xml;charset=utf-8" )

      http:SetRequestHeader( "SOAPAction"     , "http://tempuri.org/EnviaArquivoSNGPC" )

      http:SetRequestHeader( "Host"           , "sngpc.anvisa.gov.br" )

   endif

 

   doc:LoadXML( cXml )

   http:send( doc:xml )

 

   *---> Lê a Resposta do envio <---*

   response := http:responseText

   oXmlDoc  := TXmlDocument():new()

   oXMlDoc:read( response )

   oXmlNode := oXmlDoc:findFirst( "EnviaArquivoSNGPCResult" )

 

   if oXmlNode == Nil

      MsgStop("Erro no envio do arquivo para ANVISA. Tente outra vez.", 'Atenção')

      Return .F.

   elseif cHash $ oXmlNode:cData

      MsgInfo('Arquivo Transmitido com sucesso!', 'Atenção')

   else

      MsgStop(cResp, 'Atenção')

      RETURN .F.

   endif

 

RETURN .T.