DistribuicaoDFe - CT-e OS

[Allan Wolski]

A condição da linha 496 da função TRetDistDFeInt.LerXml não está funcionando corretamente para XML de CT-e OS.

if (oLeitorInfZip.rExtrai(1, LowerCase(FtpDFe) + 'Proc') <> '') then

A verificação está sendo realizada na tag cteProc (FtpDFe = CTe), porém a tag correta é cteOSProc.

Com isso as propriedades não estão sendo preenchidas corretamente, inclusive o XML.

[Italo Giurizzato Junior]

Bom dia Allan,

Mas o XML do CTe OS é salvo em disco ou não?

Os cabeçudos da SEFAZ tinham que mudar o nome da Tag quando criaram esse novo modelo.

Bom pra que simplificar se podemos complicar.

Faça a alteração abaixo e refaça os testes.

          if (oLeitorInfZip.rExtrai(1, LowerCase(FtpDFe) + 'Proc') <> '') or
             (oLeitorInfZip.rExtrai(1, LowerCase(FtpDFe) + 'OSProc') <> '') then
          begin

 

[Allan Wolski]

Bom dia, @Italo Jurisato Junior

Eu não salvo o XML em disco, mas a propriedade DistribuicaoDFe.retDistDFeInt.docZip.Items.XML ficava em branco.

Testei com a alteração proposta e funcionou perfeitamente.

Editado 11 Junho, 2019 por Allan Wolski

[Italo Giurizzato Junior]

Allan,

Muito obrigado pelo retorno.

[Allan Wolski]

Bom dia, Italo!

Eu que agradeço pela atenção.
Fico aguardando disponibilização no SVN.

Obrigado.

[Juliana Tamizou]

Bom dia.

Alterações já estão no svn.

Att.

[Allan Wolski]

Bom dia, @Juliana Tamizou

Perfeito. Muito obrigado pelo retorno.