WEBSERVICE ENVIAR PARAMETROS
Bom dia pessoal
Estou tentando enviar parametros de venda para uma webservice (Van Farmais)
Só que não estou conseguindo passar os parametros pela webservice.
Consegui conectar, mas não tenho ideia de como envair os parametros.
Peguei um exemplo para o CEP, esse funcionou.
Segue abaixo o que fiz.
Private Sub cbBusca_Click()
Dim obj As MSXML2.ServerXMLHTTP
Dim objLerXml As MSXML2.DOMDocument
Dim url As String
Dim VB_RESULT As MSXML2.IXMLDOMNode
Dim VB_UF As MSXML2.IXMLDOMNode
Dim retorno
Set obj = New MSXML2.ServerXMLHTTP
Set objLerXml = New MSXML2.DOMDocument
[ô] Preciso me conectar aqui
url = ([Ô]http://www.vanfarmais.com.br/van.asmx?op=inserir_vendas[Ô])
[ô] [ô] Este funciona
[ô] url = [Ô]http://cep.republicavirtual.com.br/web_cep.php?cep=91010000&formato=json [Ô]
obj.open [Ô]GET[Ô], url
obj.send
[ô]se ocorreu um erro HTTP
If obj.Status >= 400 And obj.Status <= 505 Then
MsgBox [Ô]Erro Ocorrido : [Ô] & obj.Status & [Ô] - [Ô] & obj.statusText
Exit Sub
Else
objLerXml.LoadXml (obj.responseText)
End If
Set VB_RESULT = objLerXml.selectSingleNode([Ô]//resultado[Ô])
If VB_RESULT.Text <> 0 Then
[ô] Set VB_UF = objLerXml.selectSingleNode([Ô]//uf[Ô])
txtUf.Text = VB_UF.Text
Else
MsgBox [Ô]Serviço indisponÃvel - cep inválido[Ô]
End If
End Sub
Abaixo sege e-mail recebido...
Boa tarde Eduardo, seguem abaixo as orientações.
Favor encaminhar este e-mail para seu software com as solicitações para seguindo os passos abaixo.
Segue link contendo documentação para integração de SOFTWARE - PDV com o sistema VANFARMAIS.
www.vanfarmais.com.br/van.asmx?wsdl
Ao acionar o endereço acima a documentação do WEBSERVICE apresenta os metodos e os atributos de cada método.
Atualmente apenas os métodos inserir_vendas, inserir_vendas_itens e inserir_vendas_itens_v2 estão sendo utilizados.
O inserir_vendas é responsável pela gravação dos dados de vendas e o inserir_vendas_itens e inserir_vendas_itens_v2 é responsável pela gravação dos dados dos itens de venda.
A empresa que tiver o código do vendedor na venda deve usar o método inserir_vendas_itens_v2 e as que não tiverem deve usar o inserir_vendas_itens.
O URL para teste e homoloção deve ser www.vanfarmais.com.br/van.asmx.
Estou tentando enviar parametros de venda para uma webservice (Van Farmais)
Só que não estou conseguindo passar os parametros pela webservice.
Consegui conectar, mas não tenho ideia de como envair os parametros.
Peguei um exemplo para o CEP, esse funcionou.
Segue abaixo o que fiz.
Private Sub cbBusca_Click()
Dim obj As MSXML2.ServerXMLHTTP
Dim objLerXml As MSXML2.DOMDocument
Dim url As String
Dim VB_RESULT As MSXML2.IXMLDOMNode
Dim VB_UF As MSXML2.IXMLDOMNode
Dim retorno
Set obj = New MSXML2.ServerXMLHTTP
Set objLerXml = New MSXML2.DOMDocument
[ô] Preciso me conectar aqui
url = ([Ô]http://www.vanfarmais.com.br/van.asmx?op=inserir_vendas[Ô])
[ô] [ô] Este funciona
[ô] url = [Ô]http://cep.republicavirtual.com.br/web_cep.php?cep=91010000&formato=json [Ô]
obj.open [Ô]GET[Ô], url
obj.send
[ô]se ocorreu um erro HTTP
If obj.Status >= 400 And obj.Status <= 505 Then
MsgBox [Ô]Erro Ocorrido : [Ô] & obj.Status & [Ô] - [Ô] & obj.statusText
Exit Sub
Else
objLerXml.LoadXml (obj.responseText)
End If
Set VB_RESULT = objLerXml.selectSingleNode([Ô]//resultado[Ô])
If VB_RESULT.Text <> 0 Then
[ô] Set VB_UF = objLerXml.selectSingleNode([Ô]//uf[Ô])
txtUf.Text = VB_UF.Text
Else
MsgBox [Ô]Serviço indisponÃvel - cep inválido[Ô]
End If
End Sub
Abaixo sege e-mail recebido...
Boa tarde Eduardo, seguem abaixo as orientações.
Favor encaminhar este e-mail para seu software com as solicitações para seguindo os passos abaixo.
Segue link contendo documentação para integração de SOFTWARE - PDV com o sistema VANFARMAIS.
www.vanfarmais.com.br/van.asmx?wsdl
Ao acionar o endereço acima a documentação do WEBSERVICE apresenta os metodos e os atributos de cada método.
Atualmente apenas os métodos inserir_vendas, inserir_vendas_itens e inserir_vendas_itens_v2 estão sendo utilizados.
O inserir_vendas é responsável pela gravação dos dados de vendas e o inserir_vendas_itens e inserir_vendas_itens_v2 é responsável pela gravação dos dados dos itens de venda.
A empresa que tiver o código do vendedor na venda deve usar o método inserir_vendas_itens_v2 e as que não tiverem deve usar o inserir_vendas_itens.
O URL para teste e homoloção deve ser www.vanfarmais.com.br/van.asmx.
Citação:[ô] Preciso me conectar aqui<br>
url = ([Ô]http://www.vanfarmais.com.br/van.asmx?op=inserir_vendas[Ô])
quando vc envia a url não deveria enviar os dados completos de todos os [Ô]itens[Ô] da venda?
<s:element minOccurs=[Ô]1[Ô] maxOccurs=[Ô]1[Ô] name=[Ô]registro[Ô] type=[Ô]s:int[Ô]/>
<s:element minOccurs=[Ô]0[Ô] maxOccurs=[Ô]1[Ô] name=[Ô]cnpj_estabelecimento[Ô] type=[Ô]s:string[Ô]/>
<s:element minOccurs=[Ô]1[Ô] maxOccurs=[Ô]1[Ô] name=[Ô]maquina[Ô] type=[Ô]s:int[Ô]/>
<s:element minOccurs=[Ô]1[Ô] maxOccurs=[Ô]1[Ô] name=[Ô]cupom[Ô] type=[Ô]s:int[Ô]/>
<s:element minOccurs=[Ô]0[Ô] maxOccurs=[Ô]1[Ô] name=[Ô]data_movimento[Ô] type=[Ô]s:string[Ô]/>
<s:element minOccurs=[Ô]0[Ô] maxOccurs=[Ô]1[Ô] name=[Ô]data_hora[Ô] type=[Ô]s:string[Ô]/>
faça um teste com a url abaixo no seu navegador, e veja a resposta
http://www.vanfarmais.com.br/van.asmx?op=inserir_vendas®istro=0&cnpj_estabelecimento=00.000.000/0000-00&maquina=0&cupom=0&data_movimento=01/01/1990&data_hora=00:00
JEAN JEDSON, Obrigado pela resposta.
Irei fazer o teste e retorno.
Irei fazer o teste e retorno.
JEAN JEDSON
usei a url abaixo e funcionou.
url = ([Ô]http://www.vanfarmais.com.br/van.asmx/inserir_vendas?registro=15&cnpj_estabelecimento=99999999999999&maquina=54&cupom=15&data_movimento=01/01/2010&data_hora=15:00[Ô])
obrigado.
Tópico encerrado , respostas não são mais permitidas