Clipper On Line • Ver Tópico - Utilizar SIGEP WEB dos Correios

Utilizar SIGEP WEB dos Correios

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Utilizar SIGEP WEB dos Correios

Mensagempor hs_paulo » 16 Jan 2019 20:14

Ola,

Eu utilizo os serviços dos Correios para enviar encomendas.
Estou tentando sem sucesso fazer acesso para emitir as etiquetas automaticamente.

O manual do Correios esta nesta link:

http://www.corporativo.correios.com.br/ ... EP_WEB.pdf

Alguém poderia me ajudar? Não sei nem onde começar. Se fizer a primeira chamada, o resto eu faço.

Obrigado

Paulo
hs_paulo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 25
Data de registro: 02 Set 2015 17:11
Cidade/Estado: Bauru
Curtiu: 24 vezes
Mens.Curtidas: 1 vez

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 16 Jan 2019 21:12

Esse serviço dos Correios é para consumo de webservice
Vai usar todos os métodos do WS?
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 16 Jan 2019 21:14

Aqui no fórum tem vários exemplos de consumo de WS
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor hs_paulo » 17 Jan 2019 08:02

Obrigado pelas respostas.

Tenho contrato com os Correios.
Hoje eu uso o SIGEP Web dos Correios, mas esta aumentando muito o numero de encomendas e estou pensando em automatizar, então, eu utilizarei todas as chamadas.

Preciso saber qual a ordem dos comandos que devo usar.
hs_paulo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 25
Data de registro: 02 Set 2015 17:11
Cidade/Estado: Bauru
Curtiu: 24 vezes
Mens.Curtidas: 1 vez

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 17 Jan 2019 14:27

Aconselho baixar o SopUI para montar os xmls de consumo

SoapUI https://www.soapui.org/

Exemplo de consulta de endereço por cep, baseado no manual do SIGEP, um exemplo simples:

Obs.: apesar de a primeira linha da variável cxMLSoap está quebrando a atribuição começa com [ e termina com ]

   

   cUrlWS := [https://apphom.correios.com.br/SigepMasterJPA/AtendeClienteService/AtendeCliente]
   
   cxMLSoap := [<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cli="http://cliente.bean.master.sigep.bsb.correios.com.br/">]
   cxMLSoap += [<soapenv:Header/>]
   cxMLSoap += [<soapenv:Body>]
   cxMLSoap += [   <cli:consultaCEP>]
   cxMLSoap += [       <!--Optional:-->]
   cxMLSoap += [       <cep>20735050</cep>]
   cxMLSoap += [    </cli:consultaCEP>]
   cxMLSoap += [</soapenv:Body>]
   cxMLSoap += [</soapenv:Envelope>]
   
   With Object oServerWS
       :Open( "POST", cUrlWS, .F. )
       :SetRequestHeader( "Content-Type", 'text/xml; charset="utf-8"' ) 
       :SetRequestHeader( "Content-Length", Hb_NtoS( Hb_BLen( cxMLSoap ) ) )
       :Send( cxMLSoap )           
       While :readyState != 4
          :WaitForResponse( 500 )
       Enddo
       With Object oXMLDoc
          :async := .F.
          If :load( oServerWS:responseXML )
             Begin Sequence With __BreakBlock()
                cBairro := :getElementsByTagName( "bairro" ):item(0):Text
                cCep    := :getElementsByTagName( "bairro" ):item(0):Text
                cCidade := :getElementsByTagName( "cidade" ):item(0):Text
                cEnd    := :getElementsByTagName( "end" ):item(0):Text
                cUF     := :getElementsByTagName( "uf" ):item(0):Text
             End
          Else
             Break
          Endif
       End With
    End With 


2019-01-17 15_24_15-.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 17 Jan 2019 14:31

Os outros métodos precisam passar o usuário e senha para o consumo.
Esse método ConsultaCEP é liberado para qq um
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 17 Jan 2019 14:37

Correção de cCep

cCep := :getElementsByTagName( "bairro" ):item(0):Text

Para

cCep := :getElementsByTagName( "cep" ):item(0):Text
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 17 Jan 2019 14:49

2019-01-17 15_48_09-.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor janio » 18 Jan 2019 08:10

Aconselho baixar o SopUI para montar os xmls de consumo


aSimoes,

Minha experiência com webservice ainda eh pouca. O que seria esse SopUI? Um 'testador' de WS? Ele importa os métodos do webservice e da exemplos de como seria o xml? Seria isso?

Janio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 18 Jan 2019 11:08

asimoes escreveu:aSimoes,

Minha experiência com webservice ainda eh pouca. O que seria esse SopUI? Um 'testador' de WS? Ele importa os métodos do webservice e da exemplos de como seria o xml? Seria isso?

Janio


Sim, essa ferramenta facilita a criação dos xmls e ao mesmo tempo testar o consumo do WS e métodos

Uma vez que o teste no SoapUI funcionou, você vai precisar somente do xml de envio, montar uma string com esse xml e nas tags passar os valores que são sempre strings.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor hs_paulo » 18 Jan 2019 12:16

Na compilação esta dando erro "undefined reference to `HB_FUN_HB_BLEN'"

Onde encontro esta função?

Ou melhor, como compilar ?
hs_paulo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 25
Data de registro: 02 Set 2015 17:11
Cidade/Estado: Bauru
Curtiu: 24 vezes
Mens.Curtidas: 1 vez

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 18 Jan 2019 13:07

Eu uso o harbour 3.4, tenta usar len()
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor hs_paulo » 18 Jan 2019 15:51

o Harbour 3.4 tem para 32 bits?

Baixei e tentei compilar e da mensagem: "HB34\BIN\hbmk2.exe não é compatível com a versão do Windows sendo executada."
hs_paulo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 25
Data de registro: 02 Set 2015 17:11
Cidade/Estado: Bauru
Curtiu: 24 vezes
Mens.Curtidas: 1 vez

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 18 Jan 2019 17:25

A versão padrão é 32 bits, funciona também no windows 64 bits, todas as versões.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Utilizar SIGEP WEB dos Correios

Mensagempor asimoes » 18 Jan 2019 17:27

Você deve ter baixando a versão 64 e está tentando compilar no windows 32 bits, tenta baixar a versão do harbour 32 bits
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro