Antonio Carlos L

Oi Juliomar Ainda estou tentando "isolar" um XML como causa. No log de erro, mesmo tendo identificado o ultimo XML lido, onde apresentou o erro, se abro esse xml isoladamente, o PDF é gerado e o XML abre normalmente. No log de erro, não é o mesmo XML que causa o erro, mudei o lote de XMLs e isso ocorre com outros XMLs. Vou aprofundar mais para te passar algo mais elaborado.

Caros responsáveis pelo projeto, em anexo está o código alterado, foi acrescentado ao Demo o Path de Download e o Path de PDF do DANFE e a gravação no INI para vossa apreciação. DemoNFe_Alteracoes.zip

ACBr revision SVN 13946 03/0ut/17 Fortes revision SVN 416 24/Jun/17 Sim. Se eu pegar um lote de XML e tentar gerar o PDF em um dado momento ele levanta o erro. Já vi que não se relaciona a um dado XML em especifico. Exemplifico com o código ACbrNFe1.NotasFiscais.Clear; while not Eof begin if ACbrNFe1.NotasFiscais.LoadFromFile(sXml) then try ACbrNFe1.NotasFiscais.ImprimirPDF; finally ACbrNFe1.NotasFiscais.Clear; end; nenhuma complexidade.

Obrigado pelo retorno Juliomar, o erro ocorre no momento de gerar o DANFE

Caros ao gerar o PDF a partir do XML, as vezes ocorre o erro : Invalid font for GetOutlineTextMetrics, Descobri que esse erro origina-se da RLMetaVCL da Fortes Report O erro se relaciona a uma fonte que não seja True Type Isso já foi reportado ?

Somente setando para open SSL o componente conseguiu ler o certificado. Todas as cadeias estão instaladas e pelo navegador é possível acessar áreas com o certificado. SSLLib = libWinCrypt CryptLib = cryWinCrypt HttpLib = httpWinHttp XMLsignLib = xsMsXml SSLtype = LT_all Configuração testada.

Obrigado Sérgio, achei estranho, mas é Default. Ok

Oi Sérgio, verifiquei conforme sugerido a propriedade informada na unit ACBrNFeConfiguracoes function TArquivosConfNFe.GetPathDownload(xNome: String = ''; CNPJ: String = ''; Data: TDateTime = 0): String; var rPathDown: String; begin rPathDown := ''; if EstaVazio(FDownloadNFe.PathDownload) then FDownloadNFe.PathDownload := PathSalvar; if (FDownloadNFe.SepararPorNome) and (NaoEstaVazio(xNome)) then rPathDown := rPathDown + PathWithDelim(FDownloadNFe.PathDownload) + OnlyAlphaNum(xNome) else rPathDown := FDownloadNFe.PathDownload; Result := GetPath(rPathDown, 'Down', CNPJ, Data); end; O erro parece ser neste ponto Result := GetPath(rPathDown, 'Down', CNPJ, Data); que esta acrescentando 'Down' ao path informado. Esse comportamento então é o esperado ?

Oi Sérgio, então o PathDownload esta sendo alimentado com C:\Download a propriedade SepararPorNome esta False

O ACBrNFe esta configurado para salvar mensalmente dentro da pasta c:\downloads por exemplo, ele cria corretamente a pasta do presente mês c:\download\201709 entretanto Dentro das pastas esta criando uma pasta Down, ficando assim c:\download\201709\Down , não sei se o objetivo era que *-resNFe.xml ficasse na pasta superior e *-nfe.xml ficasse nessa pasta ( down ) mas ambos estão sendo direcionados para a mesma pasta. Como não parece ser uma configuração, creio seja um erro, poderiam confirmar ?

Obrigado.

Caros, DocZipItem.resNFe.cSitNFe possui as seguintes situações : snAutorizado, snDenegado, snCancelado e snEncerrado O que seria essa condição snEncerrado ? Obrigado.

Lincoln, mesmo uma nota de simples remessa, onde o valor seja muito reduzido, vai haver um total, eu optaria por selecionar OUTROS o que muitos já faziam anteriormente.

Ok Fabricio, entendi agora quando mostrou o tipo. Obrigado

Caros Fabricio e Juliomar , refiz os testes , mudei a forma de ler e mesmo tendo diminuído, continuou a gerar com duplicidade. Para evitar dúvidas, usei o Exemplo , veja abaixo : Fiz a seguinte mudança no código, como pode ver esta sendo inserido uma UNICA vez , o controle de versão do SVN indica 13858 Se eu não faço a chamada mais de uma vez, não teria porque estar sendo gerado em duplicidade

