Homolagação Boleto Caixa Sicob

[osvaldobelss]

Bom dia a todos!!

Gostaria de saber se alguém conseguiu homologar os boletos da CEF SICOB, CARTEIRA REGISTRADA RÁPIDA e REMESSA 240?

Baixei 04/08/2012 as fontes do svn, será que estão atualizadas para a homologação?

Meu cliente me passou que o código do convênio é composto por:

aaaa+ooo+cccccccc+d

a = agencia

o = operação

c = convênio

d = dv

E no manual da caixa está: AAAA.870.000XXXXX

No meu sistema coloquei então: ACBrBoleto.Cedente.CodigoCedente := Cedente.Agencia+'870'+qTBancoCONVENIO.Text;

Notei que no campo "Agência/Código Cedente" está 2144/214487000000227 está errado? não saiu nada de pontos e duplicou a agência?

[Juliana Tamizou]

Boa tarde Osvaldo.

Você informou o tipoCobranca como CobCaixaEconomicaSicob?

Att.

[osvaldobelss]

Boa tarde Juliana!

Eu informei o seguinte:

case qTBancoCBC.Value of

104: ACBrBoleto.Banco.TipoCobranca := cobCaixaSicob;

CobCaixaEconomicaSicob é igual a cobCaixaSicob?

[Juliana Tamizou]

Boa tarde.

É CobCaixaSicob mesmo, acabei me confundindo....você recompilou os componentes, pois acabei de testar no Demo e não foi impresso dessa forma?...

Att.

[osvaldobelss]

Então Juliana, eu tinha instalado o componente, 2 meses atrás, como talvez tivesse desatualizado eu desinstalei. Baixei as fontes sábado, peguei os dpk's ACBr_Boleto, ACBr_BoletoFC_FR, ACBrComum e ACBrDiversos e copiei com as suas fontes no release da embarcadero e compilei eles.

Observei que até na função abaixo o Result dele está certo, mas mas na hora de imprimir no Fast não sai igual!

function TACBrCaixaEconomicaSICOB.MontarCampoCodigoCedente (

const ACBrTitulo: TACBrTitulo ) : String;

begin

with ACBrTitulo.ACBrBoleto do

begin

Result := Cedente.Agencia + '.'+

Copy(Cedente.CodigoCedente, Length(Cedente.CodigoCedente)-10,3) +

'.'+ Copy(Cedente.CodigoCedente, Length(Cedente.CodigoCedente)-7,8) +

'-' +CalcularDVCedente(ACBrTitulo,true);

end;

Em a imagem do boleto.

Obrigado pela atenção =)

[osvaldobelss]

