Solivan

O que acontece é que você excluiu o Danfe pra Fast Report como você mesmo mencionou acima no seu post, atualizou e com isso remove os beneficios da atualização pra Danfe com QrCode em Fast Report que já estava prontinho.

Bom dia! Essa é a questão Juliomar, eu instalei aqui e gerou esse pacote, quando fui instalar o ACBr tive que renomear todos ... eu acho que a empresa do quickreport atualizou o produto pra esta versão no XE6 QR506RunDXE6 5.06 Solivan.

Olá estou usando a suite no XE6 e em todos os pacotes onde há uso do quickreport estou tendo que alterar o nome do pacote de QR5RunDXE6 para QR506RunDXE6, será que existe duas versões do quick report, teria como setar isso através de diretivas? para não ter que ficar alterando e compatibilizar o instalador com a tal versão do XE6. Obrigado! Solivan

Ou Ou então pode simplesmente configurar a impressora de Danfe como sendo a impressora padrão e na hora de enviar o parâmetro impressora use uses Printers; { Pega o nome da impressora padrão } function GetDefaultPrinterName : string; begin if (Printer.PrinterIndex > 0)then begin Result := Printer.Printers [Printer.PrinterIndex]; end else begin Result := ''; end; end; NFe.ImprimirDANFE(cArquivo, GetDefaultPrinterName, nCopias) Espero que isso ajude. *Caso você não use delphi como IDE, desconsidere minha sugestão.

if not ACBrNFe.NotasFiscais.Items.Confirmada then begin with ACBrNFe.WebServices.Retorno.NFeRetorno do begin if ProtNFe.Items.cStat = 204 //Rejeição: Duplicidade de NF-e then begin { Implemente aqui a consulta } end; end; end;

Você pode usar o retorno por duplicidade pra implementar uma rotina de consulta automática. Já que o envio por duplicidade gera um código específico pra esta situação.

Obrigado, Isaque Pinheiro

Olá estou tendo alguns problemas ao instalar o dephi XE6 e percebi que o local onde vão os arquivos bpls do ACBr está um pouco diferente do caminho padrão do dephi XE6, gostaria de saber se o erro é proposital para contornar alguma falha (work around). function TfrmPrincipal.GetDefaultBDSCommonDir: string; const CSIDL_COMMON_DOCUMENTS = $002E; // All Users\Documents var CommonDocuments: array[0..MAX_PATH] of Char; begin Result := GetEnvironmentVariable('BDSCOMMONDIR'); if (oACBr.Installations[iVersion].RadToolKind = brBorlandDevStudio) and SHGetSpecialFolderPath(GetActiveWindow, CommonDocuments, CSIDL_COMMON_DOCUMENTS, False) then if oACBr.Installations[iVersion].VersionNumber >= 14 then Result := IncludeTrailingPathDelimiter(CommonDocuments) + 'Embarcardero\Studio' + PathDelim + Format('%d.0', [oACBr.Installations[iVersion].VersionNumber]) else if oACBr.Installations[iVersion].VersionNumber >= 6 then Result := IncludeTrailingPathDelimiter(CommonDocuments) + 'RAD Studio' + PathDelim + Format('%d.0', [oACBr.Installations[iVersion].VersionNumber]); end; Está escrito "Embarcardero" quando na verdade se escreve "Embarcadero", gostaria de saber se o erro é proposital.

e ainda tem perfil público no facebook

Ítalo inclui mais uma cidade 1508407 Alteração em anexo. ACBrProvedorFiorilli.pas

Obrigado a todos que tiveram o interesse em ler o post, mas já temos um vencedor. Post Encerrado.

Olá a todos! Estou desenvolvendo um componente para Farmácia Popular, estou bem adiantado mas preciso de algum usuário e senha da farmácia, para efetuar os testes no ambiente de homologação. Se alguém quiser compartilhar algum usuário e senha para os testes estou disposto a compartilhar os fontes deste componente. Obrigado. Segue abaixo a tela do componente (50% concluido, escopo todo criado concluido a 1 fase da solicitação, preciso de senha e usuario para continuar.)

