Ir para conteúdo
  • Cadastre-se

Junior Dias

Membros
  • Total de ítens

    9
  • Registro em

  • Última visita

Posts postados por Junior Dias

  1. Olá, segue arquivo ACBrNFSeXServicos.ini com alterações para NFSe da cidade e Arvoredo - SC. Recentemente a mesma migrou para IPM versão 1.01. Tenho clientes emitindo com as alterações em anexo.

    [4201653]
    Nome=Arvoredo
    UF=SC
    Provedor=IPM
    Versao=1.01
    ProRecepcionar=https://arvoredo.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao
    HomRecepcionar=https://arvoredo.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao

    ACBrNFSeXServicos.ini

  2. Boa tarde, preciso implementar a emissão da nota de serviço para um cliente de Itá, a pouco tempo atrás o provedor era Betha, atualmente IPM. Analisando o componente o mesmo ainda aponta para Betha, como faço para alterar isso? Tenho outra cidade que também mudou o provedor. Agradeço pela ajuda.

  3. 13 minutos atrás, Junior Dias disse:

    Boa tarde, estou fazendo uma homologação e a pessoa responsável pela validação solicitou as seguintes alterações:

    20.0 No da Versão do Layout do Arquivo 164 166 9(003) 

    Conteudo Atual:050

    Conteudo Esperado:107 

     

     07.1 Nº da Versão do Layout do Lote 14 16 9(003) 

    Conteudo Atual:030 

    Conteudo Esperado:067 

     

    Conforme manual em anexo, página 77:

    Versão ‘107’ Aplica-se para clientes com códigos de beneficiário composto por até 7 dígitos. Nesta versão, o preenchimento do campo Código do Beneficiário no arquivo deverá ser feito com alinhamento à direita. (que é o caso do meu cliente.)

     

    Analisando o arquivo ACBrBancoCaixa na linha 86:

    constructor TACBrCaixaEconomica.create(AOwner: TACBrBanco);
    begin
       inherited create(AOwner);
       fpDigito                := 0;
       fpNome                  := 'Caixa Economica Federal';
       fpNumero                := 104;
       fpTamanhoAgencia        := 5;
       fpTamanhoMaximoNossoNum := 15;
       fpTamanhoCarteira       := 2;
       fValorTotalDocs         := 0;
       fQtRegLote              := 0;
       fpLayoutVersaoArquivo := 50;
       fpLayoutVersaoLote    := 30;

     

    Vejam que o LayoutVersãoArquivo e LayoutVersão Lote está fixo.

     

    Outro detalhe, estou passando o código do convenio com 7 dígitos mas na remessa está adicionando somente 6.

     

    Como devo proceder? 

    Correção 
    Outro detalhe, estou passando o código do CEDENTE com 7 dígitos mas na remessa está adicionando somente 6.

  4. Boa tarde, estou fazendo uma homologação e a pessoa responsável pela validação solicitou as seguintes alterações:

    20.0 No da Versão do Layout do Arquivo 164 166 9(003) 

    Conteudo Atual:050

    Conteudo Esperado:107 

     

     07.1 Nº da Versão do Layout do Lote 14 16 9(003) 

    Conteudo Atual:030 

    Conteudo Esperado:067 

     

    Conforme manual em anexo, página 77:

    Versão ‘107’ Aplica-se para clientes com códigos de beneficiário composto por até 7 dígitos. Nesta versão, o preenchimento do campo Código do Beneficiário no arquivo deverá ser feito com alinhamento à direita. (que é o caso do meu cliente.)

     

    Analisando o arquivo ACBrBancoCaixa na linha 86:

    constructor TACBrCaixaEconomica.create(AOwner: TACBrBanco);
    begin
       inherited create(AOwner);
       fpDigito                := 0;
       fpNome                  := 'Caixa Economica Federal';
       fpNumero                := 104;
       fpTamanhoAgencia        := 5;
       fpTamanhoMaximoNossoNum := 15;
       fpTamanhoCarteira       := 2;
       fValorTotalDocs         := 0;
       fQtRegLote              := 0;
       fpLayoutVersaoArquivo := 50;
       fpLayoutVersaoLote    := 30;

     

    Vejam que o LayoutVersãoArquivo e LayoutVersão Lote está fixo.

     

    Outro detalhe, estou passando o código do convenio com 7 dígitos mas na remessa está adicionando somente 6.

     

    Como devo proceder? 

  5. 19 horas atrás, Juliomar Marchetti disse:

    Favor anexar o manual que foi seguido das alterações e também remessa gerada e boleto com as alterações.

    Bom dia @Juliomar Marchetti

    O problema está na leitura do arquivo de retorno CNAB240, por isso anexei aqui o arquivo que estou lendo,  o manual e o ACBrBancoCaixaSICOB.pas com as alterações. 
    É necessário a remessa e o PDF do boleto?

    Manual_de_Leiaute_de_Arquivo_Eletronico_CNAB_240.pdf RET202007070451470173.RET ACBrBancoCaixaSICOB.pas

    • Curtir 1
  6. Boa tarde.

    Sempre que atualizo o ACBr tenho que fazer alterações manuais no arquivo ACBrBancoCaixaSICOB.pas, peço ajuda aos colegas.

    Estou analisando o arquivo ACBrBancoCaixaSICOB.pas, e na procedure LerRetorno240 (linha1230), penso que a função CalcularTamMaximoNossoNumero (linha 1311) sempre vai retornar zero.

    CalcularTamMaximoNossoNumero(Carteira, ' ', ACBrBanco.ACBrBoleto.Cedente.Convenio);

    Na função CalcularTamMaximoNossoNumero a carteira está indo em branco, segundo o próprio arquivo do ACBr consta isso:

                // Carteira             := Copy(Linha,40,2); 
                // No SICOB não retorna o numero da carteira. Retorna o seguinte:
                // 1 = Cobrança Simples
                // 3 = Cobrança Caucionada
                // 4 = Cobrança Descontada

    O copy que pega os dados da carteira está comentado, mesmo que não estivesse o retorno seria 1, 3 ou 4.

    Na função CalcularTamMaximoNossoNumero o código é:

       if (wOperacao = 870) and (Carteira = 'SR') then
         Result := 15
       else if (Carteira = 'CR') then
         Result := 10;

    Na função CalcularTamMaximoNossoNumero o nosso numero está passando em branco  ( ' ' ).

     

    Segue código original:

          with Titulo do
          begin
             if Copy(Linha,14,1)= 'T' then //segmento T
              begin

                ACBrBanco.TamanhoMaximoNossoNum :=
                 CalcularTamMaximoNossoNumero(Carteira, ' ', ACBrBanco.ACBrBoleto.Cedente.Convenio);

                SeuNumero        := copy(Linha,59,11);
                NumeroDocumento  := copy(Linha,106,25);

                NossoNumero := Copy(Copy(Linha,47,10), // sem o DV
                                    Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum ,
                                    TamanhoMaximoNossoNum);

    Comentei a linha que calcula CalcularTamMaximoNossoNumero e deixei o tamanho 10. E assim leu certo o Nosso Número.

    Atenciosamente

    Junior Dias

    ACBrBancoCaixaSICOB.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.