Consumir um servço WebService do ECM

Discussão em 'Progress 4GL' iniciado por schwenter, Outubro 29, 2010.

  1. schwenter

    schwenter Sem Pontuação

    Estou tentando consumir um Webservice via progress, estou com problemas, alguem pode me ajudar?

    OBS.: meu progress é versão 10.1A

    segue codigo:
    Código:
    DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.
    DEFINE VARIABLE hstartProcess AS HANDLE NO-UNDO.
    DEFINE VARIABLE ConsultaValor AS LONGCHAR NO-UNDO.
    DEFINE VARIABLE ConsultaValorResponse AS LONGCHAR NO-UNDO.
    
    ASSIGN ConsultaValor = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ws="http://ws.workflow.webdesk.technology.datasul.com/ ">'
                         +    '<soapenv:Header/>'
                         +      '<soapenv:Body>'
                         +         '<ws:startProcess>'
                         +            '<username>01000413</username>'
                         +            '<password></password>'
                         +            '<companyId>1</companyId>'
                         +            '<processId>ferias</processId>'
                         +            '<choosedState>2</choosedState>'
                         +            '<colleagueIds></colleagueIds>'
                         +            '<comments>Inicio workflow via webservice</comments>'
                         +            '<userId>01000413</userId>'
                         +            '<completeTask>true</completeTask>'
                         +            '<attachments></attachments>'
                         +            '<appointment></appointment>'
                         +            '<managerMode>false</managerMode>'
                         +         '</ws:startProcess>'
                         +      '</soapenv:Body>'
                         +   '</soapenv:Envelope>'.
    
    CREATE SERVER hWebService.
    hWebService:CONNECT("http://meuservidor.com.br:8080/webdesk/WorkflowEngineService?wsdl") NO-ERROR.
    RUN startProcess SET hstartProcess ON hWebService NO-ERROR.
    RUN INVOKE IN hstartProcess (INPUT ConsultaValor, OUTPUT ConsultaValorResponse).
    
    OUTPUT TO c:\valor.xml.
    EXPORT ConsultaValorResponse.
    OUTPUT CLOSE.
    
    DELETE procedure hstartProcess.
    hWebService:disconnect().
    DELETE OBJECT hWebService.

Compartilhe esta Página