EdmarFrazao

estou usando o demo acbrNfseX Quando consulta : Consultar NFSe por RPS da erro e não salva o pdf nem a Nfse msg que retorna: Método Executado: ConsultarNFSePorRps Parâmetros de Envio Numero do Rps : 20213047 Série do Rps : 21 Parâmetros de Retorno Numero do Lote: Numero do Prot: Situação : Data : 04/11/2021 Desc. Situação: Link : Sucesso : True Erro(s): Código : X999 Mensagem: Erro de Conexão: Access violation at address 008E8E8B in module 'ACBrNFSeX_Exemplo.exe'. Read of address 00000004 Correção: --------- NFS-e Numero....: 202100000003047 Cod. Verificacao: xxx-E1WR Prestador.......: S.E. SISTEMAS LTDA Tomador.........: xxxx da Costa o Pdf não é salvo Quando mando imprimir o arquivo retornado: ele e mostrado todo em branco ( como se não tivesse lido as tags) Arquivo Carregado de: D:\Testes\ACBrNFSeX\Delphi\DOCS\2021304721-comp-nfse.xml Nota Numero: Código de Verificação: Data de Emissão: 30/12/1899

AcbrNfsex Imprimir DANFSe Provedor Webiss 2 não imprime provedor:Webiss v2 (Formiga/3126109/MG) Consultou NFSe por RPS o xml é retornado mas quando imprime fica todo em branco, não esta lendo as tags segue em anexo arquivo retorno da consulta por Rps e por Lote Retorno.zip

Funcionou. Creio que foi adicionado em todos os projetos o comando RttiSetProp(frxPDFExport, 'Transparency', 'False'); units alteradas: ACBrBPeDABPEFR, ACBrCTeDACTEFR, ACBrGNREGuiaFRDM, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFRDM, ACBrNFeDANFEFRDM, ACBrNFSeDANFSeFR obrigado pela atualização.

alguma posição da alteração? A alteração precisa ser feita em todos os projetos que usam Fastreport

Estou gerando no Delphi 11 com o Fast 2021.003(versão Standard), e não tive o problema relatado mas com relação a tamanho a propriedade traz mais efeito frxPDFExport.Transparency := FALSE;

seria interessante declarar a função RttiSetProp em uma unit para ser compartilhada com todos os projetos que usaram a mesma

Usei a mesma rotina para Cte e funcionou também segue ACBrCTeDACTEFR.pas

fiz o Teste no Fast 2021.3 e funcionou

Poderia usar a propriedade if frxreport.Version >= '6.0.0' mas não sei se tem no fast 4

Não seria melhor pela versão do delphi, Quais versões de Delphi ainda estariam usando Fast 4? Se houver varios com Fast teria que ter uma diretiva de compilação no instalador(mais trabalhoso ) O pdf fica de 4x ou mais maior e deve esta afetando todos os componentes acbr que geram pdf com fast. Um exemplo pdf deu 500k versos 1500k so mudando a propriedade A propriedade esta no Lazarus também talvez afete ( não uso) https://www.fast-report.com/en/blog/show/make-PDF-from-Delphi-Lazarus-CBuilder/ {Set whether to export images with transparency} frxPDFExport1.Transparency := True;

não sei dizer esta propriedade ja tinha no Fast 6 e mudou o padrão para o fast 2021

O componente FastReport passou a propriedade frxPDFExport.Transparency para padrão true Fazendo assim todos os pdf com Logos ficarem muito maiores quando gera o pdf do xml e este tem logo o PDF passou a ficar grande precisamos mudar a propriedade do componente e ou publicar um nova unit:ACBrNFeDANFEFRDM linha : frxPDFExport.Transparency := FALSE; Talvez tenha que ser mudado em todos os fontes da Acbr que use o Fast para gerar PDF. ACBrNFeDANFEFRDM.pas

Atualização com Sucesso. Esocial sem erro Acbr e Fortes Funcionando sem problemas Delphi XE 3 Delphi 10.4 Delphi 11

Tive o mesmo problema, mesmo apagando os fontes. Desmarquei o e social e instalou no delphi 10.4 e Delphi 11. Mas fiz os testes só até as 17:30

Configura a propriedade timeout com um tempo menor