ninguém pra me ajudar ?? =(

[Juliana Tamizou]

Boa tarde.

Tente verificar se o componente para o FastReport utiliza a função MontarCampoCedente para imprimir este código ou se apenas pega o valor da propriedade códigoCedente.

Att.

[osvaldobelss]

Juliana é o seguinte!

Descobri o erro, mas achei estranho o meu não funcionar e o seu funcionar!!

Vou detalhar o que eu fiz para você analisar:

Em ACBrBoletoFCFR encontrei os seguintes campos:

with DmBoleto.cdsCedente do

FieldByName('CodigoCedente').AsString := Cedente.CodigoCedente;

FieldByName('Agencia').AsString := Cedente.Agencia;

FieldByName('AgenciaDigito').AsString := Cedente.AgenciaDigito;

observei que os valores destes campos acima que adicionei via banco de dados, NÃO foram modificados, como coloquei, ficou.

já nesta linha debaixo foi alterado o CodCedente (do jeito que eu quero)

with DmBoleto.cdsTitulo do

FieldByName('CodCedente').AsString := Banco.MontarCampoCodigoCedente( ListadeBoletos[iFor] );

mas tem um problema, no layout 'Boleto.fr3' aparece no campo 'Agência/Código Cedente' o seguinte código:

[Cedente."Agencia"]-[Cedente."AgenciaDigito"]/[Cedente."CodigoCedente"]

então vai aparecer duas vezes a agência... o certo seria:

[Titulo."CodCedente"]

sei que nos outros bancos não são assim, então poderia contornar com isso:

[iIF( <> '104',-/,)]

mas o código ainda não está completo, pois a condição é para o banco 104 que na verdade são as duas CEF e não só pra SICOB, e não sei qual a diferença.

[Juliana Tamizou]

Boa tarde.

Na verdade não uso o componente para impressão do Fast, utilizo o Fortes... porém o correto é apenas usar a retorno da função MontarCampoCedente ente campo do boleto, caso esteja sendo utilizado outra informação faça um teste removendo a mesma do relatório.

Att.

[osvaldobelss]

Então se no campo 'Agência/Código Cedente' só tem que ter o retorno da função MontarCampoCedente, então é só colocar no layout do arquivo 'Boleto.fr3':

[Titulo."CodCedente"]

[Juliana Tamizou]

Bom dia.

Isso mesmo.

Att.

[RobertoKrug]

Então se no campo 'Agência/Código Cedente' só tem que ter o retorno da função MontarCampoCedente, então é só colocar no layout do arquivo 'Boleto.fr3':

[Titulo."CodCedente"]

 

Osvaldo, bom dia,

 

Estou com o mesmo problema com a Caixa, mas não entendi como resolvestes...

Pois eu estou usando desta forma, Crio os componentes em tendo de execução, conforme abaixo, será que falta algo a mais, pois para mim também está repetindo a Agência no Código do Cedente, desta forma: 01765/1765870000004639-0

 

Estou usando assim, em tempo de execução

 ACBrBoleto := TACBrBoleto.Create(Nil);

 ACBrBoletoImpressao := TACBrBoletoFCFortes.Create(Nil);

 

E passo os dados:

ACBrBoleto.Banco.TipoCobranca    := cobCaixaEconomica

ACBrBoleto.Cedente.Agencia          := '07165';

ACBrBoleto.Cedente.AgenciaDigito := '9;

ACBrBoleto.Cedente.CodigoCedente := 1765870000004639;

ACBrBoleto.Cedente.Conta             := '0000020757';

ACBrBoleto.Cedente.ContaDigito   := '9';

ACBrBoleto.Cedente.Nome             := 'Empresa...;

ACBrBoleto.Cedente.CNPJCPF       := '99999999999999';

ACBrBoleto.Cedente.ResponEmissao := tbCliEmite;

ACBrBoleto.Cedente.TipoInscricao := pJuridica;

 

Roberto Krug

[Juliana Tamizou]

Bom dia Roberto.

 

A mudança foi feita no relatório do FastReport...

 

@Oswaldo...

Se a mudança tiver dado certo, se possível anexe aqui o relatório alterado.

 

Att.

[osvaldobelss]

Boa tarde Roberto e Juliana, desculpem a demora!!

 

então vou deixar em anexo o relatório que modifiquei em FastReport.. e para resolver isso se você não conseguir abrir o arquivo,

eu coloquei alguns comandos na procedure que é lida antes de fazer o relatório:

 

procedure MDOnBeforePrint(Sender: TfrxComponent);
begin
  if Trim(<Banco."DirLogo">) <> '' then
  begin             
     Logo_1.Picture.LoadFromFile(<Banco."DirLogo"> + '\' + <Banco."Numero"> + '.bmp');
     Logo_2.Picture.Assign(Logo_1.Picture);
     Logo_3.Picture.Assign(Logo_1.Picture);
  end;    

  if <Banco."Numero"> = '104' then
  begin             
    CedenteAgencia.Text  := <Titulo."CodCedente">;
    CedenteAgencia2.Text := <Titulo."CodCedente">;
    CedenteAgencia3.Text := <Titulo."CodCedente">;         
  end else
  begin
    CedenteAgencia.Text  := <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia3.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
  end;                 
end;

BoletoFR.rar

Editado 24 Agosto, 2013 por osvaldokalvaitir

[Juliana Tamizou]

Bom dia.

 

Relatório no svn.

 

Att.

[osvaldobelss]

Bom dia Juliana... alterei de novo o arquivo colocando o seguinte código para o Bradesco:

 

  if <Banco."Numero"> = '104' then
  begin             
    CedenteAgencia.Text  := <Titulo."CodCedente">;
    CedenteAgencia2.Text := <Titulo."CodCedente">;
    CedenteAgencia3.Text := <Titulo."CodCedente">;         
  end else
  if <Banco."Numero"> = '237' then
  begin             
    CedenteAgencia.Text  := <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."Conta">+'-'+<Cedente."ContaDigito">;
    CedenteAgencia2.Text := <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."Conta">+'-'+<Cedente."ContaDigito">;
    CedenteAgencia3.Text := <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."Conta">+'-'+<Cedente."ContaDigito">;         
  end else
  begin
    CedenteAgencia.Text  := <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia2.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
    CedenteAgencia3.Text := <Cedente."Agencia">+'/'+<Cedente."CodigoCedente">;
  end;

BoletoFR.rar

[Juliana Tamizou]

Bom dia.

 

Estas implementações poderiam ser feitas nas função MontarCodigoCedente existente nas units dos bancos...assim garantimos as correções para os usuários de qualquer gerados.

 

Att.

[osvaldobelss]

Então Juliana... é o seguinte, o caso do Bradesco eu achei mais fácil colocar esta condição no design do relatório FastReport e não no componente, pois se eu alterar no componente irá alterar a remessa também, e a remessa já está homologada.

 

Não corre o risco??

[Juliana Tamizou]

Bom dia.

 

A função MontarCodigoCedente é utilizada somente na impressão do boleto, inclusive a homologação da impressão do Bradesco com o FortesReport já está feita .

 

Att.