WEBSERVICE - SNGPC

 Tópico anterior Próximo tópico Novo tópico

WEBSERVICE - SNGPC

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#337981 - 26/03/2010 14:06:21

EDUFS
SAO PAULO
Cadast. em:Março/2004


Boa tarde a todos.
Estou tentando desenvolver uma Comunicao 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 agradeo.

Eduardo



#337991 - 26/03/2010 14:55:22

OTAVIOFAVERO
SP
Cadast. em:Novembro/2009


qual e a sua duvida?

o q vc esta querendo fazer???

Nada e to Rui que no possa ser Piorado........
OnePass http://www.OnePass.com.br/
Otavio Favero

#337994 - 26/03/2010 15:03:12

NEO_ONLINE
BAURU
Cadast. em:Janeiro/2006


Última edição em 26/03/2010 15:05:02 por NEO_ONLINE

Ol, v se isto te ajuda

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=330484



#337998 - 26/03/2010 15:34:25

EDUFS
SAO PAULO
Cadast. em:Março/2004


OtavioFavero, Preciso enviar a minha movimentao de produtos para a VAN FARMAIS (para www.vanfarmais.com.br/van.asmx.  link com documento: www.vanfarmais.com.br/van.asmx?wsdl)

Peguei um exemplo para cep e dai comecei. O Cep foi tranquilo, s no estou conseguindo enviar as informaes 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 []Servio indisponvel - cep invlido[]
    End If
End Sub




Neo_Online:  Irei dar uma olhada

Obrigado.



#338021 - 26/03/2010 21:22:31

OTAVIOFAVERO
SP
Cadast. em:Novembro/2009


qual plataforma vc ta fazendo isso? vb6 ou vb.net ou asp ou asp.net?

Nada e to Rui que no possa ser Piorado........
OnePass http://www.OnePass.com.br/
Otavio Favero

#338022 - 26/03/2010 21:49:06

OTAVIOFAVERO
SP
Cadast. em:Novembro/2009


ha uma coisa se vc no enviar os campos

registro:      
cnpj_estabelecimento:     
maquina:     
cupom:     
data_movimento:     
data_hora:


e o campo de reposta e: inserir_vendasResult

e use de referencia msxml 6.0

ab

Nada e to Rui que no possa ser Piorado........
OnePass http://www.OnePass.com.br/
Otavio Favero

#338023 - 26/03/2010 22:09:05

OTAVIOFAVERO
SP
Cadast. em:Novembro/2009


aki um exemplo em .net

  

     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

Nada e to Rui que no possa ser Piorado........
OnePass http://www.OnePass.com.br/
Otavio Favero

#338112 - 29/03/2010 12:18:21

EDUFS
SAO PAULO
Cadast. em:Março/2004


OTAVIOFAVERO, obrigado pela resposta.
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 fao isso em vb6?

Obrigado.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por EDUFS em 19/05/2010 13:09:28