User Function Teste()
Local oWsdl
Local xRet
Local aComplex := {}
// 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
xRet := oWsdl:SetOperation( "executedanfeReceipt" )
if xRet == .F.
conout( "Erro: " + oWsdl:cError )
Return
endif
aComplex := oWsdl:ComplexInput()
varinfo( "", aComplex )
Return
|