Pesquisar na Comunidade
Showing results for tags 'mdfe;damdfe;rntrc'.
Encontrado 1 registro
-
Boa noite, fiz esta alteração no DAMDFE - FORTES. Solicito atualizar o TRUNK e também implementar no DAMDFE - FASTREPORT. Quando o veículo é próprio, ou seja da Transportadora emitente do MDFe, o RNTRC não está sendo impresso. Como o veículo é da transportadora, os dados do proprietário e RNTRC não são obrigatórios e não são adicionados. A versão 2.0 usava FMDFe.rodo.RNTRC, mas agora é FMDFe.rodo.infANTT.RNTRC. A implementação que fez permitiu imprimir. Talvez a melhor forma seja checar a versão do XML, se for ve300 usar FMDFe.rodo.infANTT.RNTRC. Função alterada - FORTES. Necessário replicar no FASTREPORT. procedure TfrlDAMDFeRLRetrato.rlb_2_RodoBeforePrint(Sender: TObject; var PrintIt: Boolean); var i: integer; begin inherited; rlb_2_Rodo.Enabled := (FMDFe.Ide.modal = moRodoviario); rlmPlaca.Lines.Clear; rlmPlaca.Lines.Add(FormatarPlaca(FMDFe.rodo.veicTracao.placa)); rlmRNTRC.Lines.Clear; if FMDFe.rodo.veicTracao.prop.RNTRC <> '' then rlmRNTRC.Lines.Add(FMDFe.rodo.veicTracao.prop.RNTRC) else if FMDFe.rodo.RNTRC = '' then rlmRNTRC.Lines.Add(FMDFe.rodo.infANTT.RNTRC) else rlmRNTRC.Lines.Add(FMDFe.rodo.RNTRC); for i := 0 to FMDFe.rodo.veicReboque.Count - 1 do begin rlmPlaca.Lines.Add(FormatarPlaca(FMDFe.rodo.veicReboque.Items.placa)); if FMDFe.rodo.veicReboque.Items.prop.RNTRC <> '' then rlmRNTRC.Lines.Add(FMDFe.rodo.veicReboque.Items.prop.RNTRC) else if FMDFe.rodo.RNTRC = '' then rlmRNTRC.Lines.Add(FMDFe.rodo.infANTT.RNTRC) else rlmRNTRC.Lines.Add(FMDFe.rodo.RNTRC); end; Atenciosamente Sergio