valramosr

Era isso mesmo Juliana, o DirArqRetorno. vou deixar aqui caso alguém precise de ajuda. // pegando a pasta do retorno independente do local que ele foi salvo. Edit1.Text:=ExtractFilePath( OpenDialog1.FileName ); ACBrBoleto1.DirArqRetorno:=Edit1.Text; //Pegando o nome do arquivo para ser tratado. Edit1.Text:=ExtractFileName(OpenDialog1.FileName); ACBrBoleto1.NomeArqRetorno:=Edit1.Text; Att.

Essa primeira barra "\" antes do C:\ que nao to conseguinto localizar de onde ta vindo.

Oi Juliana Bom dia, Mesmo passando o caminho apresenta o erro. ele ta colocando uma barra "\" na frente do caminho. conforme imagem e tb segue a linha do erro. na Variavel nomeArq ele ja coloca a barra.

Boa noite, Alguém ta passando por isso ao tratar o retorno? Erro: Arquivo Nao Encontrado: \nome_do_arquivo_do_banco.txt. Meu codigo: ACBrBoleto1.NomeArqRetorno:= ExtractFileName(OpenDialog1.FileName); ACBrBoleto1.Banco.TipoCobranca:=cobSantander; ACBrBoleto1.LayoutRemessa:=c240; ACBrBoleto1.LeCedenteRetorno:= true; ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.LerRetorno;

vc precisa fazer um if ou um case if caixa then begin ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; ACBrBoleto1.LayoutRemessa:=c240; end; if itau then begin ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.Banco.TipoCobranca := cobItau ACBrBoleto1.LayoutRemessa:=c240; end; eu faço assim!

Segue Unit com a alteraçao. segumento: 'P' IntToStrZero(2*ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ,5) //Número seqüencial do registro no lote - Cada registro possui dois segmentos Segmento: 'U' IntToStrZero((2*ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+1)+ 1 ,5) //Número seqüencial do registro no lote - Cada registro possui dois segmentos ACBrBancoItau.pas

Ao gerar a remessa do itau o Número seqüencial do registro no lote está de saguinte forma: 3410001300001P 3410001300001Q 3410001300002P 3410001300002Q E o banco informou que é sequencial. 3410001300001P 3410001300002Q 3410001300003P 3410001300004Q Olhando na remessa da caixa o mesmo campo encontra-se sequencial.

Bom dia Juliana, Como suspeitei, era realmente o erro na data que estava passando devido o MySql passa a data invertida. Mas resolvi o problema da data e re-enviei o arquivo. Foi homologado o boleto. Muito obrigado por sua disponibilidade em ajudar. Bom Dia.

Ha tá, Entendi. Desculpe minha ignorância. //dados cedente CaracTitulo := tcSimples; Agencia := 0491 AgenciaDigito := 0 // não tem digito ou não me passaram, ai passo como 0. CodigoCedente := 19615 // passo o nr da conta, pois não passaram o codigo do cedente ou o itau nao usa. Conta := 19615 // conta corrente ContaDigito := 0 // digito da conta TipoInscricao := pJuridica; // os dados abaixo vem da tabela do cliente; Nome := nome da empresa Bairro := clientparametrosbairro_escola.AsString; Cidade := clientparametroscidadeescola.AsString; Logradouro := clientparametrosenderescola.AsString; CEP := '55000000'; CNPJCPF := DBEditCedCNPJ.Text; alimentando o componente com os dados do titulo. LocalPagamento :='Até o vencimento, preferencialmente no Itaú. ' + 'Após o vencimento, somente no Itaú'; Vencimento := EncodeDate(2016,03,20) // mexi nesse campo de data, pois uso mysql que passa a data como aaaa-mm-dd, DataDocumento := Now; NumeroDocumento := ClientGeraTitulosid.AsString; // id passo id como numero EspecieDoc := 'DM'; Aceite := atSim; DataProcessamento := Now; NossoNumero := ClientGeraTitulosid.AsString; // passo tb id como nossonumero Carteira := 109 // código que o banco me passou ValorDocumento := ClientGeraTitulosvalor_base.AsFloat; Ré-enviei para o banco com a alteração de data. pode ter sido isso, devido o MySql passar data aaaa-mm-dd. vou esprar resposta. Assim que me derem a resposta posta aqui. Desde ja lhe agradeço a atençao e a paciencia.

