Dúvida retorno - ACBrCTeWebServices

[Leo_Godas]

Boa tarde,

Estou fazendo uma consulta no webservice, e sempre está retornando :

Rejeição: Cabecalho - Versao do arquivo XML nao suportada. Já atualizei a versão para ve300 do componente ACBrCTe1 ,  mas não consigo solucionar o problema. Desde já agradeço. Delphi XE7 function TSMCte.ConsultarCte(cChave: string): TJSONArray; var cValor: TJSONString; begin Result := TJSONArray.Create; ACBrCTe1.WebServices.Consulta.CTeChave := cChave; ACBrCTe1.WebServices.Consulta.Executar; cValor := TJSONString.Create( IntToStr( ACBrCTe1.WebServices.Consulta.cStat ) ); Result.AddElement( cValor ); cValor := TJSONString.Create( TpAmbToStr( ACBrCTe1.WebServices.Consulta.TpAmb ) ); Result.AddElement( cValor ); cValor := TJSONString.Create( ACBrCTe1.WebServices.Consulta.verAplic ); Result.AddElement( cValor ); cValor := TJSONString.Create( ACBrCTe1.WebServices.Consulta.xMotivo ); Result.AddElement( cValor ); cValor := TJSONString.Create( IntToStr(ACBrCTe1.WebServices.Consulta.cUF ) ); Result.AddElement( cValor); cValor := TJSONString.Create( ACBrCTe1.WebServices.Consulta.CTeChave ); Result.AddElement( cValor ); end;

Função.txt