Geração Arquivo Remessa E Impressão Boleto Sigcb

[Eduardo.Softniels]

Boa tarde

 

estamos fazendo a geração do arquivo de remessa e impressão dos boletos com o SIGCB o tratamento dentro do codigo fonte da caixaeconomica do acbr é o seguinte para carteira:

 

   if (ACBrTitulo.Carteira = 'RG') then

      ACarteira := '1'

   else if (ACBrTitulo.Carteira = 'SR')then

      ACarteira := '2'

   else

      raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "RG" ou "SR"') ) ;

 

no caso o tipo da carteira = RG na processo de homologação rejeitou por que o tipo da carteira para tipo de cobrança registrada tem que ser CR e não RG, aí fizemos o seguinte tratamento para fazermos a impressão e a geração do arquivo de remessa:

 

   if (ACBrTitulo.Carteira = 'CR') then

      ACarteira := '1'

   else if (ACBrTitulo.Carteira = 'SR')then

      ACarteira := '2'

   else

      raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "CR" ou "SR"') ) ;

 

mudamos o if para verificar o tipo da carteira passando CR, fizemos a leitura dos codigos de barras dos boletos gerados a partir dessa alteração e conferiu o tipo da carteira;

 

Verificar a alteração realizada no código caso alguem tenha alguma informação diferente referente ao assunto postado por favor comentar.

 

Agradeço desde já

 

Obrigado

 

[Juliana Tamizou]

Bom dia Eduardo.

 

De acordo com o manual da Caixa, a carteira RG é válida também, por isso o correto não seria modificar desta maneira a verificação, pois irá "quebrar"   para quem utiliza a carteira RG...

 

O correto seria algo como:

 

if (ACBrTitulo.Carteira = 'RG') or   (ACBrTitulo.Carteira = 'CR')   then

      ACarteira := '1'

   else if (ACBrTitulo.Carteira = 'SR')then

      ACarteira := '2'

   else

      raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize  "RG", "CR" ou "SR"') ) ;

 

desta forma é mantida a compatibilidade.