Antonio Carlos L

Para qual UF o erro se apresenta ?

Boa tarde, Usando na forma abaixo, SEM MEXER em DLL ou no ACBr INC funciona. Sobre a alegação de não funcionar em produção é porque a mesma será liberada apenas em 06/11/17 apenas Homologação esta liberada desde 03/07/17 Estou usando para teste certificado A1. Penso que funcione do mesmo jeito ou para funcionar em A3 ai é que precisa mexer na DLL pois havia entendido que usando a libWinCrypt a comunicação seria diretamente com o windows SEM a CAPICON

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