dtybel

Aceite minhas desculpas. Não estou mais trabalhando nesse projeto e nem com programação. Lamento.

Não estou mais trabalhando com programas, porém fiquei sabendo que a carteira sem registro foi descontinuada.

Essa classe já foi atualizada inúmeras vezes após a primeira postagem, baixe do SVN.

Juliana, Essa correção não foi enviada, ao atualizar o componente, me deparei com esse erro novamente. Segue em anexo a classe para que você acerte a função "LerRetorno400" a partir da linha 410 até: 426. ACBrBancoBancoob.zip

Juliana, Estou conferindo as atualizações que enviei, pois quero atualizar a pagina, será que quando puder, podia realizar esse commit no SVN ?

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

Juliana, O problema é o seguinte: Na unit ACbrBoleto no método: SetCNPJCPF Cria um validador. Valida o CNPJ ou CPF Formata Até aí tudo bem, mas no retorno a linha é a seguinte: ACbrBancoSantander.pas Linha 351: if (not LeCedenteRetorno) and (rCNPJCPF <> Cedente.CNPJCPF) then Repare que Cedente.CNPJCPF estará formatado devido o SetCNPJCPF enquanto o rCNPJCPF não estará, uma vez que é obtido do arquivo retorno, desse modo não ficará igual nunca. Alterar a linha 351, para: if (not LeCedenteRetorno) and (rCNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then Observar outros bancos também. Favor mudar no SVN, pois mudei o meu aqui e funcionou, mas quando eu atualizar, vai voltar novamente.

Boa tarde Juliana, Obrigado pelo retorno.

Juliana, Na função: MontarCodigoBarras do ACBrBancoob: A partir da linha 166 mudar: ACBrTitulo.Parcela := IfThen(ACBrTitulo.Parcela = 0,1,ACBrTitulo.Parcela); {Montando Campo Livre} CampoLivre := padR(ACBrTitulo.ACBrBoleto.Cedente.Modalidade, 2, '0') + padR(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente, 7, '0') + padR(Copy(ANossoNumero,1,8), 8, '0') + //7 Sequenciais + 1 do digito padR(IntToStr( ACBrTitulo.Parcela), 3, '0'); No layout carnê o local da linha digitável que deveria incrementar de acordo com as parcelas não está fazendo, pois está fixa. Lembrando que o campo Parcela do componente ACBrBoleto deve ser instanciada. Exemplo: Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin ...etc... Parcela := 1; //Parcela, incrementar de acordo com a parcela incluída no componente. ...etc... end; Exemplo: 1º - PARCELA 7591.02846.00426.644308 00000.100016 6 46290000015052 - OK 2º - PARCELA 7591.02846.00426.644308 00000.280016 4 46290000025088 - ERRADO 7591.02846.00426.644308 00000.280026 4 46290000025088 - CORRETO 3º - PARCELA 7591.02846.00426.644308 00000.350017 9 46290000035122 - ERRADO 7591.02846.00426.644308 00000.350037 9 46290000035122 - CORRETO Um usuário chamado: Wanderson entrou em contato solicitando correção.

Obrigado Juliana.

Juliana, Em uma nova homologação do boleto para o Sicoob foi rejeitado devido o nome do banco: BANCO COOPERATIVO DO BRASIL S.A. Solicitaram que fosse alterado apenas para: SICCOB. Alterado na classe no método construtor: constructor TACBrBancoob.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 0; fpNome := 'SICOOB.'; fpNumero:= 756; fpTamanhoMaximoNossoNum := 7; fpTamanhoCarteira := 1; end; Pode alterar no SVN ? CriticaHomologacaoBoleto.pdf

Olá Juliana, O banco não solicitou que eu removesse para a homologação. Só que fica uma frase estranha sobre cheque na parte de baixo. Eu quero saber como ocultar a nível de programação, não quero que apareça...atualmente eu deletei o componente de lá, mas quando eu atualizar o SVN voltará. Tem alguma propriedade onde eu consiga definir o texto que está lá ? assim eu poderia definir como nada e ficaria certo.

Juliana, Li novamente a crítica e não foi devido ao texto do cheque que houve a recusa não, foi mesmo devido ao Ratio, me desculpe. Como eu faço então para que aquele texto do cheque não apareça nos meus boletos ?

Juliana, Sobre este erro do Ratio ? será alterado no SVN ? Erro: Acessei ACBRBoletoFCFortesFr no componente imgCodigoBarra e alterei a propriedade Ratio de 2 para 3 Outro ERRO no layout: O componente: RLMemo2 com texto padrão sobre recebimento de cheque, saia em todos os boletos, e foi criticado pelo banco. Removi o componente e compilei, minha dúvida, como fica estas alterações no SVN, será corrigido ?

Quer que eu faça o IF (alteração) e poste aqui ?