DACTE Versão 3.00 Fortes Report

[Maciel Goettms]

Estou implementando a versão 3.00 do CT-e, atualmente usamos o Fortes Report, e vi que o DACTE não está na versão 3.00, então inciei as alterações e seguindo a mesma lógica das outras versão utilizei um diretiva de compilação (PL_300), porém as diretivas das versões anteriores também são utilizadas no package AcbrCTe, mais especificamente nas units pcteCTe, pcteCTeR e pcteCTeW, em ambas todas as classes estão na diretiva PL_200, então seria o caso de incluir a diretiva PL_300 e "duplicar" o código referente apenas as classes dessa versão, ou qual a melhor forma de proceder? Estou a disposição para contribuir nesse projeto..

[Juliomar Marchetti]

Boa tarde

já tem pessoas alterando e logo vai ser subida ao svn as mudanças.

[Maciel Goettms]

Ok, Obrigado Juliomar.

[Maciel Goettms]

Olá, atualizei os fontes e verifiquei que saiu as alterações para a versão 3.00 do DACTE para o Fortes Report,

estive testando aqui e encontrei um problema na impressão dos Documentos de Transportes Anteriores,

está imprimindo o property "chave" que está vazia no caso de documento eletrônico, e a correta seria "chCTe",

fiz a alteração e estou anexando a unit.

@Juliomar Marchetti, @Italo Jurisato Junior

ACBrCTeDACTeRLRetrato.pas

[Juliomar Marchetti]

Em 31/08/2017 at 11:35, Maciel Goettms disse:

Olá, atualizei os fontes e verifiquei que saiu as alterações para a versão 3.00 do DACTE para o Fortes Report,

estive testando aqui e encontrei um problema na impressão dos Documentos de Transportes Anteriores,

está imprimindo o property "chave" que está vazia no caso de documento eletrônico, e a correta seria "chCTe",

fiz a alteração e estou anexando a unit.

@Juliomar Marchetti, @Italo Jurisato Junior

ACBrCTeDACTeRLRetrato.pas

No svn Obrigado

[BigWings]

@Juliomar Marchetti

Creio que essa alteração vai causar problemas na versão 2.00 do CTe.

Nessa versão ainda é carregada a propriedade "chave".

pcteCTeR.pas : 1040

          while Leitor.rExtrai(5, 'idDocAntEle', '', i03 + 1) <> '' do
          begin
            CTe.infCTeNorm.docAnt.emiDocAnt[i01].idDocAnt[i02].idDocAntEle.Add;
            if (CTe.infCTe.versao >= 3) then
              CTe.infCTeNorm.docAnt.emiDocAnt[i01].idDocAnt[i02].idDocAntEle[i03].chCTe := Leitor.rCampo(tcStr, 'chCTe')
            else
              CTe.infCTeNorm.docAnt.emiDocAnt[i01].idDocAnt[i02].idDocAntEle[i03].chave := Leitor.rCampo(tcStr, 'chave');
            inc(i03);
          end;

 

[BigWings]

Seguem correções com tratamento da versão.

ACBrCTeDACTeRLRetratoA5.pas

ACBrCTeDACTeRLRetrato.pas

[Juliomar Marchetti]

49 minutos atrás, BigWings disse:

@Juliomar Marchetti

Creio que essa alteração vai causar problemas na versão 2.00 do CTe.

Nessa versão ainda é carregada a propriedade "chave".

pcteCTeR.pas : 1040

          while Leitor.rExtrai(5, 'idDocAntEle', '', i03 + 1) <> '' do
          begin
            CTe.infCTeNorm.docAnt.emiDocAnt[i01].idDocAnt[i02].idDocAntEle.Add;
            if (CTe.infCTe.versao >= 3) then
              CTe.infCTeNorm.docAnt.emiDocAnt[i01].idDocAnt[i02].idDocAntEle[i03].chCTe := Leitor.rCampo(tcStr, 'chCTe')
            else
              CTe.infCTeNorm.docAnt.emiDocAnt[i01].idDocAnt[i02].idDocAntEle[i03].chave := Leitor.rCampo(tcStr, 'chave');
            inc(i03);
          end;

 

tem razão não havia lembrado.

31 minutos atrás, BigWings disse:

Seguem correções com tratamento da versão.

ACBrCTeDACTeRLRetratoA5.pas

ACBrCTeDACTeRLRetrato.pas

Opa já confiro e subo

Pronto no svn

Obrigado por fazer a correção a tempo Bigwings