Jump to content

Flavio Macedo

Membros
  • Posts

    37
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Flavio Macedo's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

3

Reputation

2

Community Answers

  1. O p´roblema na realidade é somente a linha 2 pois o primeiro já foi resolvido.
  2. Ola a todos. Estou implementando o CNAB para o Bradesco com a emissão do boleto pelo banco. No campo de nosso numero estou enviando 0 pois o banco que vai gerar o boleto porem esta sendo inserido um digito [3] que retorna um erro na validação. Alguem saberia o que eu estou esquecendo? Erro: Car Agên Conta-Produto 009 0284-0036366-9 ============================================================================================================================ Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural zerado. INFORMAR 5299557 Linha 2, colunas 071 a 081, Registro tipo 1, Nosso número zerado com dígito na coluna 82. Inválido. Arquivo: 01REMESSA01COBRANCA 00000000000005299557MAFER SUPRIMENTOS E FERRAMENTA237BRADESCO 160522 MX0000001 000001 1000000000000000000000090028400363669 0000000000000000000300000000002 2 021131-1/1 02062200000001040000000000001N160522000000000000000000000000000000000000000000000000000000000000000154289830000100DOREMUS ALIMENTOS LTDA RUA SETE DE SETEMBRO, 800 18271590 000002 9
  3. Usando o proprio exemplo tenho a validação na distribuição de documentos ficais retornando erro. como na imagem abaixo. O xml é válido e não sei onde esta o erro. A instalação do ACBr foi atualizada hoje e esta OK. Se alguem puder me dar uma ideia do que pode ser o erro (creio que alguma configuração) eu agradeço bastante. Obrigado
  4. A própria locaweb passou que o aplicativo esta com muitos saltos e precisa ser ajustado. Se alguém souber como fazer isso vai me ajudar muito. Já tentei contatar a locaweb e eles passam que não tem nenhuma limitação por lá. O erro só ocorre com o envio pelo acbrmail pois tento o mesmo envio pelo thunderbird e funciona certinho. O problema só ocorre com o acbrmail
  5. Quando tento enviar vários emails em sequencia +- 50 muitos retornam com o erro This is the mail system at host mcbain0006.email.locaweb.com.br. I'm sorry to have to inform you that your message could not be delivered to one or more recipients. It's attached below. For further assistance, please send mail to postmaster. If you do so, please include this problem report. You can delete your own text from the attached returned message. The mail system <[email protected]>: host 127.0.0.1[127.0.0.1] said: 554 5.4.0 Error: too many hops (in reply to end of DATA command) Se envio a mesma coisa pelo thunderbird eles passam sem problema. Alguem já passou por isso?
  6. Desculpem Chamada fechada era falta de setar o nome do arquivo. Quando se usa ISAPI o caminho fica diferente. Usei ACBrBoletoReport.NomeArquivo := UniServerModule.StartPath + 'arquivo'; e esta funcionando. Obrigado a todos.
  7. Boa tarde a todos. Utilizo delphi rio, fast e unigui e o problema é o seguinte Quando a aplicação esta rodando local o boleto é gerado sem problema algum porem quando ela sobe para rodas como dll (ISAPI) no momento em que executo o comando para acbrBoleto.gerarpdf o sistema simplesmente trava. Alguem poderia dar alguma dica do que pode ser? Obrigado a todos.
  8. 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.
  9. 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)
  10. 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);
  11. 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.
  12. Era isso mesmo meu amigo. Muito obrigado pela ajuda.
  13. Esta sim. Por sinal ele foi instalado a menos de 15 dias.
  14. Bom dia a todos. Estou com o seguinte problema: Quando executo o comando ACBrNFe1.ImprimirEventoPDF ele esta gerando a danfe e não a impressão do evento. O código esta assim: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.Configuracoes.WebServices.Visualizar := True; ACBrNFeDANFEFR1.PathPDF := '\DanfeSaida'; ACBrNFe1.Configuracoes.Arquivos.PathEvento := '\xmlSaida\eventos\'; ACBrNFe1.Configuracoes.Arquivos.PathInu := '\xmlSaida\NFe_inu\'; ACBrNFe1.DANFE.NomeDocumento := 'xxx123-canc.pdf'; ACBrNFe1.NotasFiscais.LoadFromString(Dm_Faturamento.Qry02L090NFE.AsString); // Esta variavel tem o xml da nota ACBrNFe1.EventoNFe.idLote := 1; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := 'Erro de Informacao'; end; ACBrNFe1.EnviarEvento(1); // Recupero o evento e o xml esta correto ACBrNFe1.EventoNFe.LerXMLFromString(Dm_Faturamento.Qry02L090evento.AsString); // Esta variavel tem o xml do evento e verifico que esta correto ACBrNFe1.ImprimirEventoPDF; Se alguem puder me ajudar com o que esta errado eu agradeço. PS: O ACBr esta atualizado.
  15. Bom dia a todos. Estou com o seguinte problema: Quando executo o comando ACBrNFe1.ImprimirEventoPDF ele esta gerando a danfe e não a impressão do evento. O código esta assim: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.Configuracoes.WebServices.Visualizar := True; ACBrNFeDANFEFR1.PathPDF := '\DanfeSaida'; ACBrNFe1.Configuracoes.Arquivos.PathEvento := '\xmlSaida\eventos\'; ACBrNFe1.Configuracoes.Arquivos.PathInu := '\xmlSaida\NFe_inu\'; ACBrNFe1.DANFE.NomeDocumento := 'xxx123-canc.pdf'; ACBrNFe1.NotasFiscais.LoadFromString(Dm_Faturamento.Qry02L090NFE.AsString); // Esta variavel tem o xml da nota ACBrNFe1.EventoNFe.idLote := 1; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := 'Erro de Informacao'; end; ACBrNFe1.EnviarEvento(1); // Recupero o evento e o xml esta correto ACBrNFe1.EventoNFe.LerXMLFromString(Dm_Faturamento.Qry02L090evento.AsString); // Esta variavel tem o xml do evento e verifico que esta correto ACBrNFe1.ImprimirEventoPDF; Se alguem puder me ajudar com o que esta errado eu agradeço. PS: O ACBr esta atualizado.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.