ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);

[Flavio Macedo]

Após executar esta linha de envio da nota o sistema esta abrindo uma janela solicitando [Salvar Saida de Impressão como]

Já procurei bastante sem sucesso de como fazer com que esta janela não abra.

Se fecho a mesma sem salvar nada tudo esta funcionando.

Se alguem puder me dar uma orientação eu agradeço.

Estou usando neste projeto os componentes ACBRnfe, ACBEDandeFR, ACBrBoleto e ACBRboletoFR porem ainda não chegamos nas linhas do boleto.

Obrigado a todos.

[BigWings]

Qual o comando de envio?

Provavelmente está direcionando a impressão do DANFE para uma impressora virtual de PDF por exemplo.

[Flavio Macedo]

Estou fazendo desta forma a configuração.

  ACBrNFe1.NotasFiscais.Clear;
  ACBrBoleto.ListadeBoletos.Clear;

  

    ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe;
    ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;

    ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := MainForm._IniFile.ReadString('Certificado', Dm_Faturamento.Qry01L060PEDIDO_EMPRESA.AsString + '-Arq', '');
    ACBrNFe1.Configuracoes.Certificados.Senha := MainForm._IniFile.ReadString('Certificado', Dm_Faturamento.Qry01L060PEDIDO_EMPRESA.AsString + '-Senha', '');
    ACBrNFe1.SSL.CarregarCertificado;

     ACBrNFe1.Configuracoes.Arquivos.SalvarApenasNFeProcessadas := True;

    ACBrNFe1.Configuracoes.WebServices.ambiente := taHomologacao;
    ACBrNFe1.Configuracoes.WebServices.Visualizar := False;
    ACBrNFe1.Configuracoes.WebServices.Salvar := True; // Geral.Salvar
    ACBrNFe1.Configuracoes.WebServices.UF := Dm_Faturamento.Qry01L060EMPRESA_UF.AsString;
    ACBrNFe1.MAIL.Host := MainForm._IniFile.ReadString('Email', 'host_smtp', '');
    ACBrNFe1.MAIL.Port := MainForm._IniFile.ReadString('Email', 'port_host', '');
    ACBrNFe1.MAIL.Username := MainForm._IniFile.ReadString('Email', 'user_login', '');
    ACBrNFe1.MAIL.Password := MainForm._IniFile.ReadString('Email', 'passwd_login', '');
 

  ACBrNFe1.Configuracoes.Arquivos.SepararPorAno := True;
  ACBrNFe1.Configuracoes.Arquivos.SepararPorMes := True;
  ACBrNFeDANFE.PathPDF := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\DanfeSaida';
  ACBrNFe1.Configuracoes.Arquivos.PathNFe := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\xmlSaida\NFe_xml\';
  ACBrNFe1.Configuracoes.Arquivos.PathEvento := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\xmlSaida\eventos\';
  ACBrNFe1.Configuracoes.Arquivos.PathInu := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\xmlSaida\NFe_inu\';
  

  ACBrNFe1.NotasFiscais.Assinar;

  ACBrNFe1.NotasFiscais.Items[0].GravarXML();
  Xml := FormatDateTime('yyyy', now) + '\' + FormatDateTime('mm', now) + '\' + Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44) + '-nfe.xml';
 

  ACBrNFe1.NotasFiscais.GerarNFe;
   ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);
 

[BigWings]

Verificou a questão da impressora virtual de PDF?

Nesse trecho de código não tem nada quanto as configurações do DANFE, e como você está informando True no segundo parâmetro do método Enviar, é disparada a impressão.

Veja as configurações MostraSetup, MostraPreview, Impressora do componente DANFE, e qual a impressora padrão do Windows.

[Flavio Macedo]

Minha impressora padrão do Windows é uma PDF porem queria que não fosse impresso de forma automática pois eu no final faço uma impressão e envio ela para um formulário unigui (web)

[BigWings]

15 minutos atrás, Flavio Macedo disse:

Minha impressora padrão do Windows é uma PDF porem queria que não fosse impresso de forma automática pois eu no final faço uma impressão e envio ela para um formulário unigui (web)

Acho que já te dei a resposta então:

28 minutos atrás, BigWings disse:

Nesse trecho de código não tem nada quanto as configurações do DANFE, e como você está informando True no segundo parâmetro do método Enviar, é disparada a impressão.

 

[Flavio Macedo]

Realmente retirando o true passou a não imprimir porem em várias notas ele fica travado no evento de enviar e não passa.

Um muito obrigado pela primeira explicação porem tem mais alguma dica para este travamento.

obrigado meu amigo.