Edy

Estou começando ajustar meu sistema para layout 4.1 da NFe... uso esse sistema somente em minha loja e para alguns clientes na cidade, aqui no estado de Sergipe. O status da webservice está OK, mas ao tentar enviar uma NFCe, me retorna o erro que vem da formação do qrcode, algum erro está ocorrendo mais não conseguir resolver, mesmo pesquisando aqui no fórum...

Meu caro, como você resolveu essa situação? Estou passando a mesma coisa...

Ao detectar esses erros, meu sistema transmite a nota com a px numeração... a que houve um problema entra na grade de "Notas para Análise", e ativa uma variável que deixa a aplicação em Contingência Offline por 3 transmissão de NFCe ( as próximas ). Após a 3ª nota enviada em contingência ele checa o status da internet, se estiver OK, volta ao modo normal, e se o problema não for Internet e sim o servidor da sefaz, vai o ocorrer o mesmo erro da situação inicial, e novamente o sistema pula uma numeração, coloca a nota na grade de análise, e continua offline... depois essas notas em análises são consultadas e canceladas, e a numeração inutilizada, já que as offlines que possui números diferentes serão as oficiais e transmitida oficialmente para a Sefaz... bem, a lógica é bem parecida com a de alguns colegas já postada... relatei aqui para ser mais uma ideia que pode ser implantada. Um detalhe: Eu também até hoje não entendi a lógica do Governo em implantar e até multar uma empresa por não sair impresso a possibilidade de consulta do cliente da Nota pelo QR-CODE ou pelo link, porque em pesquisa que li, confirma até o que já pensava: 97% dos consumidores brasileiros não dão a mínima em verificar a nota que recebe via QR-CODE ou via Link...Francamente, não sei quem troço vai num supermercado, loja de roupas, bares, etc e vai ta se preocupando em ver se a nota está na Sefaz ou não... a vantagem pra o governo deve ser a de Multar as empresas, só pode!

Luciano Carvalho/Ou outros colegas, eu estou com o mesmo problema que vc estava... minha aplicação que usa A3 pede senha a primeira vez que vai fazer qualquer atividade com uso do certificado, ( tudo bem que depois não pede mais, só se fechar o programa ) mas... o próprio DEMO do ACBR ta funcionando em minha máquina e não acontece isso, não pede senha toda vez que inicia alguma operação, como vc resolveu isso?

Não sei pq isso veio a aparecer agora, depois dessa última atualização... pra lhe ser franco eu comentei a linha que verificava essa exceção e pronto, por enquanto ficará assim e aguardemos as próximas atualizações, pq não conseguir usar o Debug para contornar isso.

OK!

o chato é que todas as vezes que sai da aplicação em desenvolvimento cai neste tratamento de erro... mas antes não ocorria isso.

Correto o erro não vaza pra o usuário, mas em run time... Ocorre num tratamento de erro... nessa procedure: procedure CheckPINError(WinErro: DWORD; RaiseUnknown: Boolean); Nesta linha do método: if RaiseUnknown then raise EACBrDFeException.Create('Falha ao Definir PIN do Certificado. Erro: '+GetLastErrorAsHexaStr(WinErro)); até pense de colocar um EXIT como tem nas outras opções desse tratamento... mas melhor vcs analisarem. Obs.: Lembrando que o erro ocorre nessas 2 condições, e não vaza para o usuário: 1. Ao encerra a aplicação. ( desde que faça uso do certificado para alguma ação ) 2. Ao tentar obter o certificado.

Com CAPICOM fica normal, mas desde a entrada em uso do wincrypt que não mais uso Capicom.

bem, atualizei, testei e continua o mesmo erro, tanto em minha aplicação como no DEMO. Uso certificado A3, houve algo relacionado a esse tipo de certificado, que aparentemente acho que mais ninguém está ocorrendo esse erro...

Opa Juliomar, acabei viajando de última hora... bem estou usando wincrypt

Sim rodei o .Bat por mais de uma vez, como também foi refeito a instalação inclusive ( mesmo rodando .Bat ) com a opção de remover componentes total anterior marcada, nada funcionou, mas retirando o componente citado, fechando o projeto, salvando e depois reabrindo e colocando de volta o componente.. .tudo voltou ao normal.

Juliomar, qual o link deste tópico... pesquisei via google e direto pelo site e no momento não achei...