Tive um problema parecido para funciona no NuvemShop que so aceita com Bearer. No meu caso eu tinha que passar no handle RESTRequest1.Params.Clear; RESTClient1.Authenticator := nil; RESTRequest1.Method := TRESTRequestMethod.rmGET; RESTRequest1.AddAuthParameter('Authentication','bearer ' + FTOKEN, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]); No meu caso tinha que passar: Authentication no seu se for RESTRequest1.AddAuthParameter('Authorization','bearer ' + FTOKEN, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]); se precisar de outros campos adicionar manulamente tem caso que o "bearer" deve ser minusculo e com um espaço entre o FToken e com poDoNotEncode // RESTRequest1.Accept := 'application/json'; // RESTClient1.ContentType := 'application/json'; with RESTRequest1.Params.AddItem do begin name := 'Content-Type'; Value := 'application/json'; ContentType := ctMULTIPART_FORM_DATA; Kind := TRESTRequestParameterKind.pkREQUESTBODY; end; with RESTRequest1.Params.AddItem do begin name := 'Accept'; Value := 'application/json'; ContentType := ctMULTIPART_FORM_DATA; Kind := TRESTRequestParameterKind.pkREQUESTBODY; end; with RESTRequest1.Params.AddItem do begin name := 'User-Agent'; Value := 'SeApiWs ([email protected])'; ContentType := ctMULTIPART_FORM_DATA; Kind := TRESTRequestParameterKind.pkREQUESTBODY; end; RESTRequest1.Execute; Funciona até no Rest Debuguer , so não pode usar o OAuth2AuthenticatorOauth diretamente

tem outra informação sobre o componente?

Todos os envios no Evento com Schemas s.1.0 estão dando erro, informa que não acha os schemas mas os schemas tem nomes: v_S_01_00_00.xsd O que esta errado na unit: pcesConversaoeSocial linha 2471 Esta assim: function StrToVersaoeSocial(out ok: Boolean; const s: String): TVersaoeSocial; begin result := StrToEnumerado(ok, s, ['02_04_01', '02_04_02', '02_05_00', 'S01_00_00'], [ve02_04_01, ve02_04_02, ve02_05_00, veS01_00_00]); end; function VersaoeSocialToStr(const t: TVersaoeSocial): String; begin result := EnumeradoToStr(t, ['02_04_01', '02_04_02', '02_05_00', 'S01_00_00'], [ve02_04_01, ve02_04_02, ve02_05_00, veS01_00_00]); end; se os schemas estiverem certos deveria ser assim? function StrToVersaoeSocial(out ok: Boolean; const s: String): TVersaoeSocial; begin result := StrToEnumerado(ok, s, ['02_04_01', '02_04_02', '02_05_00', '_S_01_00_00'], [ve02_04_01, ve02_04_02, ve02_05_00, veS01_00_00]); end; function VersaoeSocialToStr(const t: TVersaoeSocial): String; begin result := EnumeradoToStr(t, ['02_04_01', '02_04_02', '02_05_00', '_S_01_00_00'], [ve02_04_01, ve02_04_02, ve02_05_00, veS01_00_00]); end;

Dll na pasta Windows diferente das dll da sua pasta do executável, dll da ACBr

O Danfe Fortes já tem a propriedade marca d'agua(Impressão do Logo como marca D'Agua no Fundo do Danfe) Fortes funciona. ACBrNFeDANFeRL.MarcadAgua := 'logo.png' Fast não tem a proprieade Tem a msg ACBrNFeDANFEFR.MarcaDaguaMSG := ' msg texto' Poderiam implementar o mesmo no Danfe do Fast? ACBrNFeDANFEFR.MarcaDagua := 'logo.png'

Sobre o uso PDV m8. Ele roda Android da para instalar o cliente Remote Desktop para conectar ao Windows server? Qual resolução ele suporta? E a impressora pode ser compartilhada no Remote Desktop? obrigado desd já.

ok vamos aguardar. Obrigado

Sim, se pagar o boleto via QRCODE não dará baixa automático, pois seria uma transação independente. Sim, haverá confusão. Mas entendo que poderia ser incluído na parte de cima do boleto (opcional)

Criar o código sim e gerar o Qrcode Dinâmico, visualizar,imprimir, enviar por e-mail etc, Sim receber diretamente Não.” O cliente usará o app do celular dele para pagar” Você chega no PDV e cliente quer pagar com PIX, como a empresa não tem integração você gera o PIX dinâmico na tela e ou imprimir, o cliente lê o Qrcode no celular dele faz o pagamento e envia o comprovante para você. Assim o cliente não precisa digitar nem a chave nem o valor só confirmar a transação. outra opção será imprimir diretamente no boleto para o cliente que paga via depósito ter uma opção mais rápida de pagamento

Arquivo Fast Padrão do Boletofr.frx ja com o Qrcode Agora basta preencher em tempo de execução o código no Fast uses frxBarcode2D; TfrxBarcode2DView(frxReport1.FindObject('Barcode2D1')).Visible := True; TfrxBarcode2DView(frxReport1.FindObject('Barcode2D1')).text := '00020126480014br.gov.bcb.pix0126Suporte@projetoacbr.com.br0204ACBR52040000530398654041.125802BR5909ACBR nome6008BRASILIA6205050106304FB95' BoletoFR.fr3