Consumir WebServices no progress
O programa abaixo consome um webservice e exporta o retorno para um arquivo .XML no diretório C:\.
DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
DEFINE VARIABLE hConsultaValorPortType AS HANDLE NO-UNDO.
DEFINE VARIABLE ConsultaValor AS LONGCHAR NO-UNDO.
DEFINE VARIABLE ConsultaValorResponse AS LONGCHAR NO-UNDO.
ASSIGN ConsultaValor = “xml de entrada”.
CREATE SERVER hWebService.
hWebService:CONNECT(“-WSDL ‘http://…. seu wsdl”) NO-ERROR.
RUN ConsultaValorPortType SET hConsultaValorPortType ON hWebService NO-ERROR.
RUN INVOKE IN hConsultaValorPortType(INPUT ConsultaValor, OUTPUT ConsultaValorResponse).
OUTPUT TO c:\valor.xml.
EXPORT ConsultaValorResponse.
OUTPUT CLOSE.
DELETE procedure hConsultaValorPortType.
hWebService:disconnect().
DELETE OBJECT hWebService.
Funciona que é uma beleza…. 
Filed under: Progress | 7 Comments
Tags: 4gl, Consumir, Progress, SOA, WebService
-
-
My Google Reader- Os 10 Países mais e menos perigosos do mundo 2009
- Os incomodados são os que mudam
- Um empresa inteira “ágil”?
- Sedentarismo e TI
- Palestras do Ano de 2009
- Brazilian Ruby on Rails Portfolio
- Três tendências para 2010 no mundo de desenvolvimento
- A importância do ERP antes e depois de crises
- A matriz de Roberts e o futuro das marcas
- Especulando o sistema operacional perfeito
- My Wallpapers
Visitors
-
-
Muito bom!!
Esse programa também roda na versão 9.1d?
Eai Eduardo,
Eu fiz esse na versão 10.B, qualquer coisa tamo ai…
flw
Atualizado…
DELETE procedure hConsultaValorPortType.
hWebService:disconnect().
DELETE OBJECT hWebService.
Olá,
Seria possivel utilizar esta mesma logica para acessar o webservice da Sefaz?
Obrigado.
Marcelo,
Poderia passar o endereço do WSDL para testarmos?
abs
Alguem conseguiu implementar este fonte no progress versão 91.d ?