Leo_Godas

Boa tarde Felipe, Obrigado, já estou analisando. Referente a última dúvida que surgiu, após ler o manual da Sefaz, acredito que não seja possível baixar os XMLs de 2017 através do Webservice. Conforme manual, "os documentos estarão disponíveis para distribuição por até 3 meses após sua recepção pelo Ambiente Nacional do CT-e". Obrigado.

Bom dia Italo, Muito obrigado pela ajuda. Apenas para encerrar o assunto rsrs, existe alguma documentação aqui no forum sobre o "DistribuicaoDFe" ? Gostaria de estudar as funções, pois ao longo do tempo vai surgindo novas dúvidas rsrs. Hoje por exemplo, o pessoal aqui da empresa gostaria de baixar os Xmls somente do ano de 2017; Estou pesquisando no forum novamente e testando as funções rsrs. Obrigado novamente pela força.

Boa tarde Italo, Consegui resolver: ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.XML ; Mais uma dúvida, qual a diferença do ACBrCTe1.DistribuicaoDFePorULTNSU e ACBrCTe1.DistribuicaoDFePorNSU? Estou usando o DistribuicaoDFePorULTNSU, comecei passando '0', ai baixou os 50.. blz.. Na segunda consulta estou passando o ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU do ultimo retorno, porém está retornando os mesmos documentos. Obrigado.

Atualizei e funcionou ! obrigado

boa tarde Italo, Por gentileza, gostaria do xml completo do CTe, até o momento, estou conseguindo somente o resumo. Como posso extrair o xml completo? Obrigado.

Bom dia pessoal, ao consultar o webservice, está retornando "Rejeição: Cabecalho - Versao do arquivo XML nao suportada". Devo alterar algo no componente ? abraço

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