Carteira Arquivo de Retorno da Caixa

[LEANDRODOCOUTO]

No processamento do arquivo de retorno da caixa federal estou recebendo o erro de carteira inválida, mandando utilizar RG ou SR, porém está vindo 14.

Quando chega na função TACBrCaixaEconomica.RetornaModalidade o componente lança a exceção :

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

 

R121200002.ret

[mauriciobng]

Fiz a seguinte validação na classe ACBrBancoCaixa

 if (Copy(linha,40,2) = '11') or (Copy(linha,40,2) = '14') then   
                Carteira := 'RG'                                                      
            else                                                                      
                if (Copy(linha,40,2) = '21') or (Copy(linha,40,2) = '24') then      
                    Carteira := 'SR'                                                  
                Else                                                                  
                   if (ACBrBanco.ACBrBoleto.Cedente.TipoCarteira = tctSimples) then
                      Carteira := 'SR'                                              
                   Else                                                              
                     Carteira := 'RG';

 

ACBrBancoCaixa.pas

[LEANDRODOCOUTO]

pensamos do mesmo jeito.. também fiz algo semelhante... hehehe..