O código que uso pra alimentar o componete é esse: with ACBrBoleto1.CriarTituloNaLista do begin LocalPagamento :='Até o vencimento, preferencialmente no Itaú. ' + 'Após o vencimento, somente no Itaú'; Vencimento := up.fieldbyname('data_vencimento').AsDateTime; DataDocumento := now; NumeroDocumento := up.fieldbyname('id').AsString; EspecieDoc := 'DM'; Aceite := atSim; DataProcessamento := now; NossoNumero := up.fieldbyname('id').AsString; Carteira := dmfinanceiro.ClientCedentecodigo_carteira.AsString; ValorDocumento := up.fieldbyname('valor_base').AsFloat; Mensagem.Text := 'Até o vencimento Desconto de '+FormatCurr('R$ #,##0.00', StrToFloat(up.fieldbyname('valor_desconto').AsString))+#13+ 'Após o vencimento Juros de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedJuros.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100) +' ao dia + Multa de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedMulta.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100)+#13+ DBEdObservacao1.Text+#13+ DBEdObservacao2.Text+#13+ 'Aluno: '+clientalunosnome.AsString + '-' + 'Turma: '+clientturmasnome.AsString; with Sacado do begin Pessoa := pFisica; NomeSacado := clientalunosresp.AsString; CNPJCPF := clientalunoscpf_resp.AsString; Logradouro := clientalunosender_resp.AsString; Numero := '000'; Bairro := clientalunosbairro_resp.AsString; Cidade := clientalunoscidade_resp.AsString; UF := clientalunosuf_resp.AsString; CEP := clientalunoscep_resp.AsString; ValorAbatimento:= vdesconto; end; with ACBrBoleto1.Cedente do begin // Modalidade := DBEditCedCodigo_Carteira.Text; CaracTitulo := tcSimples; Agencia := DBEditCedAgencia.Text; AgenciaDigito := DBEditDigitoAgencia.Text; CodigoCedente := DBEditCodCedente.Text; Conta := DBEditConta.Text; ContaDigito := DBEditDigitoConta.Text; TipoInscricao := pJuridica; Nome := DBEditCedNome.Text; Bairro := clientparametrosbairro_escola.AsString; Cidade := clientparametroscidadeescola.AsString; Logradouro := clientparametrosenderescola.AsString; NumeroRes :=''; CEP := '55000000'; CNPJCPF := DBEditCedCNPJ.Text; //Convenio := DBEditCedCodigo_Carteira.Text; //CodigoTransmissao:=DBEditCodTransmissao.Text; CaracTitulo:=tcVinculada; //TipoCarteira:=tctRegistrada; ResponEmissao := tbCliEmite; end;

Removi, as duas pastas tanto do acbr trunk2 como do fortesreport. bem como em component --> install packcages --> Runtime packages no final tinha uma chamada para o antigo fortesreport. Compilando e funcionando agora. Obrigado Juliomar. Boa noite.

removi todas a declaraçoes no delphi removi o fortes antigo removi a pasta antigo do acbr tb

Olá JulioMar, boa noite! É esse mesmo que estou usando. comecei a migrar hoje para o trunk2.

Também tentei com a Versão 3.72B do fortes e nem instala o ACBr. Com a versão 4.o instala certinho. mãs não compila o projeto, sempre apresenta Unit ACBrBoletoFCFFortesFr was compiled with a diferent version of RLReport.TRLCustomReport.SetTitle.

Boa noite, Migrei para o trunk2, baixei a versão do fortesreport no site e intalei. versão 4.0 ao tentar compilar um projeto, ele apresenta o seguinte erro. Unit ACBrBoletoFCFFortesFr was compiled with a diferent version of RLReport.TRLCustomReport.SetTitle. Qual versão do fortesreporte que foi utilizada?

