Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Impressão do CTe 3.0 pelo Fortes


  • Este tópico foi criado há 1703 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.