Valor inválido código juros/mora ACBrBancoCaixaSICOB

[maycoll]

Olá pessoal,

Estou tendo um problema com a geração do arquivo remessa para o banco CAIXA ECONOMICA pelo CNAB240 layout SICOB

O erro que estou tendo do validador é: "Codigos de erro: 27.3P Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto."

Analizando o post do amigo abaixo e verificando os fontes atualizados, percebi que o problema já foi resolvido no arquivo ACBrBancoCaixa.pas, porém o problema ainda persiste no arquivo ACBrBancoCaixaSICOB.pas, onde o layout permite apenas os numeros: 1,2,3,4.

 

Estou alterando meu fonte na linha 784 da função TACBrCaixaEconomicaSICOB.GerarRegistroTransacao240 para:

//ANTERIOR
//IfThen(ValorMoraJuros > 0, '1', '0')                       + // 118 a 118 - Código de juros de mora: Valor por dia

//ALTERADO
IfThen(ValorMoraJuros > 0, '1', '3')                       + // 118 a 118 - Código de juros de mora: Valor por dia

Gostaria de saber se este procedimento esta correto.

Caso esta seja a solução gostaria de saber se pode ser incluido nas futuras correções do acbr.

Obrigado.

[Juliana Tamizou]

Boa noite.

A mensagem de erro que você está tendo não tem relação com a alteração sugerida...você realizou um novo teste após realizar essa mudança?

Att.

[maycoll]

Ola Juliana,

Na verdade a mensagem de erro que recebi do validador foi essa:

"Linha 3 SEGMENTO P. Codigos de erro: 27.3P Este Título tem que estar marcado para protestar ou devolver. 31.3P"

Apos a alteração do fonte como fiz acima, o erro retornado foi esse:

"Linha 3 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. 31.3P"

Ou seja, o erro 27.3P que é relativo ao "Codigo de Juros Mora" não apareceu mais.

Estou anexando o arquivo de remessa caro queiram analisar.

Obrigado pela atenção.

000001.rem

[maycoll]

Pessoal, ainda estou com o problema com a remessa da caixa....

A mensagem do validador é esta:

"Linha 3 SEGMENTO P. Codigos de erro: Este Título tem que estar marcado para protestar ou devolver. 31.3P"

Sendo que, segundo o manual, 31.3P é referente à Data de Desconto.

Alguém tem alguma sugestão?

[aocampioni]

Maycoll,

Boa noite. Segue um exemplo bem simples, veja se está faltando algo. Gero remessas caixa e santander e está tudo OK.

            TituloACBr := ACBrBoleto.CriarTituloNaLista;

            // dias de protestos e carteira de envio
            TituloACBr.CarteiraEnvio    := Iif(sBancoEmite='S', tceBanco, tceCedente);
            TituloACBr.SeuNumero        := '0001';

            if Trim(sAceite) = 'SIM' then
               TituloACBr.Aceite := atSim
            else
               TituloACBr.Aceite := atNao;

            TituloACBr.NumeroDocumento  := '0001'; 
            TituloACBr.Sacado.Avalista       := '';
            TituloACBr.Sacado.NomeSacado     := 'SACADO DE TESTE';
            TituloACBr.Sacado.CNPJCPF        := '00000000000'; // CPF
            TituloACBr.Sacado.Pessoa         := pFisica;

            TituloACBr.Sacado.Logradouro     := sEndereco;
            TituloACBr.Sacado.Numero         := '';
            TituloACBr.Sacado.Complemento    := '';
            TituloACBr.Sacado.Bairro         := sBairro;
            TituloACBr.Sacado.Cidade         := sCidade;
            TituloACBr.Sacado.UF             := sEstado;
            TituloACBr.Sacado.CEP            := sCep;
            TituloACBr.Sacado.Email          := sEmail;
            TituloACBr.Sacado.Fone           := sTelefone;

            TituloACBr.Vencimento            := StrToDate('20/08/2015');
            TituloACBr.DataDocumento         := StrToDate('20/08/2015');
            TituloACBr.DataProcessamento     := StrToDate('20/08/2015');
            TituloACBr.ValorDocumento        := 1.00;

            cInstru1 := '';
            cInstru2 := '';

            TituloACBr.CodigoMora            := '1';
            TituloACBr.ValorMoraJuros        := 0;
            TituloACBr.DataMoraJuros         := 0;

            if njuromensal>0 then
                TituloACBr.PercentualMulta   := njuromensal;

            if nMoraDiaria>0 then
            begin
               nValorMora:=(TituloACBr.ValorDocumento*(nMoraDiaria/30))/100;
               if(nValorMora >= 0.01) then
               begin
                   TituloACBr.ValorMoraJuros := nValorMora;
                   TituloACBr.DataMoraJuros  := TituloACBr.Vencimento+1;
               end;
            end;

            TituloACBr.TipoDiasProtesto := diCorridos;
            if(iDiasProtesto = 0) then
                TituloACBr.DataProtesto      := 0
            else
                TituloACBr.DataProtesto      := StrToDate(FormatDateTime('dd/mm/yyyy', TituloACBr.Vencimento+iDiasProtesto) );

            TituloACBr.EspecieDoc      := sEspecieDocto;
            TituloACBr.OcorrenciaOriginal.Tipo := toRemessaRegistrar;

            TituloACBr.Carteira              := sCarteira;
            TituloACBr.LocalPagamento        := sLocalPagto;

            // nosso numero
            TituloACBr.NossoNumero := '0000000000000001'
            TituloACBr.Instrucao1  := sCodInstr1;
            TituloACBr.Instrucao2  := sCodInstr2;
            TituloACBr.Parcela     := 1;
            
            ACBrBoleto.GerarRemessa(15); // decima quinta remessa
            

Verifique e vai postando as dúvidas aí,

Até mais,