Impressão do CTe 3.0 pelo Fortes

FernandoBatista · 19 Janeiro, 2017

Boa tarde a todos!

Algumas informações que não existe mais na versão 3.0 deixou resíduo na DACTE impressos de maneira incorreta no modelo do Fortes. Os campos que identifiquei foram a "Forma de pagamento" que agora sempre carrega "PAGO" que corresponde a opção 0 (zero) e a "Data prevista de entrega" que sempre carrega "30/12/1899".

Por favor me corrijam se não apliquei a melhor solução, ou se estou fazendo algo errado.

Para corrigir essas informações apliquei as alterações abaixo:

> Forma de pagamento

  if FCTe.infCTe.versao = 3 then
  begin
    if (FCTe.vPrest.vRec > 0) then
      rllFormaPagamento.Caption := tpforPagToStrText(fpAPagar)
    else
    if (FCTe.vPrest.vRec = 0) and (FCTe.vPrest.vTPrest > 0) then
      rllFormaPagamento.Caption := tpforPagToStrText(fpPago)
    else
      rllFormaPagamento.Caption := tpforPagToStrText(fpOutros)
  end
  else
    rllFormaPagamento.Caption := tpforPagToStrText(FCTe.Ide.forPag);

> Data prevista de entrega

    if FCTe.infCTe.versao = 3 then
    begin
      if (FCTe.infCTeNorm.infDoc.infNFe.Count > 0) then
        rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', FCTe.infCTeNorm.infDoc.InfNFe[0].dPrev)
      else
      if (FCTe.infCTeNorm.infDoc.infNF.Count > 0) then
        rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', FCTe.infCTeNorm.infDoc.InfNF[0].dPrev)
      else
      if (FCTe.infCTeNorm.infDoc.infOutros.Count > 0) then
        rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', FCTe.infCTeNorm.infDoc.infOutros[0].dPrev);
    end
    else
      rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', dPrev);

ACBrCTeDACTeRLRetrato.pas