Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

FABRICIO CERAVOLO PENA

Membros
  • Posts

    70
  • Joined

  • Last visited

Everything posted by FABRICIO CERAVOLO PENA

  1. Alguém sabe como faço para diminuir o width de um relatorio fortes report? Para se adequar a largura de um cupon fiscal que possui 97mm. Obrigado
  2. Pode explicar melhor como faço uso desta função para gerar um png ?
  3. memoLog.Text := ACBrNFe1.GetURLQRCode( ACBrNFe1.NotasFiscais.Items[0].NFe.ide.cUF, ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb, OnlyNumber(ACBrNFe1.NotasFiscais.Items[0].NFe.InfNFe.ID), IfThen(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.idEstrangeiro <> '',ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.idEstrangeiro, ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF), ACBrNFe1.NotasFiscais.Items[0].NFe.ide.dEmi, ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF, ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS, ACBrNFe1.NotasFiscais.Items[0].NFe.signature.DigestValue ); DigestValue está vindo vazio uma vez que nao uso o procedimento de enviar. Quero fazer a contingência. O que deve ser feito para que este valor venha preenchido sem usar o ACBrNFe1.Enviar(vNumLote,True,Sincrono) para enviar depois. Alguem ajuda por favor.
  4. Pode me dar um exemplo de código para gravar o png no computador ???
  5. Alguém experiente pode dar alguma dica de como gerar o QR Code sem estar conectado na internet ? Estou usando a API do google para gerar o QR Code, preciso de alguma maneira offline para gerar este QR Code... Ajuda urgente.
  6. [DCC Error] UnitNFe2.pas(3696): E2033 Types of actual and formal var parameters must be identical
  7. if CNPJCPF <> '' then begin Ide.indFinal := cfConsumidorFinal; Dest.indIEDest := indIEDestToStr('9'); //Dest.CNPJCPF := CNPJCPF; end;// else Ide.indFinal := cfNao; NAO DEU CERTO TAMBEM OUTRA COISA É QUE AS TAGS DO CONSUMIDOR NÃO APARECEM NO XML
  8. Exception: Falha na validação dos dados da nota: 95 TAG:<dest> ID:E16a/indIEDest(Indicador da IE do Destinatário) - Nenhum valor informado. 1824 - Element '{http://www.portalfiscal.inf.br/nfe}indIEDest': '' is not a valid value of the local atomic type.
  9. InputQuery('CNPJ/CPF', 'CPF / CNPJ na Nota ?', CNPJCPF); if CNPJCPF <> '' then begin Ide.indFinal := cfConsumidorFinal; Dest.indIEDest := TpcnindIEDest( '9'); //Dest.CNPJCPF := CNPJCPF; end else Ide.indFinal := cfNao; Dest.ISUF := ''; Dest.xNome := 'CONSUMIDOR'; Dest.EnderDest.Fone := ''; Dest.EnderDest.CEP := 0; Dest.EnderDest.xLgr := ''; Dest.EnderDest.nro := ''; Dest.EnderDest.xCpl := ''; Dest.EnderDest.xBairro := ''; Dest.EnderDest.cMun := 0; Dest.EnderDest.xMun := ''; Dest.EnderDest.UF := ''; Dest.EnderDest.cPais := 1058; Dest.EnderDest.xPais := ''; alguém sabe o que está faltando para que se crie as tags do destinatário na NFCe? quando habilito esta cláusula Dest.CNPJCPF := CNPJCPF; ele não envia a NFCe.
  10. Não sei se é o correto amigos mas resolveu desta maneira. Obrigado a todos os mentores do ACBr. //VERIFICAR SE PRECISA IMPRIMIR DANFE NFCe if not FormConfig.chkDanfeNFCe.Checked then ACBrNFe1.DANFE := nil else ACBrNFe1.DANFE := ACBrNFeDANFeRL1; //***************************************
  11. Como desassociar e associar o componente ACBrNFeDANFEFR via código ? Alguém sabe... URGENTE Como faço isso via código Juliomar ? Desassociar ou associar conforme a necessidade ?
  12. Alguém pode me ajudar a configurar as variáveis do ACBR para ISENTO CONTRIBUINTE E NÃO CONTRIBUINTE ? Com meu código atual consigo enviar apenas NFe que tem IE e CNPJ, para os outros casos não está funcionando ... vejam o código como ficou ... if (length(RetiraCaracterCPFCNPJ(NotaF.NFe.Dest.CNPJCPF)) = 11) and (NotaF.NFe.Dest.IE = 'ISENTO') then begin NotaF.NFe.Dest.IE := ''; NotaF.NFe.Dest.indIEDest := inIsento ; end; if (length(RetiraCaracterCPFCNPJ(NotaF.NFe.Dest.CNPJCPF)) = 14) and (NotaF.NFe.Dest.IE = 'ISENTO') then begin //NotaF.NFe.Dest.IE := 'ISENTO'; NotaF.NFe.Dest.indIEDest := inNaoContribuinte; end else if (length(RetiraCaracterCPFCNPJ(NotaF.NFe.Dest.CNPJCPF)) = 14) and (NotaF.NFe.Dest.IE <> '') then begin NotaF.NFe.Dest.indIEDest := inContribuinte; end;
  13. Esse ACBrNFeDANFCe é para imprimir o cupon fiscal ? Não quero que apareça esta janela de DANFE somente porque eu fiz na mão o cupon fisca no fast report. Você entendeu ? É so para não aparecer esta janela de Danfe acima descrita que serve apenas para a NFe. No caso eu gostaria que depois que a função enviarNFCe fosse usada não aparecesse esta janela acima de DANFE entende... não sei como desabilitar ela , ela acontece no final deste procedimento enviarNFCe. Obrigado por responder e ajudar.
  14. Como faço para que quando se gere uma NFCe não apareça o DANFE ? Alguem pode ajudar ? Desde já agradeço.....
  15. The ACBrTEFD1CliSiTefObtemCampo method referenced by CliSiTef.OnObtemCampo has an incompatible parameter list. Remove the reference? Quando tento abrir o exemplo do ACBr TEF me gera este erro. Alguém pode me ajudar ?
  16. gostaria de ajuda. Quando envio a NFCe , não tenho as variáveis de retorno: Recibo e Protocolo ... tenho apenas a variável xMotivo. Isto está correto ? Alguem sabe ?
  17. [DCC Error] UnitNFe2.pas(4482): E2250 There is no overloaded version of 'CalcularHash' that can be called with these arguments na minha máquina deu este erro alguem sabe porque ? Memo.Text := Memo.Text + '&cHashQRCode=' + Hash_SHA1; erro nesta linha
  18. Hash_SHA1 := ACBrEAD1.CalcularHash(UTF8Encode(memoLog.Text), dgstSHA1); tenho erros nesta linha [DCC Error] UnitNFe2.pas(4483): E2250 There is no overloaded version of 'CalcularHash' that can be called with these arguments Hash_SHA1 esta declarada na funcao como string . Alguem ja passou por isso ?
  19. Fiz o citado acima e o programa não grava o bitmap. Onde estou errando ? Alguém sabe ? unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation function eGerarQrCodeArquivo_DUAL_DarumaFramework(stPath: String; stCodigo: String): Integer; StdCall; External 'DarumaFrameWork.dll'; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin eGerarQrCodeArquivo_DUAL_DarumaFramework('c:\teste.bmp', '<qrcode>aaz</qrcode>'); end; end.
  20. Por favor alguém sabe como que eu localizo o ACBrNFeUtil. Vejam que o Delphi não está encontrando a unidade na imagem. Como faço para adicionar esta unidade no meu projeto ?
  21. Onde consigo o ACBRPrinter ? Não ficou claro onde e como.
  22. Fiz o procedimento exemplo do ACBr para gerar uma NFCe e quando consegui aparece o DANFE no final após enviar... Como faço para imprimir o CUPON com QRCode ? Alguém ? Boa tarde.
  23. Como faço para imprimir o cupon da NFCe , voce sabe ? Voce sabe se ele imprime sozinho depois do GerarNFCe ?
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.