Ir para conteúdo
  • Cadastre-se

Flavio Macedo

Membros
  • Total de ítens

    45
  • Registro em

  • Última visita

Tudo que Flavio Macedo postou

  1. Bom dia a todos. Estou fazendo alguns testes com o exemplo do ACBrMDFe para pegar os documentos fiscais emitidos contra minha empresa (Distribuição Documentos Fiscais) porem sempre me retorna com nenhum documento localizado. Fiz todas as configurações no exemplo e não tenho ideia do que pode estar ocorrendo para não me retornar nota nenhuma. Alguem poderia me dar alguma ideia do que esta ocorrendo? Inicio TDistribuicaoDFe Versão Layout: 1.00 Ambiente: 1 Versão Aplicativo: RS20230314142017 Status Código: 137 Status Descrição: Nenhum documento localizado Resposta: 04/04/2023 11:51:20 Último NSU: 000000000000000 Máximo NSU: 000000000000000
  2. Não Juliomar. Tudo atualizado e não funciona nem mesmo com o exemplo. Apaguei tudo e reinstalei antes de recompilar.
  3. Bom dia Victor / Juliana. O pacote que atualizaram do banco bradesco esta com caracteres de controle dentro e não compila. Retirei os caracteres e agora esta certo. Estou anexando aqui o fonte corrigido. Se puderem atualizem. Obrigado e motima semana a todos. ACBrBancoBradesco.pas
  4. Resolvido alterando unit ACBrBancoBradesco o codigo de -> para: Se puderem implementar no codigo para o uso de todos eu agradeço. procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String; const ACBrTitulo: TACBrTitulo); var i: Integer; begin ANossoNumero := '0'; ADigVerificador := '0'; if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then begin ANossoNumero := '00000000000'; ADigVerificador := '0'; end else begin ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); end; end; ACBrBancoBradesco.pas
  5. Resolvido alterando unit ACBrBancoBradesco o codigo de -> para: Se puderem implementar no codigo para o uso de todos eu agradeço. procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String; const ACBrTitulo: TACBrTitulo); var i: Integer; begin ANossoNumero := '0'; ADigVerificador := '0'; if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then begin ANossoNumero := '00000000000'; ADigVerificador := '0'; end else begin ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); end; end;
  6. Ainda tenho problema com o nosso numero zerado. O digito do nosso numero insiste em sair 3 Alguem tem alguma solução (Bradesco) carteira (09)
  7. O p´roblema na realidade é somente a linha 2 pois o primeiro já foi resolvido.
  8. 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
  9. 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
  10. 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
  11. 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?
  12. 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.
  13. 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.
  14. 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.
  15. 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)
  16. 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);
  17. 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.
  18. Era isso mesmo meu amigo. Muito obrigado pela ajuda.
  19. Esta sim. Por sinal ele foi instalado a menos de 15 dias.
  20. 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.
  21. 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.
  22. Obrigado meu amigo. Vou estar verificando. ABração.
  23. Existe algum exemplo de como utilizar isto? É componente ACBR? Obrigado amigo
×
×
  • 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.