User Function Exemplo(cWSDL)
// Deve-se informar uma string wsdl valida documentação oficial https://www.w3.org/TR/wsdl/
Local cErro := ""
Local cAviso := ""
// Arrays usados como referência
Local cWSDL
Local aLoType
Local aLoMsg
Local aLoPort
Local aLoBind
Local aLoServ
Local aLoName
Local aLoImport
Local cError
Local cWarning
WSDLParser(cWSDL, @aLoType, @aLoMsg, @aLoPort, @aLoBind, @aLoServ, @aLoName, @aLoImport, @cError, @cWarning)
If !empty(cErro)
UserException( 'ERROR WSDL Parsing ' + cErro)
ElseIf !empty(cAviso)
UserException( 'WARNING WSDL Parsing ' + cAviso)
Endif
return
|