Jump to content

Flavio Macedo

Membros
  • Posts

    37
  • Joined

  • Last visited

Everything posted by Flavio Macedo

  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.
  16. Obrigado meu amigo. Vou estar verificando. ABração.
  17. Existe algum exemplo de como utilizar isto? É componente ACBR? Obrigado amigo
  18. Teria alguma forma atravez do componente baixar todos os arquivos XML de um certificado diretamente do SEFAZ?
  19. Boa tarde meus amigos. Pode fechar a chamada que consegui encontrar meu erro. Entre outros o problema é que na propriedade webservices.proxy estava com a configuração errada. Obrigado a todos que me ajudaram.
  20. Me Ajudem. Agora ele encontra o certificado porem ao assinar ele me retorna um access violation quando sai da função function TNotasFiscais.GetItem(Index: integer): NotaFiscal; begin Result := NotaFiscal(inherited Items[Index]); end; Pode me passar alguma ideia do que e?
  21. Legal. Tenho o arquivo do certificado [ 17775861_out.pfx ] Incluo o caminho dele no campo configuracoes.certificado.ArquivoPFX em dados pfx incluo o que? O qual o comando posso usar para carregar o certificado? Agradeço a sua atenção meu amigo. Legal. Tenho o arquivo do certificado [ 17775861_out.pfx ] Incluo o caminho dele no campo configuracoes.certificado.ArquivoPFX em dados pfx incluo o que? O qual o comando posso usar para carregar o certificado? Agradeço a sua atenção meu amigo.
  22. Quando utilizo a configurtação : ele me retorna o erro : EACBrDFeException with message '"CarregarCertificadodeNumeroSerie'" não suportado em TDFeOpenSSL Usando o WinCrypt o erro é: Cexception with message 'CryptExportKey -len' O que pode estar errado?
  23. Bom dia meus amigos. Alguém já passou por este problema? Tenho uma aplicação para o envio da NFe com componente ACBR porem estou fazendo uma segunda agora com unigui mais quando tento assinar a NF me retorna o erro: Erro HTTP: 200 URL: https://homologacao.nfe.fazenda.sp.gov.br/wd/nfeautorizacao4.asmx Erro: 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontrado. Se alguém puder dar alguma ideia eu agradeço. Minha configuração esta: ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryCapicom; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinINet; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXmlCapicom; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.Configuracoes.WebServices.SSLType := LT_TLSv1_2; ACBrNFe1.NotasFiscais.Items[0].GravarXML(); ACBrNFeDANFEFR1.NomeDocumento := ChangeFileExt(ACBrNFe1.NotasFiscais.Items[0].NomeArq, '.pdf'); ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Items[0].GravarXML(); MemoDados.Lines.LoadFromFile(ACBrNFe1.NotasFiscais.Items[0].NomeArq); LoadXML_consulta(MemoDados, UniHTMLFrame1); nFE_Consulta := ACBrNFe1.Configuracoes.Arquivos.PathNFe + (trim(Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44))) + '-NFe.xml'; vChave := (trim(Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44))); ACBrNFe1.NotasFiscais.GerarNFe; ACBrNFe1.Enviar(IntToStr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True); // Linha com erro
  24. Alguém conseguiu fazer a integração? Será que não existe nenhum componente que faça esta integração de forma mais facil?
  25. Alguem conseguiu alguma coisa. Estou com o mesmo problema. Atualizei os componentes ACBr e as consultas pelo CNPJ ainda não funcionam.
×
×
  • 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.