Após a atualização hoje, 21.11.17 tanto em minha aplicação em desenvolvimento como no Demo Acbr ocorre essa falha ( Falha ao Definir o Pin do Certificado. Erro: 80090005 ) em 2 situações: 1. Ao encerra a aplicação. ( desde que faça uso do certificado para alguma ação ) 2. Ao tentar obter o certificado. Obs.: Certficado A3 CertSing Lembrando que, está funcionando tudo com o uso do cerificado, emite NFe, NFCe, eventos, consultas, obtém Status etc, mas ocorre o erro nas 2 situações acima citadas, alguém sabe o que pode está ocorrendo?

Bem, já conseguir descobrir o erro. Para quem passar pela mesma situação, segue a dica: - Como uso ACBrNFeDANFCeFortesA4 para gerar opção de NFCe formatado ( para os que não preferem usar EscPos ), assim tive apenas que retirar o componente do projeto, salvar, reabrir e colocar novamente ele, resultado... Funcionou. Acabei descobrindo na seletiva, retirando componente a componente e compilando, pra saber se o erro era em algum, portanto, era nesse ACBrNFeDANFCeFortesA4. Mas infelizmente ao encerrar a aplicação ou ao tentar obter o certificado aparece um erro: Falha ao Definir o Pin do Certificado. Erro: 80090005. Mas vou abrir outro tópico sobre esse erro.

Bem pessoal, não sei se seria aqui o local ideal dos vários itens do fórum, mas caso não seja, me avisa o correto. Atualizei os componentes, para uso no Delphi 7, tudo ocorreu normal, mas ao rodar infelizmente o erro unsupported 16bit resource in file FrmPrincipal.dfm está me impedindo de rodar minha aplicação, que ainda está em fase de implementação, mas estava tudo transcorrendo normal, agora já pesquise tudo quando foi recurso para me livrar desse erro e nada. Já baixe e recompilei tudo várias vezes, inclusive com exclusão total dos componentes anteriores, como também já tentei trocar .~dfm pelo .dfm original, já apaguei .dcu nada, e não sei porque ocorreu somente após essa última atualização feita hoje... alguém tem alguma ideia do porquê? Obs.: Como dito antes, ainda uso Delphi 7, win7 64bits

Bem pessoal, não sei se seria aqui o local ideal dos vários itens do fórum, mas caso não seja, me avisa o correto. Atualizei os componentes, para uso no Delphi 7, tudo ocorreu normal, mas ao rodar infelizmente o erro unsupported 16bit resource in file FrmPrincipal.dfm está me impedindo de rodar minha aplicação, que ainda está em fase de implementação, mas estava tudo transcorrendo normal, agora já pesquise tudo quando foi recurso para me livrar desse erro e nada. Já baixe e recompilei tudo várias vezes, inclusive com exclusão total dos componentes anteriores, como também já tentei trocar .~dfm pelo .dfm original, já apaguei .dcu nada, e não sei porque ocorreu somente após essa última atualização feita hoje... alguém tem alguma ideia do porquê? Obs.: Como dito antes, ainda uso Delphi 7, win7 64bits

Também penso da mesma forma, base de cálculo normal, sem por exemplo MVA, mas já li o manual SEFAZ e não detalha que base de cálculo realmente deve ser, não sei como os colegas ai estão utilizando essa base em casos de ST.

Pessoal, como vocês estão preenchendo o cálculo do campo que estou em dúvida abaixo em situações de ICMS ST? <ICMSSN201> <orig>0</orig> <CSOSN>201</CSOSN> <modBCST></modBCST> <pMVAST></pMVAST> <pRedBCST></pRedBCST> <vBCST></vBCST> <pICMSST></pICMSST> <vICMSST></vICMSST> <pCredSN></pCredSN>... isso sabemos, depende do enquadramento do faturamento fiscal anual da empresa no Simples. <vCredICMSSN>???</vCredICMSSN> Agora esse é minha dúvida, devo calcular sobre o valor VBCST? ou sobre o valor normal do produto sem o ST, pq se for sobre o VBCST, fica um valor muito alto e a empresa estaria fazendo reaproveitamento de crédito a mais, ja que devido ao MVA essa base pode passar de duplicar, ai não entendi e até meu amigo contador tá consultando e nada de me dá resposta. </ICMSSN201>

Bem, se está se referindo à cancelamento de NFe/NFCe, ai trata-se de eventos, assim você terá que imprimir a resposta do servidor referente ao evento ( o arquivo xml resposta do webservice da Sefaz ). Se for o caso, segue como imprimir o evento: ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(ArquivoXMLRespostadoWebService) ACBRNFe1.DANFE:=ACBrNFeDANFeRL1 ou ACBrNFeDANFCeFortes1 ou o que estiver usando para imprimir, a depender se NFe ou NFCe. ACBrNFe1.ImprimirEvento;