Olá Juliana, Boa Noite! Segue o código que alimenta o componente. with ACBrBoleto1.CriarTituloNaLista do begin LocalPagamento :='Até o vencimento, preferencialmente no Itaú. ' + 'Após o vencimento, somente no Itaú'; Vencimento := up.fieldbyname('data_vencimento').AsDateTime; DataDocumento := now; NumeroDocumento := up.fieldbyname('id').AsString; EspecieDoc := 'DM'; Aceite := atSim; DataProcessamento := now; NossoNumero := up.fieldbyname('id').AsString; Carteira := dmfinanceiro.ClientCedentecodigo_carteira.AsString; ValorDocumento := up.fieldbyname('valor_base').AsFloat; Mensagem.Text := 'Até o vencimento Desconto de '+FormatCurr('R$ #,##0.00', StrToFloat(up.fieldbyname('valor_desconto').AsString))+#13+ 'Após o vencimento Juros de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedJuros.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100) +' ao dia + Multa de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedMulta.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100)+#13+ DBEdObservacao1.Text+#13+ DBEdObservacao2.Text+#13+ 'Aluno: '+clientalunosnome.AsString + '-' + 'Turma: '+clientturmasnome.AsString; with Sacado do begin Pessoa := pFisica; NomeSacado := clientalunosresp.AsString; CNPJCPF := clientalunoscpf_resp.AsString; Logradouro := clientalunosender_resp.AsString; Numero := '000'; Bairro := clientalunosbairro_resp.AsString; Cidade := clientalunoscidade_resp.AsString; UF := clientalunosuf_resp.AsString; CEP := clientalunoscep_resp.AsString; ValorAbatimento:= vdesconto; end; with ACBrBoleto1.Cedente do begin // Modalidade := DBEditCedCodigo_Carteira.Text; CaracTitulo := tcSimples; Agencia := DBEditCedAgencia.Text; AgenciaDigito := DBEditDigitoAgencia.Text; CodigoCedente := DBEditCodCedente.Text; Conta := DBEditConta.Text; ContaDigito := DBEditDigitoConta.Text; TipoInscricao := pJuridica; Nome := DBEditCedNome.Text; Bairro := clientparametrosbairro_escola.AsString; Cidade := clientparametroscidadeescola.AsString; Logradouro := clientparametrosenderescola.AsString; NumeroRes :=''; CEP := '55000000'; CNPJCPF := DBEditCedCNPJ.Text; //Convenio := DBEditCedCodigo_Carteira.Text; //CodigoTransmissao:=DBEditCodTransmissao.Text; CaracTitulo:=tcVinculada; //TipoCarteira:=tctRegistrada; ResponEmissao := tbCliEmite; end;

Bom dia Juliana, chequei os campos e enviei novamente e me mandaram a mesma solicitação. Bom Dia, O valor calculado pelo nosso sistema para o código de barras e para representação numérica está diferente dos apresentados nos boletos por favor verificar novamente o cálculo desses 2 itens. Representação numérica: Valor do boleto: 34191.09008 00577.360498 11961.500003 6 67100000010000 Valor calculado: 34191.09008 00577.340490 11961.500003 9 67100000010000 Código de barras: Valor lido no boleto: 34196671000000100001090000577360491196150000 Valor calculado pelo sistema: 34199671000000100001090000577340491196150000

Bom Dia Juliana, segue o que me foi enviado: Cálculo de DAC e fator de vencimento Valor do bloqueto Valor calculado DAC do campo “Nosso número” 6 4 DAC do campo “Agência/Código Beneficiário” 0 0 Fator de vencimento informado na linha digitável 6710 6710 Observações: ü A leitura do código de barras não apresentou problema, porém, a composição numérica está irregular: ý Valor lido no bloqueto: 34196671000000100001090000577360491196150000 ý Valor calculado: 34199671000000100001090000577340491196150000 ü A composição da representação numérica, linha digitável da ficha de compensação está irregular: ý Valor do bloqueto: 34191090080057736049811961500003667100000010000 ý Valor calculado: 34191.09008 00577.340490 11961.500003 9 67100000010000

