Erro ao atualizar ACBR unit ACBrNFeDANFeESCPOS

[Daniel Alves Barreto]

Depois de aatualizar os fontes do ACBR estou encontrando erros em duas procedures são elas

procedure TACBrNFeDANFeESCPOS.ImprimirDANFECancelado(NFE: TNFe);
begin
  if NFE = nil then
  begin
    if not Assigned(ACBrNFe) then
      raise Exception.Create(ACBrStr('Componente ACBrNFe não atribuído'));

    if TACBrNFe(ACBrNFe).NotasFiscais.Count <= 0 then
      raise Exception.Create
        (ACBrStr('XML da NFe não informado, obrigatório para o modelo ESCPOS'))
    else
      FpNFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFE;
  end
  else
    FpNFe := NFE;

  FpEvento := TACBrNFe(ACBrNFe).EventoNFe; //[dcc32 Error] ACBrNFeDANFeESCPOS.pas(1016): E2010 Incompatible types: 'pcnEnvEventoNFe.TEventoNFe' and 'ACBrNFe.EnvEvento.TEventoNFe'
  if not Assigned(FpEvento) then
    raise Exception.Create('Arquivo de Evento não informado!');

  AtivarPosPrinter;
  GerarCabecalho;
  GerarDadosEvento;
  FPosPrinter.Buffer.Add(GerarInformacoesConsumidor);
  GerarObservacoesEvento;
  FPosPrinter.Buffer.Add(GerarInformacoesQRCode(CalcularDadosQRCode, True));
  GerarRodape;

  FPosPrinter.Imprimir('', False, True, True, NumCopias);
end;

 

e em:

 

procedure TACBrNFeDANFeESCPOS.ImprimirINUTILIZACAO(ANFe: TNFe);
var
  fpInutNFe: TinutNFe;
  sJustificativa: string;

begin
  if ANFe = nil then
  begin
    if not Assigned(ACBrNFe) then
      raise Exception.Create(ACBrStr('Componente ACBrNFe não atribuído'));

    if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then
      FpNFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFE;
  end
  else
    FpNFe := ANFe;

  fpInutNFe := TACBrNFe(ACBrNFe).InutNFe; //[dcc32 Error] ACBrNFeDANFeESCPOS.pas(1122): E2010 Incompatible types: 'pcnInutNFe.TinutNFe' and 'ACBrNFe.Inut.TinutNFe'
  if not Assigned(fpInutNFe) then
  begin
    raise Exception.Create(ACBrStr('Objeto de inutilização não atribuído.'));
  end;

  // Salvar TACBrNFe(ACBrNFe).InutNFe, ANFe
  GerarIdentificacaoInutilizacao;
  if Assigned(FpNFe) then
  begin
    GerarCabecalho;
    FPosPrinter.Buffer.Add('</linha_simples>');
  end;
  GerarDadosInutilizacao(fpInutNFe);

  sJustificativa := ACBrStr(fpInutNFe.RetInutNFe.xJust);
  if sJustificativa <> '' then
  begin
    FPosPrinter.Buffer.Add('</fn></ce><n>JUSTIFICATIVA</n>');
    FPosPrinter.Buffer.Add('</fn></ae>' + sJustificativa);
    FPosPrinter.Buffer.Add('</linha_simples>');
  end;
  GerarRodape;
  FPosPrinter.Imprimir('', False, True, True, NumCopias);
end;

[Juliomar Marchetti]

mas qual erros?

https://www.projetoacbr.com.br/forum/topic/79002-remoção-de-units-do-acbrnfe-que-estão-em-desuso/

[Daniel Alves Barreto]

Incompatible types: 'pcnInutNFe.TinutNFe' and 'ACBrNFe.Inut.TinutNFe'

Incompatible types: 'pcnEnvEventoNFe.TEventoNFe' and 'ACBrNFe.EnvEvento.TEventoNFe'

Editado 1 Agosto, 2024 por Daniel Alves Barreto

[Juliomar Marchetti]

2 horas atrás, Daniel Alves Barreto disse:

Incompatible types: 'pcnInutNFe.TinutNFe' and 'ACBrNFe.Inut.TinutNFe'

Incompatible types: 'pcnEnvEventoNFe.TEventoNFe' and 'ACBrNFe.EnvEvento.TEventoNFe'

sim conforme informado acima foi mudado de lugar então tem que remover o pcn**

[Daniel Alves Barreto]

Era isso mesmo, funcionou! obrigado.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.