Infelizmente como não conseguir alguma solução adequada para a situação, a alternativa foi implementar uma gambiarra, lamentável, mas tiver que fazer assim, e caso alguém esteja passando pela mesma necessidade, veja ai a gambiarra: 1. Usei uma função que captura a impressora padrão ( dá uma pesquisada na NET que tem algumas que fazem essa função ). 2. Ao mandar imprimir, ele compara a impressora que foi escolhida para imprimir e identifica se ela é padrão ou não, e caso não seja, a função torna a impressora Definida para NFe como Padrão 3. Após imprimir, ele analisa e retorna com a impressora padrão que estava antes da impressão. Outra coisa, eu tiver que colocar uma observação para quando o usuário escolher uma impressora para NFe que não seja uma padrão, que se possível, ele a torne padrão, para evitar usar a gambiarra. Infelizmente vai ficar assim ate em algum momento achar alguma solução.

Não amigo, o retorno do xml é diferente, então veja ai parte do código que uso aqui pra ver se te ajuda... if CDS_CONTROLENFTIPO_NF.Text='NF-e' then ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe else ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; form1.ACBRNFe1.DANFE:=form1.ACBrNFeDANFeRL1; Form1.ACBrNFe1.EventoNFe.Evento.Clear; with Form1.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := VChave; infEvento.CNPJ := VCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust:= memo_texto_CANC.Text;// campo memo aonde deverá conter no mínimo 15 caracteres e no máximo 255 infEvento.detEvento.nProt:=VnumProt infEvento.nSeqEvento := SeqEvento; end; ACBrNFe1.EventoNFe.GerarXML; ACBrNFe1.EnviarEvento(StrToInt(VNumLote)); Memo_resultado_canc.Lines.Add('Cód.Retorno.: '+ IntToStr( ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)); if (ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=135) or (ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=136) then Memo_resultado_canc.Lines.Add('Situação....:'+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo +' Aprovado!') else Memo_resultado_canc.Lines.Add('Situação....:'+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.xMotivo +' Com Falha!'); Memo_resultado_canc.Lines.Add('Chave.......:'+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe); Memo_resultado_canc.Lines.Add('Data/Hora...:'+FormatDateTime('dd/mm/yyyy hh:mm:ss', ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento)); Memo_resultado_canc.Lines.Add('Nº Protocolo: '+ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); screen.Cursor:=crDefault; if (Form1.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=135) or (Form1.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=136) then begin Form1.ACBrNFe1.ImprimirEvento;

Já tentou usar o mesmo método de arredondamento direto no vDesc? o problema neste arredondamento final do total.

Alguém tem alguma ideia do que pode está ocorrendo?

Bem, estou fazendo a tela de configuração de impressoras a usar no sistema, onde o usuário tem uma lista de impressoras disponíveis na máquina e ele define qual imprimirá NFCe e NFe irá usar. Está tudo ok com as definições para impressoras NFCe ( que usam bobina ), você escolhe qual delas será impressa ( estou com 2 em bobinas, uma Elgin e outra Bematech ), configurei opção para o usuário escolher se imprime em modo nativo mais rápido (EscPos) ou formatado usando Fortes... com NFCe tudo ok, vc define e ao gerar a NFCe sai perfeito na impressora escolhida, mas o problema está no fato da impressão da NFe, onde defino a impressora para esse tipo de nota e ela não manda a impressão e mesmo mostrando previa e após a prévia o usuário vai lá e escolhe a impressora, não sai nada, dai não entendi absolutamente nada do ocorrido. A configuração está assim: ACBrNFeDANFeRL1.Impressora:= ImpressoraNFe; ACBRNFe1.DANFE:=ACBrNFeDANFeRL1; Mesmo que oculte Status ou prévia de ACBrNFeDANFeRL1 não funciona... se aparece a prévia em tela e vc for lá e escolher essa impressora HP ela não sai nada. Obs.: Funciona de 2 formas 1. Se vc definir a empresa para NFe como padrão ( que é uma HP ) 2. Se você não definir no componente qual impressora vai usar ( ai também ela só imprime direto na padrão ) E o detalhe é que quero que ela imprima em qualquer impressora sendo a padrão ou não do windows. O que está errado? Já que para impressoras bobinas vc pode escolher perfeitamente qual imprimirá mesmo sem alguma delas serem definina no windows como padrão...