Envio da tag tpTransp com Veículo Próprio

[bsoft]

Boa tarde.

Em nossos testes  de envio de MDF-e v3.00, não estamos conseguindo enviar a tag <tpTransp> como ETC ou CTC no caso em que o veículo é próprio. Vimos que, de acordo com o tópico abaixo, nas revisões 13005 e 13006 foi feita a alteração na unit pmdfeMDFeW.pas para não enviar a tag caso o documento do proprietário seja CPF. 

Como consequência, se o CNPJ do proprietário não é preenchido (o que indica veículo do emitente) a tag <tpTransp> não será enviada.

Código atual:

  if (VersaoDF >= ve300) and
     (Length(MDFe.Rodo.veicTracao.Prop.CNPJCPF) > 11) and
     (MDFe.Ide.tpTransp <> ttNenhum) and
     not ( (MDFe.Ide.tpEmit = teTranspCargaPropria) and
           (MDFe.Ide.modal = moRodoviario) and
           ((MDFe.Rodo.veicTracao.Prop.CNPJCPF = '') or
            (MDFe.Rodo.veicTracao.Prop.CNPJCPF = MDFe.emit.CNPJ)) ) then
    Gerador.wCampo(tcStr, '#007', 'tpTransp', 01, 01, 0, TTransportadorToStr(MDFe.Ide.tpTransp), DSC_TPTRANSP);

Sugestão de correção:

  if (VersaoDF >= ve300) and
     ((MDFe.Rodo.veicTracao.Prop.CNPJCPF = '') or (Length(MDFe.Rodo.veicTracao.Prop.CNPJCPF) > 11)) and
     (MDFe.Ide.tpTransp <> ttNenhum) and
     not ( (MDFe.Ide.tpEmit = teTranspCargaPropria) and
           (MDFe.Ide.modal = moRodoviario) and
           ((MDFe.Rodo.veicTracao.Prop.CNPJCPF = '') or
            (MDFe.Rodo.veicTracao.Prop.CNPJCPF = MDFe.emit.CNPJ)) ) then
    Gerador.wCampo(tcStr, '#007', 'tpTransp', 01, 01, 0, TTransportadorToStr(MDFe.Ide.tpTransp), DSC_TPTRANSP);

Segue em anexo a unit pmdfeMDFeW.pas para avaliação.

 

pmdfeMDFeW.pas

[Juliomar Marchetti]

Boa tarde

Obrigado pela colaboração

At revision: 13420