Testando impressão de Danfe de NFSe no delphi10, funciona na maquina do dev, mas nas demais não.

[SistemasMais]

to execultando essa rotina na maquina do dev e funciona quando vou fazer em outra maquina da (Access violation at address 00F842DB in module 'OmniNFSe.exe'. Read of address 00000000), pelo que vi tem haver com ele  ACBrNFSeXDANFSeFR1 := TACBrNFSeXDANFSeFR.Create(Self);

procedure TfrmACBrNFSe.exibirDanfe(xml_nfse,situacao:String);
var chNFSe, PathNFSe : String;
 XMLStream : TStringStream;
 bEmitirNfce:Boolean;
 ACBrNFSeXDANFSeFR1: TACBrNFSeXDANFSeFR;
begin

  if not Assigned(ACBrNFSeX1) then
    raise Exception.Create('ACBrNFSeX ainda não foi criado');

    ACBrNFSeXDANFSeFR1 := TACBrNFSeXDANFSeFR.Create(Self);

    ACBrNFSeXDANFSeFR1.AcbrNFSE := ACBrNFSeX1;

  case rgDanfe.ItemIndex of
    0:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSE.fr3';
    1:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeBrasiliaDF.fr3';
    2:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeIturama.fr3';
    3:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeNovo.fr3';
    4:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSEPadrao.fr3';
    5:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeProvedorEL_ProvedorNacional.fr3';
    6:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSEProvedorGinfes.fr3';
    7:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeProvedorISSDSF.fr3';
    8:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeSarandi.fr3';
    9:ACBrNFSeXDANFSeFR1.FastFile:=extractFilePath(Paramstr(0))+'\Danfe\DANFSeVitoriaES_2.fr3';
  end;

  EsperaComMsg(True,'Buscando nota');
  try
    XMLStream := TStringStream.Create(xml_nfse);
    XMLStream.Position  :=  0;
    frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Clear;
    frmACBrNFSe.ACBrNFSeX1.NotasFiscais.LoadFromStream(XMLStream);
  finally
    XMLStream.free;

  end;

    //    ACBrNFSeX1.NotasFiscais.Items[0].NFSe.OutrasInformacoes := 'Outras Informações 1;Outras Informações 2';
    frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Imprimir;

    frmACBrNFSe.ACBrNFSeX1.NotasFiscais.ImprimirPDF;

    if frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NomeArqRps <> '' then
      frmACBrNFSe.memoLog.Lines.Add('Arquivo Carregado de: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NomeArqRps)
    else
      frmACBrNFSe.memoLog.Lines.Add('Arquivo Carregado de: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NomeArq);

    frmACBrNFSe.memoLog.Lines.Add('Chave do DPS.........: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.InfID.ID);
    frmACBrNFSe.memoLog.Lines.Add('Nota Numero..........: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero);
    frmACBrNFSe.memoLog.Lines.Add('Código de Verificação: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.CodigoVerificacao);
    frmACBrNFSe.memoLog.Lines.Add('Data de Emissão......: ' + DateToStr(frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.DataEmissao));
    frmACBrNFSe.memoLog.Lines.Add('Prestador............: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Prestador.RazaoSocial);
    frmACBrNFSe.memoLog.Lines.Add('Tomador..............: ' + frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.RazaoSocial);

    if frmACBrNFSe.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.SituacaoNfse = ACBrNFSeXConversao.snCancelado then
       begin
           frmACBrNFSe.memoLog.Lines.Add('A Nota encontra-se Cancelada.');
           if situacao<>'Cancelado' then

       end;

    frmACBrNFSe.pgRespostas.ActivePageIndex := 0;

   EsperaComMsg(False,'fim. Buscando nota');
   ACBrNFSeXDANFSeFR1.Free;
end;
 

[Juliomar Marchetti]

as vezes falta o midas.dll ou declarar midaslib na uses do projeto

[Juliomar Marchetti]

Tópico fechado por falta de retorno do usuário