Antonio Carlos L

Pessoal desculpe a pergunta que pode parecer tola, mas fiquei preocupado quanto a diretivas de compilação. No Delphi XE o Indy padrão é o 10.5.7 e para usar um componente, o RestDW preciso instalar o Indy 10.6.2 que é diferente. Pelo que entendi o Berlin faz uso desse Indy 10.6.2 e não havendo diretivas de compilação tudo bem vai rodar, mas não posso arriscar nessa maquina Não sei a dependência do ACBr do Indy e pareceu sensato perguntar antes de ficar louco com problemas aleatorios. Obrigado.

Qual a engine de impressão e a versão do seu ACBr ? Olhando seu xml, não vi caracteres de controle, entretanto mesmo sendo uma nota em homologação, o que é informado nada se relaciona com o produto em si : <cProd>2098</cProd> <cEAN/> <xProd>ABRACADEIRAS NYLON DIVERSOS TAMANHOS</xProd> <NCM>39269090</NCM> <CFOP>5102</CFOP> -<ICMS> -<ICMSSN102> <orig>0</orig> <CSOSN>102</CSOSN> </ICMSSN102> <infCpl>Valor Aproximado dos Tributos R$ 0,10 Fonte: IBPT;Forma Pgto: 100/VENDA A VISTA;Vendedor:ENIO;INFORMACOES COMPLEMENTARES:;- RMA: 133636;- DEVOLUCAO REF. a(s) NF(s): 846134;- BASE DE CALCULO DO ICMS: 453,71;- VALOR DO ICMS: 49,36;- BASE DE CALC. ICMS SUBSTITUICAO: 414,26;- VALOR DO ICMS SUBSTITUICAO: 25,22;- VALOR TOTAL DO IPI: 9,29;- VALOR TOTAL DE PRODUTOS: 453,71;>ICMS Nao Incidente cfe Livro I, Art. 11, Titulo III, Inc V do RICMS Decr 37.699/97 | >Lei 10637/2002 Art. 5 A contr. PIS/PASEP nao incidira sobre as receitas decorrentes das operacoes de: I-exportacao de mercadorias para o exterior. III vendas a empresa coml export c/fim especif de exportacao.;</infCpl> </infAdic>

Voce já tentou informar o grupo de recebimento no valor exato ?

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.