Jump to content

digao_go

Membros
  • Posts

    61
  • Joined

  • Last visited

Everything posted by digao_go

  1. Boa tarde, Estou tendo avisos de memory Leak ao fazer o seguinte. - Gero a lista de boletos - Faço o envio por e-mail - Limpo a lista de e-mail .... e ai da memory leak em TRetEnvio. Analisando o código AcbrBoleto, não achei hora alguma onde ele destroi o objeto No create fRetornoWeb := TRetEnvio.Create; ACBrBoleto.EnviarEmail(FEmails.Text, oempresa + ' - Boletos', vMensagemEmail, True, nil, nil);
  2. Boa tarde, Alguém passando por problemas na Sefaz-GO ?
  3. Deu certo!! Estava focando ali no tecontingencia. Muito obrigado pelo compartilhamento da solução!!
  4. Dados alterados ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia TpEmiss = teContingencia UF = RS, mesmo assim envia para BA, estou atualizando o componente para ver, estranho.
  5. Deu certo ? Alterei no sistema mas mesmo assim sem sucesso, mesmo com o Ini atualizado e modificação na Forma de Emissão! ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia
  6. Correto, mas ai no caso eu precisaria ficar testando (Se banco = 237 leia ValorRecebido, se 001 - Valor Pago) pois mudou as posições. Acredito que de toda forma por existir as posições vai precisar de ajustar como eu fiz pois temos 2 informações distintas no retorno. Primeiro houve uma mudança no nome do campo, ao ser transportado para a Unificada, permaneceu o ValorRecebido, que antes lia uma determina posição e agora passou a ler outras, isso gerou inconsistência no sistema todo. Se for mudar elas, teria que manter no mesmo padrão até todos os bancos serem transportados para a Unificada, assim eu sei que estou lendo ValorPago/ValorRecebido, e a posição é a mesma para todos os bancos. Agora da foram que foi feito, mudou posição Antes ValorRecebido := StrToFloatDef(copy(Linha, 93, 15), 0) / 100; Agora ValorRecebido := StrToFloatDef(copy(Linha, 78, 15), 0) / 100; Se manter igual, fica transparente essa modificação até tudo ser unificado. #Sugestão
  7. Bom dia, Antes do refactory temos a leitura dos 2 campos, seja Valor pago e valor liquido previsto no manual. Depois do refactory não temos. Segue em anexo a Unit, acredito que se eles existem, devemos manter e os nomes poderiam ser sugestivos conforme layout do banco (Vlr pago e Vlr Liquido). No componente é Vlr Pago e valor Recebido, gera uma ambiguidade. Segue foto do banco do brasil que ainda está sem ajustes pelo que notei. Outro detalhe ValorRecebido agora no refactory mudou a posição: Antes: ValorPago := StrToFloatDef(copy(Linha, 78, 15), 0) / 100; ValorRecebido := StrToFloatDef(copy(Linha, 93, 15), 0) / 100; Agora ValorRecebido := StrToFloatDef(copy(Linha, 78, 15), 0) / 100; Ou seja eu tenho uma rotina para leitura de Arquivos retornos unica, porém quando vem do BB preciso ler ValorPago para ter acesso a 78 com 15, quando vem de outro banco preciso ler ValorRecebido para ter acesso. ACBrBoleto.pas
  8. Bom dia, novamente parece que tivemos problemas, foi removido o ValorPago da unit Acbrboleto.pas. Lembrando que no manual temos 2 informações sempre, valor pago e valor Liquido.
  9. Bom dia pessoal, Estou notando que o Bradesco passou a mandar tudo 0,00 no valor Liquido a ser creditado na conta, causando assim uma inconsistência entre valor PAGO e Creditado, mais alguém está tendo este problema. Como vocês tem feito, utilizado apenas o Valor pago ?
  10. Bom dia, Teve algum retorno do e-mail enviado a eles ?
  11. Estou tendo o mesmo problema desde terça-feira, acredito que mudaram de 24h para 30 minutos como citado acima. Estou aguardando uma reposta da sefaz.
  12. Aguardando aprovação e upload para o repositório. Boletos homologados no banco com sucesso.
  13. Boa tarde, Segue novos ajustes para o Refactory. Falei no Bradesco para homologação e no manual onde diz carteira posição 58(Carteira) na verdade é a característica do Titulo, notei pois estava vindo um digito 1 e estou usando a carteira 09. Então foi alterado conforme instruções. Carteira := copy(Linha, 39, 2); case strtoint(copy(Linha, 58, 1)) of '1': CaracTitulo := tcSimples; '2': CaracTitulo := tcVinculada; '3': CaracTitulo := tcCaucionada; '4': CaracTitulo := tcDescontada; '5': CaracTitulo := tcVendor; end; ACBrBoleto.pas
  14. Boa tarde, Não estou na verdade tendo problemas, apenas indicando que siga o padrão de nomenclatura do manual, ao invés do campo ValorRecebido, usar o ValorPago, pois é o nome que volta no manual na posição 78. Assim quando unificar banco que tem valor pago e valor recebido não teremos novamente problemas como citados no Post que coloquei de referência. ValorPago := StrToFloatDef(copy(Linha, 78, 15), 0) / 100; ValorRecebido := StrToFloatDef(copy(Linha, 93, 15), 0) / 100;
  15. Boa tarde, 09/04/2020 -- ACBrBoleto, ACBrBancoBradesco, ACBrBancoUnicredRS, ACBrBancoUnicredSC, ACBrBancoUnicredES -- [*] Realização de Refactory nas classes dos Bancos, unificando funcionalidades criadas na classe principal ACBrBancoClass, notei que a função LerRetorno240, agora fica dentro da AcbrBoleto, vale lembrar que alguns bancos retorna o "Valor pago" e o "Valor Creditado", isso havia sido padronizado um tempo atrás, e depois modificou. Estou trabalhando no Bradesco neste momento e conforme manual existe o Valor Pago, e Valor Creditado, que antes vinha no campo valor Recebido. Sugiro que mesmo que alguns bancos não retorne o valor recebido, seja utilizado da forma que estava, pois acredito ser o 2 commit que altera e afeta. Sugiro que mantenha o padrão anterior pois no banco do Brasil volta dados na posição 93, diferente do Bradesco que por algum motivo não informa o valor creditado. ValorPago := StrToFloatDef(copy(Linha, 78, 15), 0) / 100; ValorRecebido := StrToFloatDef(copy(Linha, 93, 15), 0) / 100; Existe um outro Tópico também sobre o assunto que achei ACBrBoleto.pas
  16. Bom dia, Você tem razão por um descuido aqui estava desatualizado. Pode finalizar o Tópico.
  17. Boa tarde, Alguma previsão de subir esta atualização, estou homologando o sicred e estou com o mesmo problema, na posição '66' precisa ser o valor 2.
  18. Boa tarde, Isso mesmo muito obrigado pela força!
  19. Bom dia pessoal! Como acessar o método CalcularNomeArquivoRemessa do banco sicredi. Tentei fazer assim mas da access violation. TACBrBancoSicredi(ACBrBoleto).CalcularNomeArquivoRemessa ACBrBoleto é o componente e ele ta instanciado, é onde estou jogando todos os dados do boleto etc.
  20. Hoje após atualizar os fontes, começou a travar o Instalador. Fica não respondendo, já fiz de tudo e nada dele passar para frente! Ps: Sempre atualizava e nunca dava erro. Caminho: D:\Delphi\Componentes\Acbr\ Versão do delphi: Delphi 2010 (0) Plataforma: Win32(0) ================================================================================ Criando diretórios de bibliotecas... Removendo diretorios e pacotes antigos instalados... Adicionando library paths...
  21. Boa tarde pessoal, Descobri o que é, segue a solução. No Sicoob Net empresarial, quando você acessa, já existe ali um menu ARQUIVOS -> CNAB 240 -> Enviar, porém o menu superior selecionado é o MENU CONTA, o que induz ao erro. Esse arquivo é outro tipo de arquivo, acredito que pagamentos. Para cobrança tem que clicar no menu SERVIÇOS->TRANSFERÊNCIA DE ARQUIVOS->CNAB240->ENVIAR. Como não tinha familiaridade com o portal do banco, pois é o usuário que acessa, não percebi que existe essa diferença. Fica a dica!
  22. Bom dia José, Vou setar os valores e verificar se aceitam. Pode ser que cada agência tenha sua própria versão de layout. No validador informado acima, global da sicoob https://www.sicoob.com.br/validador-cnab240-cobranca , o arquivo foi validado com sucesso.
  23. Bom dia Antonio, Fiz o teste pelo validador e o arquivo foi validado com sucesso, tudo indica ser alguma configuração na conta bancária ou algo assim. Estou aguardando respostas do TI do sicoob para responder o Tópico e deixar esclarecido o que ocorre com o sicoob que passa a pedir essa nova versão 87.
×
×
  • 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.