Antonio Carlos L

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.

Usado o DEMO

É possível pelo ACBrNFeDANFeESCPOS gerar o PDF do cupom ?

Resolvido. O bloco de envio está em um try except e a mensagem de erro "Operation aborted" não dava uma precisão. O problema se deu porque o ACBr passou a gravar o PDF obedecendo a mesma ordenação do XML da nota. E ao tentar ser incluído gerava a exceção.

Amigos em alguns clientes ao chamar o envio do ACBrMail está ocorrendo a mensagem de erro "Operation aborted" e parece ter relação com recentes atualizações do componentes pois nesses clientes a versão é mais nova. Na minha maquina não ocorre nenhum erro. Ja verifiquei as DLLs , já copiei para a pasta system32 e nada. Alguma luz ? Obrigado

PODE SER, que esteja relacionado com o CEST, já que esse NCM possui esse código. Sobre a exigência do CEST, esclarecemos que a NT 2015.003 com a alteração introduzida na versão 1.94 postergou unicamente a implementação da regra de validação para 01-abril-2018 do sistema NF-e, sem alterar o calendário previsto na legislação - o cronograma previsto no Convênio ICMS 60/2017, o qual altera os Convênios ICMS 92/15 e ICMS 52/17, deve ser cumprido, iniciando a exigência em 01-jul-2017 para as indústrias e importadores, atingindo os atacadistas em 01-out-2017 e os demais segmentos em 01-abr-2018.Coordenação Técnica do ENCAT Obrigatoriedade de uso do CEST conforme Convênio ICMS 60/2017, a partir de: 01/07/2017 01/10/2017 01/04/2018 para a indústria e o importador para o atacadista para os demais segmentos econômicos

Caros, li em postagens anteriores, há meses atrás, que o Daniel estava tendo muito trabalho com a mudança do novo protocolo de segurança e certificado A3. Isso já foi resolvido ? Obrigado.