WEBSERVICE - SNGPC
Estou tentando desenvolver uma Comunicação com a Webservice da VAN Farmais. (topico aberto como WEBSERVICE ENVIAR PARAMETROS - http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=337854&varWorld= )
Gostaria de saber se algeum desenvolveu a Webservice com o SNGPC e que possa me enviar como exeplo.
Desde ja agradeço.
Eduardo
o q vc esta querendo fazer???
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=330484
Peguei um exemplo para cep e dai comecei. O Cep foi tranquilo, só não estou conseguindo enviar as informações para a VAN.
Fiz:
Citação: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
Neo_Online: Irei dar uma olhada
Obrigado.
[txt-color=#e80000]registro:
cnpj_estabelecimento:
maquina:
cupom:
data_movimento:
data_hora:[/txt-color]
e o campo de reposta e: [txt-color=#e80000] inserir_vendasResult[/txt-color]
e use de referencia msxml 6.0
abç
Dim o_ws As New nomedowebservice
Dim o_AutenticarHeader As New nomedowebservice.inserir_vendas
Try
o_AutenticarHeader.registro= campo.registro
o_AutenticarHeader.cnpj_estabelecimento= campocnpj_estabelecimento
o_AutenticarHeader.maquina = campo
o_AutenticarHeader.cupom = campo
o_AutenticarHeader.data_movimento = data_movimento
o_AutenticarHeader.data_hora= data_hora
o_mSessaoUsuario = o_ws.inserir_vendas(o_AutenticarHeader)
campo.txt = o_mSessaoUsuario
If TypeOf o_mSessaoUsuario Is nomedowebservice.inserir_vendas Then
[ô]LOGADO COM SUCESSO
End If
Estou usando vb6.
Nao estou conseguindo enviar os campos citado por voce. Esta é a minha dificuldade. é minha primeira vez trabalhando com webservice.
Teria uma ideia como faço isso em vb6?
Obrigado.