ola, encontrei um erro dentro do arquivo ACBrNFeDANFEFRDM.pas
procedure TdmACBrNFeFR.frxReportBeforePrint(Sender: TfrxReportComponent);
var
qrcode: String;
begin
qrCode := '';
if Assigned(NFe) then
begin
if (NFe.Ide.modelo = 65) then
begin
if cdsParametros.FieldByName('Imagem').AsString = '' then
begin
frxReport.FindObject('ReportTitle1').Visible := False; esses objetos nao existem dentro do formulario EVENTOS.fr3
frxReport.FindObject('ImgLogo').Visible := False;
end
else
begin
frxReport.FindObject('ReportTitle1').Visible := True;
frxReport.FindObject('ImgLogo').Visible := True;
end;
qrcode := NotaUtil.GetURLQRCode( NFe.ide.cUF,
NFe.ide.tpAmb,
OnlyNumber(NFe.InfNFe.ID),
DFeUtil.SeSenao(NFe.Dest.idEstrangeiro <> '',NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF),
NFe.ide.dEmi,
NFe.Total.ICMSTot.vNF,
NFe.Total.ICMSTot.vICMS,
NFe.signature.DigestValue,
TACBrNFe( FDANFEClassOwner.ACBrNFe ).Configuracoes.Geral.IdToken,
TACBrNFe( FDANFEClassOwner.ACBrNFe ).Configuracoes.Geral.Token );
PintarQRCode( qrcode, TfrxPictureView(frxReport.FindObject('ImgQrCode')).Picture );
end;
end;
end;