CTe Simplificado substituto não está gerando as tags

[C4Dev]

Bom dia pessoal tudo bem?

Estou implementando o CTe simplificado substituto e me deparei com um problema na hora de alimentar as tags do XML, ao tentar emitir o CT-e retorna o erro:

Quote

Rejeição: Grupo CT-e de Substituição não informado para o CT-e de Substituição

Analisado o XML realmente não gerou as tags de infCteSub (XML em anexo), debugando identifiquei que no componente não está alimentando essas tags porque verifica apenas se o CT-e é tcSubstituto, porém como é simplificado ele é tcSubstCTeSimpl.

Na Use pcteCTeW na procedure "TCTeW.GerarInfCTeSub" tem uma verificação

procedure TCTeW.GerarInfCTeSub(infCTeSub: TInfCteSub);
begin
  if CTe.Ide.tpCTe = tcSubstituto then
  begin    

Mudei o if para

  if CTe.Ide.tpCTe in [tcSubstituto, tcSubstCTeSimpl] then

e funcionou corretamente gerando as tags de infCteSub.

Poderiam verificar por favor?

Muito obrigado.

42241003916076000400570990000066731535293387-cte.xml

[Juliomar Marchetti]

Anexa a unit alterada

[C4Dev]

pcteCTeW.pasSegue

[Italo Giurizzato Junior]

Boa tarde @C4Dev,

Muito obrigado pela colaboração, já foi criado a TK-6144  a analise.

[Italo Giurizzato Junior]

Boa tarde @C4Dev,

Já esta no SVN.

[C4Dev]

Funcionou corretamente, muito obrigado.

[Daniel InfoCotidiano]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.