[FORTESREPORT TAMANHO]

22 horas atrás, Juliomar Marchetti disse:

Confere o fr3 que existe para NFC-e com ele vai conseguir verificar essa questão.

Juliomar voce pode me passar seu contato ?

[FORTESREPORT TAMANHO]

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

[GERAR QR CODE OFFLINE]

obrigado resolvido

 

[GERAR QR CODE OFFLINE]

Pode explicar melhor como faço uso desta função para gerar um png ?

 

[QR CODE SEM DigestValue]

      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.

[GERAR QR CODE OFFLINE]

Pode me dar um exemplo de código para gravar o png no computador ???

[GERAR QR CODE OFFLINE]

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.

[NFCe com CPF não cria a tag do contribuinte]

[DCC Error] UnitNFe2.pas(3696): E2033 Types of actual and formal var parameters must be identical

[NFCe com CPF não cria a tag do contribuinte]

      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

 

[NFCe com CPF não cria a tag do contribuinte]

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.
 

[NFCe com CPF não cria a tag do contribuinte]

      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.

[NFCe IMPRIMINDO DANFE]

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;

  //***************************************
 

[NFCe IMPRIMINDO DANFE]

Como desassociar e associar o componente ACBrNFeDANFEFR via código ? Alguém sabe... 

URGENTE

 

Em 2017-5-21 at 16:07, Juliomar Marchetti disse:

basta não associar o componente e nem colocar ele que vai resolver.

Como faço isso via código Juliomar ? Desassociar ou associar conforme a necessidade ?

[NFE ISENTO CONTRIBUINTE NAOCONTRIBUINTE]

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;
 

[NFCe IMPRIMINDO DANFE]

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.

[NFCe IMPRIMINDO DANFE]

Como faço para que quando se gere uma NFCe não apareça o DANFE ?

Alguem pode ajudar ?

 

Desde já agradeço.....

[ACBr TEF - Mensagem de erro Exemplo ACBr]

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 ?

[retorno da NFCe]

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 ?

[Ajuda Com Geracao Da Url Para O Qr Code Da Nfc-E]

Em 2013-10-25 at 14:40, Leonardo Gregianin disse:

Meu código funciona assim:

function StringToHex(S: String): String;
var i: Integer;
begin
  Result:= '';
  for i := 1 to length(S) do
    Result:= Result+IntToHex(ord(S[i]),2);
end;

function Iif(Condicao: Boolean; Verdadeiro, Falso: Variant): Variant;
begin
 if Condicao then
   Result := Verdadeiro
 else Result := Falso;
end;

if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?'
else
  URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?';

if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  tpAmb := '1'
else
  tpAmb := '2';
cDest := Iif(Length(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, '');

Memo.Lines.Clear;
Memo.Text :=  URL +
              'chNFe='     + ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe +
              '&nVersao='  + '100' +
              '&tpAmb='    + tpAmb +
              Iif((Length(cDest) > 0),('&cDest=' + cDest), '') +
              '&dhEmi='    + StringToHex(DateTimeTodhUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) +
              '&vNF='      + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) +
              '&vICMS='    + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) +
              '&digVal='   + StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) +
              '&cIdToken=' + '000001';

Hash_SHA1 := ACBrEAD1.CalcularHash(UTF8Encode(Memo.Text), dgstSHA1);
Memo.Text := Memo.Text + '&cHashQRCode=' + Hash_SHA1;

[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

[Hash_SHA1 ACBrEAD1 CalcularHash]

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 ?

 

[Gerar Qr Code]

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.

[ACBrNFeUtil não encontrado no Delphi]

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 ?

 

 

[Impressão utilizando ACBrPrinter]

Onde consigo o ACBRPrinter ? Não ficou claro onde e como.

[NFCe imprimindo Danfe]

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.

[TEF Começando]

Agora, EMBarbosa disse:

Desculpe, eu não sei responder.

Como faço para imprimir o cupon da NFCe , voce sabe ? 

Voce sabe se ele imprime sozinho depois do GerarNFCe ?