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 aLocalType := {}
Local aLocalName := {}
Local aLocalImport := {}
WSDL2Parser( cWSDL , @aLocalType, @aLocalName, @aLocalImport, @cErro , @cAviso )
If !empty(cErro)
UserException( 'ERROR WSDL Parsing ' + cErro)
ElseIf !empty(cAviso)
UserException( 'WARNING WSDL Parsing ' + cAviso)
Endif
return
|