User Function Teste()
Local oWsdl
Local xRet
Local aSimple := {}
// Cria o objeto da classe TWsdlManager
oWsdl := TWsdlManager():New()
// Faz o parse de um arquivo
xRet := oWsdl:ParseFile( "\rapidao.wsdl" )
if xRet == .F.
conout( "Erro: " + oWsdl:cError )
Return
endif
// Define a operação
xRet := oWsdl:SetOperation( "executedanfeReceipt" )
if xRet == .F.
conout( "Erro: " + oWsdl:cError )
Return
endif
// Lista os tipos simples das mensagens de fault envolvidas na operação
aSimple := oWsdl:SimpleFault()
varinfo( "", aSimple )
Return
|