Isso ai não é erro, é apenas uma advertência caso o usuário esteja mal intencionado ou até mesmo desinformado sobre o uso do COMPONENTE.

Olá fiz algumas alterações no componente ACBrNFeDANFeESCPOS, pra suprir as necessidades de emissão da sangria e suprimentos no caixa, Se algum dos moderadores achar que é de alguma utilidade a alteração e quiser atualizar o repositório. Segue em anexo o arquivo alterado. Att. Solivan ACBrNFeDANFeESCPOS.pas

Estavam comentadas porque em versões superiores a que vc usa esse código se torna obsoleto.

Você teria algum xml de exemplo pra disponibilizar pra teste!

Acho que você está errando na hora de gerar o HashCode &cHashQRCode http://homnfce.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?chNFe=13140300838926000150650010000000011000000010&nVersao=100&tpAmb=2&cDest=05481336000137&dhEmi=323031342D30332D32305431363A30373A35322D30343A3030&vNF=100.00&vICMS=18.00&digVal=564D682B574E776A5A446265566B3373764148473634694B4372513D&cIdToken=000001&cHashQRCode=42D2EF78F20C0FB2E7499D590DD3F08FB9483573 Você pode fazer da seguinte forma também; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); with ACBrNFe1.NotasFiscais.Items[0].NFe do begin mmURL.Lines.Clear; cIdToken := '000001'; cToken := Copy(OnlyNumber(Dest.CNPJCPF), 1, 8)+IntToStr(YearOf(Now))+'0001'; mmURL.Lines.Add( NotaUtil.GetURLQRCode(Ide.cUF, Ide.tpAmb, OnlyNumber(infNFe.ID), OnlyNumber(Dest.CNPJCPF), Ide.dEmi, Total.ICMSTot.vNF, Total.ICMSTot.vICMS, signature.DigestValue, cIdToken, cToken ) ) ; end;

É por isso que uso SQL Server, rs.

Para o certificado A3, isto é meio inviável eu penso porque tentei fazer isso e não deu certo também, inclusive é até aconselhável que não informe a senha na propriedade do componente porque isso gera um erro no envio da nota fiscal.

Isso se deve ao fato de você usar o delphi 7, ele não reconhece esta função, porque ela só foi implementa apartir do delphi unicode. Use dessa forma: function RemoveInvalidChar(ADataHora : string) : string; var Caracteres : TSysCharSet; I : Integer; begin Caracteres:= ['/', ':', '0'..'9']; for I := 0 to Length(ADataHora) do begin if ADataHora in Caracteres then Result := Result + ADataHora; end; Insert(' ', Result, 11); end;

...

...

volto a postar os arquivos para geração da NFC-e em Fast Report com geração do QrCode dentro do relatório de forma automática, removido a propriedade URLConsulta porque a classe NotaUtil já oferece opção, e adicionado duas propriedades IdToken e Token, não consegui usar as propriedades do componente ACBrNFe. Instalei com sucesso no meu Delphi XE, emiti a nota imprimir e testei com o app da TecnoSPEED, tudo ok. PackageDanfeNFCe.rar

É impressão minha ou está faltando as propriedades IdToken e Token, no evento beforeprint do quickreport, na função que gera o QrCode ? Coloquei, '', '') dentro da função apenas pra compilar o package.

eu uso delphi XE, e não instalei aqui, não tive tempo de testar pq conclui a alteração bem tarde da noite. Mas quais são os outros arquivos do fast, porque pelo que pude ver alterei o ACBrNFeDANFEFR.pas e o ACBrNFeDANFEFRDM.pas, inclui o arquivo DANFeNFCe.fr3 e o arquivo de registro do componente ACBrNFeDANFEFRReg.pas. Quais são os demais Juliomar.