Trunk2 AcbrBoleto CEF SICOB REMESSA

[Pedro_Manoel]

function TACBrCaixaEconomicaSICOB.GerarRegistroHeader240(NumeroRemessa : Integer): String;
var
  ATipoInscricao : String;
  ACodCedenteDV, aCodCedente, ACodCedenteDVAg: String;
begin
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      case TipoInscricao of
        pFisica  : ATipoInscricao := '1';
        pJuridica: ATipoInscricao := '2';
      end;

      ACodCedenteDVAg := CalcularDVCedente(ACBrBanco.ACBrBoleto.ListadeBoletos[0],True);
      ACodCedenteDV   := CalcularDVCedente(ACBrBanco.ACBrBoleto.ListadeBoletos[0]);
      //ACodConvenio    := CodigoCedente + ACodCedenteDVAg;

      aCodCedente:= RightStr(CodigoCedente,8);

      { GERAR REGISTRO-HEADER DO ARQUIVO }
      Result:= IntToStrZero(ACBrBanco.Numero, 3)                         + //   1 a   3 - Código do banco
               '0000'                                                    + //   4 a   7 - Lote de serviço
               '0'                                                       + //   8 a   8 - Tipo de registro - Registro header de arquivo
               space(9)                                                  + //   9 a  17 - Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                                            + //  18 a  18 - Tipo de inscrição do cedente
               PadRight(OnlyNumber(CNPJCPF), 14, '0')                        + //  19 a  32 - Número de inscrição do cedente
               PadLeft(OnlyNumber(RightStr(Agencia, 4)), 4 , '0') +           //  33 a  48 - Código do convênio no banco - Cedente
               PadRight(CodigoCedente, 11, '0')+PadLeft(ACodCedenteDVAg,1,'0')  + //  33 a  48 - Código do convênio no banco - Cedente

 

Estas duas ultimas linhas q passa a agencia e cedente esta duplicando a agencia no arquivo de remessa pois no campo cedente já consta a informação da agencia+cedente com isso da erro na importação, deixar passando somente :

PadLeft(CodigoCedente, 15, '0')+PadLeft(ACodCedenteDVAg,1,'0')  + //  33 a  48 - Código do convênio no banco - Cedente

 

Editado 9 Setembro, 2015 por Pedro_Manoel

[Juliana Tamizou]

Boa noite.

Favor explicar melhor qual é o problema.

Att.

[Pedro_Manoel]

Bom dia ! 

Juliana obrigado por responder,  eu estou falando que na geração da remessa da Caixa Federal SICOB esta passando a agencia 2 vezes. pois passa no campo Agencia e no campo CodigoCedente que recebe a agencia+cedente ele corta da posição 1 a 11.

Na geração da remessa teria  que fazer igual na function MontarCampoCodigoCedente ou passar cedente direto como fazia em algumas versões atras.

segue anexo o arquivo.

 

Pedro Manoel

ACBrBancoCaixaSICOB.pas

[Juliana Tamizou]

Bom dia.e

Temos atualmente este banco homologado por vários usuários, como vc está passando as informações ao componente? Favor fornecer os dados passados para cada propriedade.

Att.

[Pedro_Manoel]

 

Agencia :0362 / Cedente 036287000000111 

Na geração do boleto fica OK passando estas informações mas na remessa não.

[aocampioni]

Estimado,

Boa tarde. Estimado, no código do CEDENTE da caixa não inclui agencia, apenas o código do cedente mesmo. 

    //
    ACBrBoleto.Cedente.Agencia          := '0362';
    ACBrBoleto.Cedente.CodigoCedente    := '87000000111';
    

Pronto, o componente fará o resto. Fiz um teste aqui e funcionou ok.