Pesquisar na Comunidade
Showing results for tags 'acbrbancoob'.
Encontrado 4 registros
-
Erro Ao Ler Arquivo De Retorno Sicoob Cnab 400 Cedente Pessoa Física
um tópico no fórum postou everton.battini ACBrBoleto
*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 Do Tacbrbancoob.gerarregistrotrailler240 Está Calculando Errado
um tópico no fórum postou Dempsey ACBrBoleto
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- 8 replies
-
- ACBrBancoob
- Contador de registros
- (e 2 mais)
-
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
- 2 replies
-
- CNPJ inválido
- acbrbancoob
- (e 6 mais)
-
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
- 4 replies
-
- ACBrBancoob
- LerRetorno240
- (e 1 mais)