Pesquisar na Comunidade

*A unit que deu esse erro está atualizada e já fiz o checkout pro novo endereço Na unit ACBrBancoob tem o seguinte código: rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ; Isso da problema quando o cedente é pessoa física, pois ao entrar em ValidarCPF da unit ACBrValidador da o seguinte retorno: "CPF deve ter 11 dígitos. (Apenas números)" Dentro de fsDocto obviamente sempre vai constar 14 dígitos, por isso esse retorno. Aqui eu resolvi dessa forma: if ACBrBanco.ACBrBoleto.Cedente.TipoInscricao = pFisica then rCNPJCPF := trim( Copy(ARetorno[1],7,11)) else rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ; Segue em anexo a unit corrigida, por favor se alguém puder atualizar isso no svn, ou passar uma solução mais correta. ACBrBancoob.pas

Contador de registro, coluna 18 do Trailler do LOTE, está calculando errado no TACBrBancoob.GerarRegistroTrailler240(ARemessa: TStringList): String; A partir da linha 930 está asim: function TACBrBancoob.GerarRegistroTrailler240( ARemessa: TStringList): String; begin {REGISTRO TRAILER DO LOTE} Result:= IntToStrZero(ACBrBanco.Numero, 3) + //Código do banco '0001' + //Número do lote '5' + //Tipo do registro: Registro trailer do lote Space(9) + //Uso exclusivo FEBRABAN/CNAB IntToStrZero((3 * ARemessa.Count-1), 6) + //Quantidade de Registro da Remessa ... Deveria ser assim: function TACBrBancoob.GerarRegistroTrailler240( ARemessa: TStringList): String; var wQTDTitulos: Integer; begin wQTDTitulos := ARemessa.Count - 1; {REGISTRO TRAILER DO LOTE} Result:= IntToStrZero(ACBrBanco.Numero, 3) + //Código do banco '0001' + //Número do lote '5' + //Tipo do registro: Registro trailer do lote Space(9) + //Uso exclusivo FEBRABAN/CNAB IntToStrZero((4 * wQTDTitulos + 2), 6) + //Quantidade de Registro da Remessa ... Deixei em verde o que foi INSERIDO ou ALTERADO

Juliana, Enfrentei um caso novo nessa unit essa semana. Tenho um cliente pessoa física. E para pessoa física usa o cpf no arquivo retorno. Por esse motivo emitia erro de CNPJ inválido. Tive que realizar alteração no metodo: procedure TACBrBancoob.LerRetorno400(ARetorno: TStringList); rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ; with ACBrBanco.ACBrBoleto do begin Cedente.Nome := rCedente; case StrToIntDef(Copy(ARetorno[1],2,2),0) of 1: begin Cedente.TipoInscricao:= pFisica; rCNPJCPF := copy(rCNPJCPF,length(rCNPJCPF) - 10,length(rCNPJCPF)); end; else Cedente.TipoInscricao:= pJuridica; end; Cedente.CNPJCPF := rCNPJCPF; ACBrBanco.ACBrBoleto.ListadeBoletos.Clear; end; Exemplo de preenchimento: //Configurar banco ACBrBoleto1.Banco.Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger; // DADOS DO BANCO with ACBrBoleto1.Banco do begin Digito := 0;//StrtoIntDef(0, 0); Nome := DMEmpresa.ClientDataSet2NOME_CONTA.AsString; Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger; case DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger of 237 : TipoCobranca := cobBradesco; 1 : TipoCobranca := cobBancoDoBrasil; 341 : TipoCobranca := cobItau; 748 : TipoCobranca := cobSicred; 104 : TipoCobranca := cobCaixaEconomica; 756 : TipoCobranca := cobBancoob; 33,53,008 : TipoCobranca := cobSantander; 21 : TipoCobranca := cobBanestes; else TipoCobranca := cobNenhum; end; end; with ACBrBoleto1.Cedente do begin Nome := DMEmpresa.ClientDataSet1EMPRESA.AsString; Agencia := DMEmpresa.ClientDataSet2AGENC_BANCO.AsString; AgenciaDigito := DMEmpresa.ClientDataSet2DIGITO_AGENC_BANCO.AsString; CodigoCedente := DMEmpresa.ClientDataSet2COD_CEDENTE.AsString; Conta := DMEmpresa.ClientDataSet2NUM_CONTA_BANCO.AsString; ContaDigito := DMEmpresa.ClientDataSet2DIGITO_CONTA_BANCO.AsString; if ( isCPF(tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString)) ) then TipoInscricao := pFisica else TipoInscricao := pJuridica; CNPJCPF := tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString); if ( Length(DMEmpresa.ClientDataSet2MODALIDADE.AsString) > 0) then Modalidade := DMEmpresa.ClientDataSet2MODALIDADE.AsString; if ( Length(DMEmpresa.ClientDataSet2CONVENIO.AsString) > 0) then Convenio := DMEmpresa.ClientDataSet2CONVENIO.AsString; end; ACBrBoleto1.DirArqRetorno := ExtractFilePath(txtNomeArquivoRetorno.Text) ; ACBrBoleto1.NomeArqRetorno := ExtractFileName(txtNomeArquivoRetorno.Text) ; ACBrBoleto1.LerRetorno; ACBrBancoob-03-09-2013.rar

Boa tarde realizei a implementação do método LerRetorno240 para o ACBrBancoob. Segue em anexo a Unit com a implementação. Obs.: Fiz alguma alterações na função CodMotivoRejeicaoToDescricao, CodOcorrenciaToTipo e TipoOCorrenciaToCod, pois elas não tinham muitos Motivos, utilizei a tabela da FEBRABAN(conforme manual banco) para gerar os retornos. ACBrBancoob.pas