Solivan

O correto a fazer seria gravar o XML no banco de dados como eu mesmo faço pra eventuais consultas futuras. Solivan.

Muita boa a dica Daniel, dessa forma também funcionaria para mim. Obrigado!

boa noite a todos, muito boa a alteração que o Daniel fez neste não estava mesmo funcionando mas não quis reportar, por não ter certeza, agora que foi aberto o precedente, gostaria de reportar ou me informar, se for o caso, sobre a função, ACBrECF.DataHoraUltimaReducaoZ; que trata da data da ultima redução Z. estou querendo tratar no meu sistema o seguinte; 1 . quando iniciar-se minha aplicação gostaria de saber se a rdz z foi emitida e se foi, gostaria de saber se foi automaticamente ou pelo meu sistema. 2. Então uso a data da UltimaReduçãoZ pra fazer a busca no banco de dados (SQL Server), afim de confrontar tal informação. 3. Porem quando a função me retorna ela não traz a data do movimento da ultima rdz, mas sim a data do dia, isso quando a redução z, já foi emitida. Gostaria de saber como faço, pra buscar a data que vem no arquivo txt, DataMovimento, mesmo depois que a redução z foi impressa? para consultar no banco. att. Solivan Noleto Milhomem

Muito bom pq utilizo e notei ha um certo tempo que não estava mesmo retornando corretamente.

Muito obrigado pelo retorno Izaque! vou implementar dessa forma, estava esperando algo como with Registro0175New.Add do, mas a instrução é irrelevante, desde que funcione. Solivan.

Gostaria de saber como faço pra incluir mais de uma ocorrência do registro 0175 no bloco 0 do SPED Fiscal Texto retirado do Guia Prático EFD – Versão 2.0.2, página 15 Observações: Nível hierárquico - 3 Ocorrência - 1:N Não consegui incluir mais de um registro para o participante, gostaria de saber como proceder. 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.