dreamsoft_PR

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

podem exclui ja resolvi

so que nao estou mais marcado para instalar o forte report

estou tentando instalar da isso Compiling package C:\Componentes Delphi10\ACBR\Pacotes\Delphi\ACBrDFe\ACBrDFeReportRL.dpk "C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\dcc32.exe" "C:\Componentes Delphi10\ACBR\Pacotes\Delphi\ACBrDFe\ACBrDFeReportRL.dpk" Embarcadero Delphi for Win32 compiler version 30.0 Copyright (c) 1983,2015 Embarcadero Technologies, Inc. ACBrDFeReportRL.dpk(32) Fatal: E2202 Required package 'frce' not found Compilation failure Erro ao compilar o pacote "ACBrDFeReportRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes. tem algum prblema em instalar o forte e fast ao mesmo tempo?

comeceu essa semana todos que tem windows 11 nao acessar usando RDP (conexao remota do windows) para acessar windows server 2016 se alguem esta passando tambem por isso da esse erro Código de erro: 0x1108 Código de erro estendido: 0x0 Carimbo de data/hora (UTC): 02/20/25 06:47:33 PM Pressione Ctrl+C para copiar.

deu certo obrigado

ola tem formato da NFCE para folha a4, fica parecendo a NFE maior

ok obrigado

cliente do estado PI o contador me passou isso

ola estou com um cliente com esse erro, falei para contador ver na sefaz ele diz que liberação é automática o seria entao?

Ola, tem como fazer usando o certificado digital da empresa assinar um PDF tem isso em acbr? ou qual seria ?

pronto usei assim if ACBrNFe1.Enviar(1, false,true) then begin ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe ACBrNFe1.WebServices.Enviar.cStat ACBrNFe1.WebServices.Enviar.Protocolo ACBrNFe1.NotasFiscais[0].NFe.Total.ICMSTot.vNF so nao sabia que nao tem mais numero recibo . obrigado deu certo

acredito que numero de recibo nao tem mais no NFCE correto?

me desculpe a ignorancia mas o NFE de vcs o exemplo seria o mesmo para NFCE? ACBR\Exemplos\ACBrDFe\ACBrNFe\Delphi

o numero do recibo vem vazio o status vem certo ACBrNFe1.WebServices.Enviar.Recibo tentei assim tambem

eu olhei no exemplo if ACBrNFe1.Enviar(1, true,true) then begin // guardar o status da nota atual StatusNota := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat; // ShowMessage(IntToStr(StatusNota)); MsgRetorno := ''; if ValueIn(StatusNota, [100, 150, 110, 301, 302]) then begin ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo); mesmo colocando assim vem vazio