ENVIAR XML PARA SNGPC
Bom dia
tenho que enviar para SNGPC o movimento de remedios controlados, compra e venda.
montei o arquivo XML no vb6, criei a criptofrafia MD5.
1 - agora não sei como enviar para webservice do site da SNGPC
2 - Não sei como receber a resposta
Abaixo estão os parametros para envio
<Email>String</Email>
<Senha>String</Senha>
<Arquivo>String</Arquivo>
<HashIdentificacao>string</HashIdentificacao>
Anexei os arquivos para desenvolvedor fornecido pelo SNGPC para o envio e recebimento da resposta, só que não estou sabendo interpretar.
Obrigado
tenho que enviar para SNGPC o movimento de remedios controlados, compra e venda.
montei o arquivo XML no vb6, criei a criptofrafia MD5.
1 - agora não sei como enviar para webservice do site da SNGPC
2 - Não sei como receber a resposta
Abaixo estão os parametros para envio
<Email>String</Email>
<Senha>String</Senha>
<Arquivo>String</Arquivo>
<HashIdentificacao>string</HashIdentificacao>
Anexei os arquivos para desenvolvedor fornecido pelo SNGPC para o envio e recebimento da resposta, só que não estou sabendo interpretar.
Obrigado
Faz o seguinte:
Baixa o SOAP ToolKit 3.0 no link http://www.microsoft.com/downloads/details.aspx?FamilyId=C943C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en e instala no PC.
Depois disso, tente consumir o WEB SERVICE usando um código semelhante ao exemplo abaixo:
Perceba no exemplo que informei o ENDEREÇO do WS e na linha abaixo o WEB METHOD (GetBookTitles) que desejo consumir.
Baixa o SOAP ToolKit 3.0 no link http://www.microsoft.com/downloads/details.aspx?FamilyId=C943C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en e instala no PC.
Depois disso, tente consumir o WEB SERVICE usando um código semelhante ao exemplo abaixo:
Dim ws As New MSSOAPLib30.SoapClient30, ret As String
DoEvents
ws.MSSoapInit [Ô]http://www.webservicex.net/BibleWebservice.asmx?wsdl[Ô]
ret = ws.GetBookTitles
MsgBox retPerceba no exemplo que informei o ENDEREÇO do WS e na linha abaixo o WEB METHOD (GetBookTitles) que desejo consumir.
Tecla obrigado por responder
Dim ws As New MSSOAPLib30.SoapClient30, ret As String
DoEvents
ws.MSSoapInit [Ô]http://www.webservicex.net/BibleWebservice.asmx?wsdl[Ô]
ret = ws.GetBookTitles
MsgBox ret
1 - neste codigo onde colocao o que vou enviar
2 - Como recebo a mensagem de retorno pra poder ser tradado no caso de erro ou aceite.
3 - Como faço para consultar o webservice
Desculpe a ignorancia mas este é meu primeiro projeto com webservice
Obrigado
Dim ws As New MSSOAPLib30.SoapClient30, ret As String
DoEvents
ws.MSSoapInit [Ô]http://www.webservicex.net/BibleWebservice.asmx?wsdl[Ô]
ret = ws.GetBookTitles
MsgBox ret
1 - neste codigo onde colocao o que vou enviar
2 - Como recebo a mensagem de retorno pra poder ser tradado no caso de erro ou aceite.
3 - Como faço para consultar o webservice
Desculpe a ignorancia mas este é meu primeiro projeto com webservice
Obrigado
Olá amigo, a partir do exemplo do Tecla, abaixo demonstra como ficará seu código.
Abraço
Dim wscSNGPC As New SoapClient30
[ô]Iniciando no ambiente de homologação do SNGPC
wscSNGPC.MSSoapInit [Ô]http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?WSDL[Ô]
[ô]Exemplo para validar um usuário
MsgBox wscSNGPC.ValidarUsuario([Ô]e-mail[Ô], [Ô]senha[Ô])
[ô]Exemplo de envio de um arquivo XML
MsgBox wscSNGPC.EnviaArquivoSNGPC([Ô]e-mail[Ô], [Ô]senha[Ô], [Ô]arquivo xml[Ô], [Ô]hash[Ô]) Abraço
Boa noite
surgiu mais uma duvida
Pra gerar o hash qual a maneira que é feito
ir montando o arquivo e colocando o conteudo em uma string e no final gera o hash da string, ou gera o arquivo depois gera o hash do arquivo pronto.
Obrigado
surgiu mais uma duvida
Pra gerar o hash qual a maneira que é feito
ir montando o arquivo e colocando o conteudo em uma string e no final gera o hash da string, ou gera o arquivo depois gera o hash do arquivo pronto.
Obrigado
Obrigado pelas resposta, mas ainda não testei nenhuma das resposta.
Pois fui verificar o Hash e o resultado está errado.
Pois fui verificar o Hash e o resultado está errado.
Tópico encerrado , respostas não são mais permitidas