Erro na Unit pcnNfe - Rastreabilidade

[eduardoengcosta]

Na Unit pcnNfe encontrei um erro na seguinte procedure.

procedure TProd.Assign(Source: TPersistent);
begin
  if Source is TProd then
  begin
    cProd := TProd(Source).cProd;
    nItem := TProd(Source).nItem;
    cEAN := TProd(Source).cEAN;
    xProd := TProd(Source).xProd;
    NCM := TProd(Source).NCM;
    NVE.Assign(TProd(Source).NVE);
    EXTIPI := TProd(Source).EXTIPI;
    //genero := TProd(Source).genero;
    CFOP := TProd(Source).CFOP;
    uCom := TProd(Source).uCom;
    qCom := TProd(Source).qCom;
    vUnCom := TProd(Source).vUnCom;
    vProd := TProd(Source).vProd;
    cEANTrib := TProd(Source).cEANTrib;
    uTrib := TProd(Source).uTrib;
    qTrib := TProd(Source).qTrib;
    vUnTrib := TProd(Source).vUnTrib;
    vFrete := TProd(Source).vFrete;
    vSeg := TProd(Source).vSeg;
    vDesc := TProd(Source).vDesc;
    vOutro := TProd(Source).vOutro;
    IndTot := TProd(Source).IndTot;
    DI.Assign(TProd(Source).DI);
    xPed := TProd(Source).xPed;
    nItemPed := TProd(Source).nItemPed;
    detExport.Assign(TProd(Source).detExport);
    veicProd.Assign(TProd(Source).veicProd);
    med.Assign(TProd(Source).med);
    rastro.Assign(TProd(Source).rastro);  (Não existia este procedimento).
    arma.Assign(TProd(Source).arma);
    comb.Assign(TProd(Source).comb);
    nRECOPI := TProd(Source).nRECOPI;
    nFCI := TProd(Source).nFCI;
    CEST := TProd(Source).CEST;
    indEscala := TProd(Source).indEscala;
    CNPJFab := TProd(Source).CNPJFab;
    cBenef := TProd(Source).cBenef;
  end
  else
    inherited;
end;

 

Sem esta linha não estava carregando os dados de rastreabilidade do produto.

Alguém poderia me ajudar com essa informação, pois acho que é um erro.

[RicardoVoigt]

Em 27/03/2018 at 14:12, eduardoengcosta disse:

Na Unit pcnNfe encontrei um erro na seguinte procedure.

A dica sempre é vc mesmo anexar o arquivo de fonte alterado, quando tem alguma sugestão...

Anexei ai pro pessoal verificar...

Att

Ricardo

pcnNFe.pas

[eduardoengcosta]

2 horas atrás, RicardoVoigt disse:

A dica sempre é vc mesmo anexar o arquivo de fonte alterado, quando tem alguma sugestão...

Anexei ai pro pessoal verificar...

Att

Ricardo

pcnNFe.pas

Obrigado amigo!