Antonio Carlos L

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.

Obrigado, realmente por algum motivo, coisas do hotmail, estava no lixo eletrônico

Caros, não sei se estou equivocado, mas não é hoje as 16h o evento anunciado sobre Boletos ? A pergunta se deve pois ate o momento não recebi nenhum email passando o link. Desculpem se estou fazendo confusão. Obrigado

Eu acredito que a questão não seja a contingencia ou não. Já ouvir falar em sistemas que ficam em contingencia o dia inteiro e no final do dia alguem ou alguma thread envia eles Outros que so entram em contingência manualmente ou automaticamente se cair a internet. Acho que você deveria focar em ter certeza que o gerador numerico será incrementado independente da nota ser enviada ou não, no máximo o trabalho seria inutilizar o numero.

Claudio pelo que entendi, corrijam se eu estiver errado, o DPEC é usado em NFe. Não sei se o DPEC em NFCe é o próprio DANFE em contingência. Pelo menos é a primeira vez que tenho contato com essa informação. Eu enviei a questão da impressão em duas vias para um contador junto com a citada lei e ele me disse que imprimir em uma é respaldado. Alguem sabe em qual unit fica a chamada a reimpressão em contingência e se ela pode ser sobrescrita ?

Então, eu li algumas postagens e descobri que o meu problema ou ocorre pelo tal time-out que um colega informou ter sido referenciado como "buraco negro" ou da sefaz ou pela queda da internet mesmo. Dai que coloquei um log nestes clientes pois aqui eu não consigo simular o mundo real em sua plenitude. Ocorreram 4 situações ( se souber de outras por favor avise ) 1 - Houve retorno 0 , mas o xml havia sido autorizado; 2 - Houve retorno 0 , mas o xml Não havia sido autorizado; 3 - Houve uma exception, mas o xml havia sido autorizado; 4 - Houve uma exception, mas o Não xml havia sido autorizado; Eu na NFCe optei por não fazer consulta de status Fiz uma função usando InternetCheckConnection(PING_SEFAZ_DOMAIN_BR,1,0); e depois InternetGetConnectedState(@Flag, 0) e estando OFF sugiro que o operador passe para contingencia, ao fazer isso, novo xml em contigência ( com novo numero ) é gerado e realizo a impressão. estando ON Nas condições 2 e 4 em uma consulta havia o retorno : 217 - Rejeição: NF-e não consta na base de dados da SEFAZ Então envio e pronto. Nas condições 1 e 4 bastou uma consulta e atualizar o status da nota e se foi autorizado ( poderia ter sido recebido mas rejeitado ) pergunto se reimprime. Isso até o momento em relação aos 3 clientes me deu sossego. Algo que eu não fiz foi um laço de consulta muito profundo pois fiquei com medo de dar excesso de consumo e a sefaz bloquear o IP