Erro ao imprimir Danfe

[rodrigod6]

Porque temos uma unit com as rotinas da NFe, para acesso de vários sistemas.

Então criamos tudo em tempo de execução.

Alguma desvantagem em fazer desse jeito?

Este problema em questão ocorre somente em um de nossos clientes e esporadicamente.

 

Obrigado,

[Régys Silveira]

Não, nenhuma desvantagem, é somente para entender o cenário, mas você deve ter controle total da criação e destruição do componente, lembre também que após criar você precisa configurar ao menos o básico, chegou a checar isso?

[rodrigod6]

Sim, temos um rotina que faz toda a configuração do componente:

Proxy (   ACBrNFe1.Configuracoes.WebServices.Proxy*** )

Dados do Rodape ( ACBrNFeDANFERaveCB1.*** )

Arquivo do rave

Tipo da Danfe, Impressão da Hora, Num de Copias, Logo entre outr param;

FormaDeEmissao : ACBrNFe1.Configuracoes.Geral.***

Configurações do WebService (   ACBrNFe1.Configuracoes.WebServices.** )

Configuração do Certificado ( ACBrNFe1.Configuracoes.Certificados.* )

...

Temos a rotina funcionando a bastante tempo, acho que esta bem estável.

...

S'o n~ao consegui entender como FNFe vem nil, esporadicamente quando vai imprimir????

 

Estou pensando em fazer um tratamento assim no ACBrNFeDANFERaveDM.pas:

procedure TdmACBrNFeRave.CustomDadosProdutosCXNOpen(
  Connection: TRvCustomConnection);
begin
  if Assigned(FNFe) then
    Connection.DataRows := FNFe.Det.Count
  else
    raise EACBrNFeException.Create('NFe não carregada corretamente!');
end;

Mas isso s[o vai gerar outro erro.

Então talvez eu coloque algo assim antes de imprimir:

      if while not Assigned(ACBrNFe1.NotasFiscais) do
        begin
          ACBrNFe1.NotasFiscais.Clear;
          ACBrNFe1.NotasFiscais.LoadFromFile(cFileName);
        end;
      ACBrNFe1.NotasFiscais.Imprimir;

Bom, qualquer sugestão é bem vinda.

Obrigado pela atenção.

[rodrigod6]

E quanto a criação e destruição acho que estou fazendo corretamente:

  ACBrNFe1 := TACBrNFe.Create(Application);
  ACBrNFeDANFERave1 := TACBrNFeDANFERave.Create(Application);
  try
//Carrego as configs
//Mando imprimir
  finally
    begin
      ACBrNFe1.Free;
      ACBrNFeDANFERave1.Free;
    end;
  end;

[Régys Silveira]

Parece estar correto sim,

 

Você esta ligando os componente corretamente após a criação e configuração?

[rodrigod6]

Acho que sim :

ACBrNFe1.DANFE := ACBrNFeDANFERave1;
ACBrNFeDANFERave1.ACBRNfe := ACBrNFe1;