Ir para conteúdo
  • Cadastre-se

João Paulo F. Bellucci

Membros
  • Total de ítens

    110
  • Registro em

  • Última visita

Posts postados por João Paulo F. Bellucci

  1. Em ‎03‎/‎04‎/‎2017 at 12:03, valterpatrick disse:

    Todos os bancos seguem o padrão estabelecido pela Febraban, o problema é que cada um segue um layout diferente: versão 4, 5 ou a atual que é a versão 6.

    Estou desenvolvendo para um cliente que utiliza a versão 4.

    Bom dia! Tudo blz? 

    Estou estudando para inicializar a implementação de cobrança em débito automático.

    Qual banco que seu cliente usa?

    Possuímos o banco Bradesco aqui para cobrança, existe algum quantidade mínima de cobrança para essa modalidade?

  2. - CNAB400 motivos.
    - O Sicoob e bancos cooperativados passaram a validar os campos:
      Agencia, AgenciaDigito, Conta, ContaDigito.
    O Field Cedente.Conta vem preenchido com a conta e zeros a esquerda com 12 digitos ex: 000000001234
    Ao gerar o arquivo de remessa justamente na Linha 349:
    PadLeft( OnlyNumber(Cedente.Conta), 8, '0')
    o sistema gera para a interface a seguinte informação 00000000 regeitando a conta real que é 1234
    Como solução foi adotado o corte correto:
    PadLeft( RightStr(OnlyNumber(Cedente.Conta),8), 8, '0') +  // Conta Corrente
    Retornando:
    00001234
    Obs: Este problema não ocorre no CNAB240 pois lá são 12 digitos para conta.
     
    Segue o arquivo corrigido em anexo.

    ACBrBancoBancoob.pas

  3. Boa tarde, @acgubamg

    Consegui resolver o problema.

    Tive que fazer somente uma autenticação com senha e depois não faço mais.

    No inicio do programa faço uma assinatura fake com senha para acessar o certificado, depois retiro a senha do componente e funciona perfeitamente.

    Da impressão que a rotina ao tentar assinar pela segunda vez com o outro componente se estiver com senha fica com crash.

    Obrigado pela ajuda.

  4. Estou tendo o mesmo problema "Falha Recebendo os Dados Erro:12175" o que percebi é que possuo dois componentes "ACbrNFe" um para emissão da NFe e outro para manifesto que fica em uma thread quando um funciona o outro não funciona.

    Da impressão que o componente que entra primeiro tem a prioridade para usar o certificado o outro fica com erro.

    Na versão anterior funcionava perfeitamente quando era somente a "CAPICOM".

    Alguém passando pelo mesmo problema?

  5. Bom dia!

    Para funcionar deve ser mantida a regra anterior que era essa:

                      Copy(Cedente.Conta,Length(Cedente.Conta),1)      +  // 384 a 384
                      Cedente.ContaDigito + Space(6)                              +  // 385 a 391

     

    No fonte atual desprezaram a regra que mencionei acima.

    Segue o fonte atual:

                      Cedente.ContaDigito + Space(6)                              +  // 384 a 391

    • Curtir 2
  6. Boa Tarde, Atualizei meu ACBr boletos e agora o Santander está rejeitando o arquivo a lógica foi implementada errada voltei par a versão anterior e funcionou corretamente.

    Segue o trecho do manual do CNAB 400:

    • Complemento Conta Cobrança (posições 384-385): preencher com a última posição da conta cobrança e com o dígito (CCCCCCCCC-D)

    Essa regra foi quebrada nessa última alteração.

    Qualquer dúvida estou a disposição.

  7. A rotina de retorno do Sicredi não está prevendo a situação do retorno 'C7' que é 'Título já baixado'

    Para resolver o problema coloquei essa situação no código.

    Segue parte do código modificada e o arquivo.

    toRetornoLiquidado:   //06
              case AnsiIndexStr(CodMotivo, ['A8', 'H5', 'H6', 'H8', 'X1', 'X2', 'X3', 'X4', 'X5',
                                            'X0', 'X6', 'X7', 'X8', 'X9', 'XA', 'XB', 'C7']) of
                0: Result:= 'A8-Recebimento da liquidação fora da rede Sicredi - via compensação eletrônica';
                1: Result:= 'H5-Recebimento de liquidação fora da rede Sicredi - VLB Inferior - Via compensação';
                2: Result:= 'H6-Recebimento de liquidação fora da rede Sicredi - VLB Superior - Via compensação';
                3: Result:= 'H8-Recebimento de liquidação fora da rede Sicredi - Contingência Via Compe';
                4: Result:= 'X1-Regularização centralizadora - Rede Sicredi';
                5: Result:= 'X2-Regularização centralizadora - Compensação';
                6: Result:= 'X3-Regularização centralizadora - Banco correspondente';
                7: Result:= 'X4-Regularização centralizadora - VLB Inferior - via Compensação';
                8: Result:= 'X5-Regularização centralizadora - VLB Superior - via Compensação';
                9: Result:= 'X0-Pago com cheque';
                10: Result:= 'X6-Pago com cheque - bloqueado 24 horas';
                11: Result:= 'X7-Pago com cheque - bloqueado 48 horas';
                12: Result:= 'X8-Pago com cheque - bloqueado 72 horas';
                13: Result:= 'X9-Pago com cheque - bloqueado 96 horas';
                14: Result:= 'XA-Pago com cheque - bloqueado 120 horas';
                15: Result:= 'XB-Pago com cheque - bloqueado 144 horas';
                16: Result:= 'C7-Título já baixado';   <---- Situação que não estava sendo tratada e gerava erro
              else
                case StrToInt(CodMotivo) of
                   00: Result:= '00-Ocorrência aceita, liquidação normal';
                else
                   Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos';
                end;
              end;

    ACBrBancoSicredi.pas

  8. Também aconteceu comigo para resolver tive que colocar essa solução.

    De acordo com a documentação do Sicredi esses campos deveriam vir 00 se for sem ocorrência mais não é isso mais que está acontecendo;

    "319 a 328 010 Motivos da ocorrência
    XXXXXXXXXX Cada dois dígitos “XX” correspondem a um motivo. Se “00”, não há motivo de ocorrência; Confira tabela no item 6.3.
    329 "

  9. Oi amigos,

    Estou seguindo esse post e hoje atualizei os fontes pra ver como os arquivos estão sendo salvos.

    Eu não me importo em salvar arquivos com ou sem validade jurídica.

    O que me interessa é que na pasta mensal, já que sempre utilizei esse recurso, salve os arquivos com validade jurídica.

    Porém isso não está acontecendo. Eu tenho uma pasta chamada ArqCte onde as pastas mensais são criadas dentro dela.

    O arquivo com validade jurídica está sendo salvo na pasta ArqCte e na pasta mensal está sendo salvo um arquivo sem a informação de autorização do cte.

    Já fiz todas as tentativas e não salva. Segue abaixo o fonte. 

      DM1.ACBrCTe1.Configuracoes.Arquivos.Salvar := True;
      DM1.ACBrCTe1.Configuracoes.Geral.Salvar := True;
      DM1.ACBrCTe1.Configuracoes.WebServices.Salvar := True;
      DM1.ACBrCTe1.Configuracoes.Arquivos.EmissaoPathCTe := True;
      DM1.ACBrCTe1.Configuracoes.Arquivos.SepararPorMes := True;
      DM1.ACBrCTe1.Configuracoes.Arquivos.AdicionarLiteral := True;
      DM1.ACBrCTe1.Configuracoes.Arquivos.PathSalvar := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value);
      DM1.ACBrCTe1.Configuracoes.Arquivos.PathCTe := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value);
      DM1.ACBrCTe1.Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value);
      DM1.ACBrCTe1.Configuracoes.Arquivos.PathEvento := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value);
      DM1.ACBrCTe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + '\SchemasCte';

     

    O que devo fazer mais do que isso?

    Estou com este mesmo problema só que meu caso é para NF-e na pasta mensal não está gravando a autorização de uso. 

  10. Boa tarde, acabei de baixar o fontes do ACBr e está dando erro na instalação.

    Compiling package D:\Fontes\Componentes\ACBr\Pacotes\Delphi\ACBrSAT\Extrato\Fortes\ACBr_SATExtratoRL.dpk
    Embarcadero Delphi for Win32 compiler version 26.0
    Copyright (c) 1983,2013 Embarcadero Technologies, Inc.
    ACBr_SATExtratoRL.dpk(34) Fatal: E2202 Required package 'frce' not found

  11. Acabei de baixar os fontes e esta dando erro na instalação.

    Compiling package D:\Fontes\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFCe\EscPos\ACBr_NFeDanfeESCPOS.dpk
    Embarcadero Delphi for Win32 compiler version 26.0
    Copyright (c) 1983,2013 Embarcadero Technologies, Inc.
    D:\Fontes\Componentes\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFCe\EscPos\ACBrNFeDANFeESCPOS.pas(60) Fatal: E2225 Never-build package 'ACBr_NFe' must be recompiled
    Compilation failure

  12. Acabei de baixar os fontes e esta dando erro ao compilar o pacote do SPED.

    D:\Fontes\Componentes\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDECF\ACBrECFBloco_K.pas(91) Error: E2004 Identifier redeclared: 'IND_VL_SLD_FIN'
    ACBr_SPED.dpk(113) Fatal: F2063 Could not compile used unit 'ACBrECFBloco_K.pas'

×
×
  • 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.