Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1036 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

image.thumb.png.7853edb4923a6eec5066bd8b3150a864.png

Link para o comentário
Compartilhar em outros sites

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);
 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
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.

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1036 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.