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
// Pega a lista de tipos complexos
aComplex := oWsdl:ComplexInput()
// Define para o primeiro tipo complexo que o número de ocorrências será 2.
oWsdl:SetComplexOccurs( aComplex[1][1], 2 )
Return
|