dreamsoft_PR

sicredi

e valor FloatToStr(Titulo.ValorPago)); tambem vem zero ja o valor recebido vem o que pagou

sobre ter a taxa do boleto ACBrBoleto2.DirArqRetorno := ExtractFilePath(OpenDialog1.FileName); ACBrBoleto2.NomeArqRetorno := ExtractFileName(OpenDialog1.FileName); try ACBrBoleto2.LerRetorno; .... for i := 0 to ACBrBoleto2.ListadeBoletos.Count - 1 do begin Titulo := ACBrBoleto2.ListadeBoletos.Objects[i]; ... mtTitulosEncontradosNossoNumero.asString := Titulo.NossoNumero; mtTitulosEncontradosValorPago.AsFloat := Titulo.ValorRecebido; mtTitulosEncontradosVencimento.AsDateTime := Titulo.Vencimento; // showmessage('ValorDespesaCobranca ' + FloatToStr(Titulo.ValorDespesaCobranca)); estou vendo esse campo nao vem com taxa que seria 1.75 os outros campos vem certo

e qual seria data do retorno que banco liberou tambem que vem no retorno

ola, como faco pegar o numero do retorno que vem do banco exemplo fazia assim antes CobreBemX.ArquivoRetorno.Sequencia;

ola, como faco pegar o NOSSONUMERO ja calculado aqui tentei pegar usando assim ACBrBoleto1.banco.MontarCampoNossoNumero(ACBrBoleto1.banco.MontarCampoNossoNumero(Titulo),Titulo) ja revolvi fazendo assim ShowMessage(ACBrBoleto1.banco.MontarCampoNossoNumero(Titulo) );

como eu faco para CPF ou CNPJ ir para segunda linha? sobre o aparece ja arrumei colocando Cedente.TipoInscricao := pJuridica mas como colocar o CNPJ para segunda linha? porque ele vem logo depois do nome , como jogar ele para linha de baixo, e que tem cliente com nome muito grande da razao social

forte report ACBrBoletoFCFortes1.LayOut := lCarne;

olá como faço par desabilitar para nao mostrar o CPF no cabeçario do boleto eu nao estou preenchendo nad amais fica assim nesse caso estou querendo nem colocar o CNPJ mas ai se nao coloco aparece o CPF em branco

mas esse que abrir e demo de voces

deu certo a instalacao agora o demo do boleto deu isso

vou testar

ola, estou usando fort report e cnpj esta cortando, fui procurar o arquito boletodfm mas quando abro no delphi nao tem o form dele aonde voces mexem nesse arquivo?

outra questao o CNPJ esta cortando como mudar o relatorio, esta em forte procurei os arquivo achei esses object ACBRBoletoFCFortesFr: TACBRBoletoFCFortesFr Left = -7 Top = 133 Caption = 'ACBRBoletoFCFortesFr' ClientHeight = 1061 ClientWidth = 1939 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate OnDestroy = FormDestroy TextHeight = 14 object BoletoReciboTopo: TRLReport Left = 18 Top = 18 Width = 794

pode deletar isso ja revolvi

ola, estava funcinando normalmente , atulizei agora quando vou abrir aonde pego o certificado da isso esta em windows server 2016

Ola , olhei no demo nao achei como voces acham a ataxa do boleto o que banco cobra tentei mtTitulosNaoEncontradosNossoNumero.asString := NossoNumero; mtTitulosNaoEncontradosValorOriginal.AsFloat := Titulo.ValorDocumento; mtTitulosNaoEncontradosJuros.AsFloat := Titulo.ValorMoraJuros; mtTitulosNaoEncontradosMulta.AsFloat := Titulo.ValorOutrosCreditos; ShowMessage(FloatToStr( Titulo.ValorPago- Titulo.ValorRecebido )); nao deu certo como vcs fazem? através da ocorrências?

sim

fizemos uma fucnao para isso, no fastreport e automatico? function GetMonitorDPI: integer; var DC: hDC; begin DC := GetDC(0); try Result := GetDeviceCaps(DC, LOGPIXELSX); finally ReleaseDC(0, DC); end; end; function GetSystemScalingFactor: Double; var dpi: integer; escalaSistema: Double; begin dpi := GetMonitorDPI; escalaSistema := dpi / 96; // 96 DPI é 100% de escala padrão Result := escalaSistema * 100; // Retorna a escala final end; como usei ACBrBoletoFCFortes1.AlterarEscalaPadrao := true; // criei uma var dpi: integer; dpi := Round(GetMonitorDPI * (GetSystemScalingFactor/100)); ACBrBoletoFCFortes1.NovaEscala := dpi;

esse e do demo banco c6 esse no demo do boleto

eu baixei ja versao nova do acbr mas mesmo assim a escala eu problema vc fazem como para ficar certo independente do monitor?

400

ola, estou tentando rodar o demo do c6bank da esse erro ACBrBoletoFPDF , baixei ja nova versaoja instalei tudo e mesmo assim nao roda. obrigado

ola, estou vendo no demo nao achei como eu pego a taxa do boleto que banco esta cobrando RetText.Add('Nosso Número :: ' + Retorno[i].NossoNumero); RetText.Add('Valor Documento :: ' + CurrToStr(Retorno[i].ValorDocumento)); RetText.Add('Valor Pago :: ' + CurrToStr(Retorno[i].ValorPago)); RetText.Add('Valor Recebido :: ' + CurrToStr(Retorno[i].ValorRecebido)); RetText.Add('Data Ocorrencia :: ' + DateToStr(Retorno[i].DataOcorrencia)); RetText.Add('Data Vencimento :: ' + DateToStr(Retorno[i].Vencimento)); RetText.Add('CodTipoOcorrencia :: ' + GetEnumName( TypeInfo(TACBrTipoOcorrencia), Integer(Retorno[i].OcorrenciaOriginal.Tipo))); RetText.Add('Descrição Tipo Ocorrencia :: ' + Retorno[i].OcorrenciaOriginal.Descricao); RetText.Add('Descriçãoo Comando :: ' + Retorno[i].DescricaoMotivoRejeicaoComando.Text); RetText.Add('EMV (QrCode Pix) :: ' + Retorno[i].QrCode.emv); tentei Titulo.ValorPago- Titulo.ValorRecebido mas nao da certo

ola, pesquisei ja no forum vi que atualizaram o fortreport la nao deixa baixar o arquivo aonde posso pegar? foi nesse