Arquivo Xml Completo Para Distribuição

[Italo Giurizzato Junior]

Bom dia a todos,

 

Encontra-se disponível uma alteração que ao consultar a situação atual de um CTe, se o mesmo conter algum evento vinculado será salvo o arquivo: <chave>-CTeDFe.xml

 

A principio o arquivo será salvo em disco desde que as propriedades Geral.Salvar ou Arquivos.Salvar possuem o valor True.

 

A estrutura do novo arquivo é:

 

<CTeDFe>

 <procCTe versao="2.00">

  <CTe xmlns="http://www.portalfiscal.inf.br/cte">

    ...

  </CTe>

  <protCTe versao="2.00">

    ...

  </protCTe>

 </procCTe>

 <procEventoCTe versao="2.00">

  <eventoCTe xmlns="http://www.portalfiscal.inf.br/cte" versao="2.00">

    ...

  </eventoCTe>

  <retEventoCTe versao="2.00">

    ...

  </retEventoCTe>

 </procEventoCTe>

</CTeDFe>

 

O que esta em azul é o CT-e assinado com o protocolo de autorização.

O que esta em vermelho é o processamento dos eventos vinculados ao CT-e.

 

Volto a frisar que esse arquivo só será salvo caso o CT-e possua pelo menos 1 evento vinculado a ele.

 

Essa estrutura foi baseada no arquivo retornado pela SEFAZ quando via site é solicitado o Download de um CT-e.

 

Por favor realizem testes e reporte os eventuais erros.

 

 

[GustavoKato]

bom dia, Italo.

Fica em alguma propriedade específica ou apenas salva o retorno do webservice?

Parabéns pela implementação

[Italo Giurizzato Junior]

Bom dia Gustavo,

 

Essa primeira fase da implementação, o componente gera e salva em disco um XML contendo o CT-e mais o retorno da consulta conforme estrutura apresentada.

 

Depois vamos melhorar, para que o conteúdo do XML seja armazenado em uma propriedade, para satisfazer a necessidade daqueles que preferem armazenar o XML no banco de dados e não em disco.

[ncc.star]

Olá Italo.

 

Fiz um teste aqui e um CT-e com duas cartas de correção trouxe só a primeira, quando na verdade deveria trazer só a última.

[Italo Giurizzato Junior]

Boa noite ncc,

 

Ao realizar a consulta foi salvo em disco os seguintes arquivos:

 

*-ped-sit.xml,   *-sit.xml e *-CTeDFe.xml

 

O conteudo de *-sit.xml contem as duas cartas?

 

Se possível post como anexo os 3 arquivos.

[ncc.star]

Bom dia Italo.

 

Acabei de lhe enviar os arquivos no seu e-mail.

 

Sim, o conteúdo de *-sit.xml contém as duas cartas, esse teste eu fiz com um CT-e de complemento e também aparece um evento "CTe Complementar Registrado".

[Italo Giurizzato Junior]

Bom dia a todos,

 

Foram feitas algumas alterações e correções, pois o nosso colega Nicolas detectou que a rotina esta anexando ao CTe somente um evento, sendo que o retorno da consulta a situação atual pode conter 1 ou mais e no teste que ele realizou continha 3 eventos.

 

Alem dessa correção foi incluída uma nova propriedade chamada RetCTeDFe que pode ser lida logo após realizar a consulta.

 

sXMLFinal := ACBrCTe1.WebServices.Consulta.RetCTeDFe;

 

Por favor atualizem os fontes e realizem novos testes para que possamos arredondar essa funcionalidade.

[ncc.star]

Testei aqui, está ok agora.

[snoopyfael]

Bom dia a todos,

 

Foram feitas algumas alterações e correções, pois o nosso colega Nicolas detectou que a rotina esta anexando ao CTe somente um evento, sendo que o retorno da consulta a situação atual pode conter 1 ou mais e no teste que ele realizou continha 3 eventos.

 