Estou tentando fazer a homologação no Itaú. e me enviaram essa msg; ü A leitura do código de barras não apresentou problema, porém, a composição numérica está irregular: ý Valor lido no bloqueto: 34191677000000100001090000577510491196150000 ý Valor calculado: 34191677000000100001090000577590491196150000 ü A composição da representação numérica, linha digitável da ficha de compensação está irregular: ý Valor do bloqueto: 341910900800577510498119615000031677000000010000 ý Valor calculado: 34191.09008 00577.590490 11961.500003 1 67700000010000

Não, não Daniel Simoes. Apenas fui tratar o meu retorno pelo acbrboleto e ele me trouxe o campo nossonumero apenas com ZEROS. isso para a caixa econômica. Para o santader funcionou perfeitamente. mas para a caixa apresenta o campo nosso numero zerado.

Quando puxo o retorno da caixa o nossonumero vem todo zerado já olhei os meu codigo: if Copy(ComboBox1.Text,0,3) = '104' then begin ACBrBoleto1.Banco.TipoCobranca:=cobCaixaSicob; ACBrBoleto1.LayoutRemessa:=c240; ACBrBoleto1.LeCedenteRetorno:= true; end; ACBrBoleto1.LerRetorno; with ACBrBoleto1 do begin for i:= 0 to ListadeBoletos.Count -1 do begin ClientDataSet2.Append; ClientDataSet2data_pagamento.AsDateTime := ListadeBoletos.Objects[i].DataCredito; ClientDataSet2valor_juros.AsFloat := ListadeBoletos.Objects[i].ValorMoraJuros; ClientDataSet2valor_pago.AsFloat := ListadeBoletos.Objects[i].ValorRecebido; ClientDataSet2carteira.AsString := ListadeBoletos.Objects[i].Carteira; ClientDataSet2nosso_numero.AsString := ListadeBoletos.Objects[i].NossoNumero; ClientDataSet2valor_desconto.AsFloat := ListadeBoletos.Objects[i].ValorDesconto; end; end;

Juliana, Já estava passando o parametro, mas por algum motivo meu clientDataSet nao estava alimentando o campo. Mudei e deu certo. cedente,modalidade é esse parametro mesmo. Desculpa o incomodo e obrigado.

Boa tarde Juliana, Já estou informando nessa propriedade. Veja: with ACBrBoleto1.Cedente do begin Modalidade := CdsCedentecodigo_carteira.AsString;

Estou homologando boleto e remessa no Santander. Hoje recebi um email do santander: Boa Tarde , Prezados conforme verificamos os boletos está faltando informar o Código da carteira na linha digitavel. Por gentileza informar na linha digitavel o código da carteira 101 que se refere a Cobrança Simples/ Rápida com Registro – impressão pela empresa. Meu código: with ACBrBoleto1.Cedente do begin Modalidade := CdsCedentecodigo_carteira.AsString; CaracTitulo := tcSimples; Agencia := DBEditCedAgencia.Text; AgenciaDigito := DBEditDigitoAgencia.Text; CodigoCedente := DBEditCodCedente.Text; Conta := DBEditConta.Text; ContaDigito := DBEditDigitoConta.Text; Nome := DBEditCedNome.Text; CEP := '55000000'; CNPJCPF := DBEditCedCNPJ.Text; NumeroRes := '10'; TipoInscricao := pJuridica; ResponEmissao := tbCliEmite; Convenio := ''; CodigoTransmissao:='401700007449380'; CaracTitulo:=tcVinculada; TipoCarteira:=tctRegistrada; TipoInscricao := pJuridica; ResponEmissao := tbCliEmite; end; e verificando o boleto gerado não consta a carteira 101 na linha digitável.

Tudo bem Juliomar! O meu sistema já está gerando e enviando a notas tranquilo. Só queria saber se existia essa possibilidade mesmo. Obrigado.