Cobrança Caixa - Sicob

[Valdir Dill]

Depois que atualizei os fontes, notei foram feitas alterações na formatação do nosso número da cobrança é do tipo SICOB da CEF. E isso está gerando problemas nos boletos.

Na function TACBrCaixaEconomicaSICOB.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String, que inicia a partir da linha 357 da ACBrBancoCaixaSICOB.pas (abaixo)

Nessa função está formatando as variáveis wTamNossoNum e wOperacao estão recebendo valor conforme o valor do código convênio. Até antes da atualização, era o código do cedente que era utilizado. 

function TACBrCaixaEconomicaSICOB.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String;
var
  ANossoNumero: String;
  wTamNossoNum: Integer;
  wOperacao: Integer;
begin
   with ACBrTitulo do
   begin
     ANossoNumero := OnlyNumber(NossoNumero);
     wTamNossoNum := CalcularTamMaximoNossoNumero(Carteira, ANossoNumero, ACBrBoleto.Cedente.Convenio );  Não deveria ser ACBrBoleto.Cedente.CodigoCedente 
     wOperacao    := StrToIntDef(Copy(ACBrBoleto.Cedente.Convenio, 1 , 3 ), 0);

     if (Carteira = 'SR') then
      begin
       if (wOperacao =  870) then
         ANossoNumero:= '8'+ PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-13,14),14)
       else
         ANossoNumero:= '82'+ PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-7,8),8);
      end
     else if (Carteira = 'CS') then
      ANossoNumero := PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-9,10),10,'0')
     else
       ANossoNumero:= '9' + PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-8,9),9,'0');
   end;
   Result := ANossoNumero;
end;

Com as alterações, o formato do nosso npumero ficou assim (sem os espaços): 82 000 000 000-DV. Antes era 800 000 000 000 000 - DV

Agora fiquei na dúvda se essas mudanças estão mesmo corretas.

Obrigado!

[Juliana Tamizou]

Bom dia.

Como você informa a propriedade Convenio?

Att.

[Valdir Dill]

Boa tarde Juliana,

Deixo em branco. Só alimento o cedente.codigoCedente, pois esse convênio 870, até onde eu sei, não tem código de convênio, apenas codigoCedente.

Estou fazendo algo errado?

Obrigado!

[Juliana Tamizou]

Boa tarde.

Faça o teste informando valor do CodigoCedente na propriedade Convenio.

Att.

[Valdir Dill]

Boa tarde,

Fiz o teste, mas aí fica pior. Não formata do campo Agencia/Código Beneficiário. O código do cedente (infromado no campo convenio) nem aparece na linha digitável....

Obrigado

[Juliana Tamizou]

Boa tarde.

Por favor forneça os dados que está passando ao componente para que possamos realizar testes.

Att.

[Valdir Dill]

Boa noite Juliana,

 Banco.TipoCobranca := cobCaixaSicob;
 ListadeBoletos.Clear; //limpa boletos emitidos numa proc anterior.

 Cedente.TipoCarteira := tctSimples;
 Cedente.Conta := 162;
 Cedente.ContaDigito := 9;
 Cedente.Agencia := 2538;
 Cedente.CodigoCedente := 870 000 000 09 (os espaço são só para facilitar a leitura)
 
 Convenio := '';

 LocalPagamento := Lotérica;
 Vencimento := 27/07/2016;
 DataDocumento := 01/04/2016;

 EspecieDoc := 'DM';
 Aceite := atNao;
 DataProcessamento := Now;
 TotalParcelas := 1;
 Carteira := 'SR';
 NossoNumero := 000 000 000 18792
 ValorDocumento := 2104,00;

[Juliana Tamizou]

Boa tarde.

Realmente esta alteração acabou afetando a montagem do Código do Cedente, porém enquanto a alteração não é disponibilizada você informar o CodigoCedente e Convenio com as mesmas informações.

Att.

[Valdir Dill]

Boa tarde,

Ok. Ficamos no aguardo então.

Obrigado!

[Valdir Dill]

Em 09/08/2016 at 16:07, Juliana Tamizou disse:

Boa tarde.

Realmente esta alteração acabou afetando a montagem do Código do Cedente, porém enquanto a alteração não é disponibilizada você informar o CodigoCedente e Convenio com as mesmas informações.

Att.

Baixei os fontes hoje e ainda continua da mesma forma. Pelo que entendi, seria corrigido ou não?

Obrigado!

[Juliana Tamizou]

Boa tarde.

Ainda não foi alterado.

Att.

[ws_junior]

Realizei modificações para homologação na Caixa, acho que é pertinente neste tópico, e estou enviando os arquivos.

Trata-se de Local de Pagamento e Mensagem do rodapé da caixa, retirando "reclamações não solucionadas e denuncias".

Estas modificações foram solicitadas pela Caixa.

ACBrBancoCaixa.pas

ACBrBancoCaixaSICOB.pas

ACBrBoleto.pas

[michael_castilho]

olha a mensagem que da ao enviar o arquivo remessa do sicoob:

A linha 1 posição 33 até 52, campo Código do Convênio, possui valor inválido. O esperado é um numérico.
A linha 3 do arquivo tem o tamanho inválido.
Erro ao criar o registro: SegmentoP
 Nº Linha: 3

 

alguem tem alguma solução?

[Juliana Tamizou]

Boa tarde.

Em 30/08/2016 at 12:47, michael_castilho disse:

A linha 1 posição 33 até 52, campo Código do Convênio, possui valor inválido. O esperado é um numérico.

Qual valor consta em seu arquivo?

 

Em 30/08/2016 at 12:47, michael_castilho disse:

Erro ao criar o registro: SegmentoP

Qual é o erro?

Att.

[Guest aoliveira.junior]

Em 25/08/2016 at 16:54, ws_junior disse:

Realizei modificações para homologação na Caixa, acho que é pertinente neste tópico, e estou enviando os arquivos.

Trata-se de Local de Pagamento e Mensagem do rodapé da caixa, retirando "reclamações não solucionadas e denuncias".

Estas modificações foram solicitadas pela Caixa.

ACBrBancoCaixa.pas

ACBrBancoCaixaSICOB.pas

ACBrBoleto.pas

Boa tarde!

Correção disponível no SVN, foi alterado:

Mensagem padrão enviada aos bancos.