Clipper On Line • Ver Tópico - Consumir Webservice ( SOAP )

Consumir Webservice ( SOAP )

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

Moderador: Moderadores

 

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 11 Abr 2019 12:43

Ainda brigando com isso.
Só sobrou diferença na conexão, porque no SOAPUI funciona exatamente com o mesmo arquivo.
O problema só pode ser nesta parte:

   oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
   oServer:Open( "POST", cWebService, .F. )
   oServer:SetRequestHeader( "SOAPAction", cSoapAction )
   oServer:SetRequestHeader( "Content-Type", "XML/TEXT; charset=utf-8" )
   oServer:send( cXmlSoap )
   oServer:WaitForResponse( 1000 )
   cRetorno := oServer:responseText


nota:
no manual diz pra usar XML/TEXT
Por isso acabei testando com esse tipo não comum.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 11 Abr 2019 13:09

EUREKA !!!!
Foi no chute, como sempre...

SoapUI mostrando isto:

seguro.png
seguro.png (10.53 KiB) Visualizado 1551 vezes


entonces....

FUNCTION MicrosoftXmlSoapPost( cXmlSoap, cSoapAction, cWebService )

   LOCAL oServer, nCont, cRetorno, cXmlRetorno := ""

   oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
   oServer:Open( "POST", cWebService, .F. )
   oServer:SetRequestHeader( "SOAPAction", cSoapAction )
   oServer:SetRequestHeader( "Content-Type", "text/xml;charset=UTF-8" )
   oServer:SetRequestHeader( "Content-Length", Len( cXmlSoap ) )
   oServer:SetRequestHeader( "Host", "homologaws.averba.com.br" )
   oServer:SetRequestHeader( "Connection", "Keep-Alive" )
   oServer:SetRequestHeader( "User-Agent", "Apache-HttpClient/4.1.1 (java 1.5)" )
   oServer:send( cXmlSoap )
   oServer:WaitForResponse( 1000 )
   cRetorno := oServer:responseText


Agora o erro mudou, é o mesmo do SOAPUI

XML invalido para utilizacao neste webserver


Nota: não sei quais daí de cima são opcionais, testar depois.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor Daniel » 11 Abr 2019 14:03

Agora o erro mudou, é o mesmo do SOAPUI

XML invalido para utilizacao neste webserver


O erro pode ser hb_eol() no final das linhas.
fazer um texto em uma linha só

   cXmlEnvio   := [<usuario>TESTES</usuario>] 
   cXmlEnvio   += [<senha>BASE</senha>]
   cXmlEnvio   += [<codatm>11340073</codatm>]
   cXmlEnvio   += [<xmlCTe>] + cXmlDoc + [</xmlCTe>]
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 373
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 36 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 11 Abr 2019 14:40

Daniel escreveu:O erro pode ser hb_eol() no final das linhas.fazer um texto em uma linha só


Já tinha feito isso.

Testei mais.
Na comunicação, de diferente do que eu já usava, só precisou isto:

   oServer:SetRequestHeader( "Host", "homologaws.averba.com.br" )


agora dependo da seguradora....
o retorno atual é: CNPJ emissor nao autorizado para averbar.

Ainda organizando o fonte, depois posto o final.

Mas o ponto importante é esse acima, de indicar o HOST.

O XML.... a própria seguradora fornece um exemplo pronto, então é o menor dos problemas.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 11 Abr 2019 17:07

é uma seguradora do caralh.... ganha dinheiro pra caralh.... e um suporte do caralh....

resposta da seguradora

O CNPJ do documento precisa ser o mesmo da caixa da homologação.


Agora pergunto:

que porr. é essa de caixa da homologação????

ok. já respondi o email perguntando.... mas não com essas palavras...
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 11 Abr 2019 17:11

e a saga continua....

Para o Sr. ter acesso ao ambiente de teste de homologação, é necessário criar um codigo atm para isso.
Então o CNPJ do codigo atm deve ser o mesmo do documento averbado.


Se pra enviar a porr. do documento...
Se pra acessar a porr. do webservice...
eu preciso de um código ATM pro CNPJ em uso...

Se eu tenho o código ATM.... que porr... de código ATM vou precisar?

E o cara ganha pra isso.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor MSDN » 11 Abr 2019 21:27

Um dia esse país aprende a fazer as coisas direito, muita burocracia e burrocracia !
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 12 Abr 2019 12:44

Eles não cadastraram a empresa, por isso não funcionava.

Tudo certo.
Agora fazer os outros eventos: cancelamento de CTE, envio de MDFE, e todos os eventos do MDFE.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor NiltonGM » 28 Mai 2019 13:09

Oi José e companhia do CTE, sempre usei terceiros para autorizar e gerar o PDF da DACTE/MDFE, mas gostaria de fazer isso pelo Harbour e economizar a mensalidade que está cada vez mais alta. Alguém poderia me orientar por onde começo para conseguir transmitir CTe & MDFe pelo Harbour?
Preciso executar as rotinas:
- Gerar o XML do CTE
- Assinar o XML com o certificado Digital para transmitir
- Transmitir XML e pegar retorno (oi Zeh! Parece que vc estava desenvolvendo uma classe para isso, a SefazClass, correto?)
- Gerar DACTE & DAMDFE em PDF
- Cancelar CTE/MDFE

Conto com a orientação de vocês.

Abraços!
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 28 Mai 2019 14:10

NiltonGM escreveu:Oi José e companhia do CTE, sempre usei terceiros para autorizar e gerar o PDF da DACTE/MDFE, mas gostaria de fazer isso pelo Harbour e economizar a mensalidade que está cada vez mais alta.
Alguém poderia me orientar por onde começo para conseguir transmitir CTe & MDFe pelo Harbour?


De tudo isso, a Sefazclass só não gera o XML.
Você precisa gerar o XML de emissão dos documentos.

(oi Zeh! Parece que vc estava desenvolvendo uma classe para isso, a SefazClass, correto?)


A classe SEMPRE fez isso, desde o começo.
Eu uso pra São Paulo todos.
O que aconteceu depois com a classe foi entrar PDF, NFCE, e ajustes pras UFs diferentes de São Paulo.

Então vamos lá:
- gerar o XML, talvez até possa usar o XML nos terceiros, assim testa com o que já está usando
- os demais, só ir substituindo

o que precisa:
- capicom instalado
- msxml5 instalado
- sefazclass
- certificado válido
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 28 Mai 2019 14:15

Faltou dizer:

Quer testar?
Baixe a Sefazclass e compile o test.prg
Tem praticamente tudo nele.
Depois disso, só fazer igual no aplicativo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor NiltonGM » 28 Mai 2019 16:29

Valeu Zeh, vou baixar a classe e testar...
Da lista q vc passou

"o que precisa:
- capicom instalado
- msxml5 instalado
- sefazclass
- certificado válido"

Só tenho o Certificado digital kkkk
A SefazClass deve estar disponível no Forum em downloads... vou pesquisar
Os demais o Google informa ou vcs tem os links deles para baixar?

Abraços
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 28 Mai 2019 21:06

NiltonGM escreveu:A SefazClass deve estar disponível no Forum em downloads... vou pesquisar


olhe que bacana... tá mais fácil que muitas outras coisas.
no google, pesquisa por sefazclass, é o primeiro da lista

google.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consumir Webservice ( SOAP )

Mensagempor JoséQuintas » 28 Mai 2019 21:08

E ao abrir o link, outra coisa bacana, uma pasta dlls
Então... é só baixar.

sefazclass.png


E antes que pergunte como fazer download....
É clicar em download kkkkk
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 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