Oi Juliomar obrigado pela resposta, Eu não usei WITH , if (( pag.Add.tPag = fpDinheiro) apenas achei que ao usar = ao invés de := estaria lendo como se faz como uma property Então para ler seria algo do tipo if pag.Items.tPag

Oi Fabricio, obrigado pelo seu retorno. Quer dizer que ao fazer ( pag.Add.tPag := ) ou ( pag.Add.tPag = ) o resultado é o incremento, não é apenas leitura ?

Caros, a tabela de Pagamento possui um ÚNICO lançamento em dinheiro no valor exato da nota e o xml é gerado ( e autorizado em homologação ) da seguinte forma O código responsável por popular essas informações é este abaixo, foi feito Debug , está sendo varrido UMA única vez. O exemplo do demo ainda esta na versão 3.0 por isso não tentei reproduzir testei por ele, o controle de versão do SVN indica 13858 Existe um problema no componente ? DM.cdsPAG.First; while not DM.cdsPAG.Eof do begin pag.Add.tPag := RetornaTipoPag(DM.cdsPAG.FieldByName('YA02_TPAG').AsString); if DM.cdsPAG.FieldByName('YA03_VPAG').AsCurrency > 0 then pag.Add.vPag := DM.cdsPAG.FieldByName('YA03_VPAG').AsCurrency; if (( pag.Add.tPag = fpDinheiro) and ( dm.cdsPAG.FieldByName('YA09_VTROCO').AsCurrency > 0 )) then pag.vTroco := dm.cdsPAG.FieldByName('YA09_VTROCO').AsCurrency; if (( pag.Add.tPag = fpCartaoCredito ) or ( pag.Add.tPag = fpCartaoDebito )) then begin case bTef of True : begin pag.Add.tpIntegra := tiPagIntegrado; pag.Add.CNPJ := DM.cdsPAG.FieldByName('YA05_CNPJ').AsString; pag.Add.tBand := RetornaBandeira(DM.cdsPAG.FieldByName('YA06_TBAND').AsString); pag.Add.cAut := DM.cdsPAG.FieldByName('YA07_CAUT').AsString; end; False : begin pag.Add.tpIntegra := tiPagNaoIntegrado; // pag.Add.cAut := DM.cdsPag65.FieldByName('YA07_CAUT').AsString; end; end; end; DM.cdsPAG.Next; end;

Obrigado Juliomar, você esta correto nas suas observações. Vlw.

Caros, estou fazendo uma interface de importação de XML usando o TACBrNFe mas me falta um entendimento do componente. Quando se faz o carregamento do XML o componente detecta automaticamente a versão do XML e já faz a leitura baseado nesse conhecimento ou para que carregue de forma correta é necessário informar a versão do xml corretamente ? Obrigado.

1 - Se entendi bem, ao selecionar a SSLLib := libWinCrypt; o restante internamente passa a ser setado para SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsMsXml; e por ser setado SSLHttpLib := httpWinHttp; eu posso ter Independência das configurações de segurança do I.E. e por minha aplicação ser de 32 bits e SSLXmlSignLib := xsMsXml; consigo ler o certificado A3 e A1 instalado no windows. Isso tudo é correto ? 2 - Se SSLLib := libWinCrypt; e no ACBr.inc eu não puder fazer {$DEFINE DFE_SEM_CAPICOM} ainda precisarei distribuir e registrar a CAPICOM ? Obrigado.

Desculpe quando me dei por conta já tinha ido. Terei mais atenção da próxima.

SENHORES MODERADORES, SOLUÇÃO EM ANEXO ACBrNFeDAInutRL.dfm

Obrigado, eu havia visto esse vídeo há um tempo atrás, vou testar. O problema é que mesmo que eu crie um form simples, um button e um create algo sem destruir, o FastMM4 não mostra nada ! Eu já usei no D7 e funcionava. Mas obrigado.

Caros achei um memory leak no ACBr usando ReportMemoryLeaksOnShutdown := True no DEMO Mas a informação retornada não é suficiente para dizer onde. Baixei o FastMM4 do site, coloquei FastMM4.pas como a primeira unit no dpr, copiei a dll FasMM_FullDebugMode para onde é criado o executavel no arquivo FastMM4Options.inc esta descomentado FullDebugMode e mespo assim não gera o tal arquivo contendo o relatório mais detalhado. Creio que eu esteja fazendo algo errado uma vez que vi relatos de diveros usuários com XE,XE2,XE4 rodando o FAstMM4 Alguem saberia me ajudar ? Obrigado.