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;