Alem dessa correção foi incluída uma nova propriedade chamada RetCTeDFe que pode ser lida logo após realizar a consulta.

 

sXMLFinal := ACBrCTe1.WebServices.Consulta.RetCTeDFe;

 

Por favor atualizem os fontes e realizem novos testes para que possamos arredondar essa funcionalidade.

 

Bom dia Italo,

 

Atualizei os fontes e fiz um teste aqui, a variável ACBrCTe1.WebServices.Consulta.RetCTeDFe esta sempre retornando vazia, mesmo o arquivo sendo gerado correto.

 

Segue xml em anexo.

31140616883860000150570020000766971000766973-CTeDFe.xml

[Italo Giurizzato Junior]

Bom dia,

 

Muito obrigado pelo retorno.

 

Vou analisar o problema.

[Daniel Caus]

Bom dia...

 

Se o parâmetro dtmDados.ACBrCTe.Configuracoes.Geral.Salvar estiver True ele gera o arquivo RetCTeDFe corretamente, juntamente com sit e o ped-sit.

 

Se desativar o Salvar, e chamar o ACBrCTe1.WebServices.Consulta.RetCTeDFe, está vindo sempre vazio .

 

Tem como gerar o arquivo RetCTeDFe sem o parâmetro Salvar estar ativo? Pois não queria salvar em disco os arquivos sit e ped-sit, somente o RetCteDFe.

 

desde já agradeço!

Editado 6 Agosto, 2014 por Daniel Caus

[Italo Giurizzato Junior]

Boa tarde Daniel,

 

Por favor atualize os fontes e teste novamente.

[Daniel Caus]

Boa tarde Ítalo..

 

Atualizei e testei novamente , mas a princípio continua igual.

Ao consultar dtmDados.ACBrCTe.WebServices.Consulta.RetCTeDFe permanece vazio se a tag dtmDados.ACBrCTe.Configuracoes.Geral.Salvar for False

[Italo Giurizzato Junior]

Daniel,

 

Ao realizar a consulta, você esta carregando o componente com o conteúdo do CT-e?

 

Se não estiver carregando o componente procura pelo XML do mesmo salvo em disco, bem como o *-sit.xml

 

Se não encontrar o *-cte.xml ele não gerar o CTeDFe consequentemente a propriedade RetCTeDFe fica vazia.

[Daniel Caus]

Ítalo..

Estou carregando o XML.

 

Dei uma olhada no arquivo ACBRCteWebServices e ao debugar vai tudo certo até chegar na variável dos casos abaixo, ali ela fica vazia, não entrando depois aonde geraria o XML.

 

aCTe := LocCTeW.Gerador.ArquivoFormatoXML; 

 

aCTe := AProcCTe.Gerador.ArquivoFormatoXML;

 

Não consegui identificar de onde vem Gerador.ArquivoFormatoXML

Editado 6 Agosto, 2014 por Daniel Caus

[Italo Giurizzato Junior]

Bom dia Daniel,

 

É o procedimento GerarXML que gera o conteúdo de ArquivoFormatoXML;

 

Veja:

 

               LocCTeW.GerarXML;

 

               aCTe := LocCTeW.Gerador.ArquivoFormatoXML;

[Daniel Caus]

Olá Ítalo..

Como posso gerar o -sit.XML ao realizar o cancelamento do CT-e e assim ele gerar o -CTeDFe.XML corretamente?

 

tenho como buscar do componente este XML (-sit.XML) sem estar marcada a flag Geral.Salvar?

 

desde já agradeço a ajuda!

 

 

OBS: Consegui através de dtmDados.ACBrCTe.WebServices.Consulta.CTeChave := sChave;
                                               dtmDados.ACBrCTe.WebServices.Consulta.Executar;

                                               dtmDados.ACBrCTe.WebServices.Consulta.RetWS

Editado 7 Agosto, 2014 por Daniel Caus