bnobre

Olá a todos, Estou querendo fazer um procedimento na saída do aplicativo, onde o aplicativo checa a validade do certificado da máquina e avisa se o mesmo estiver para expirar em até 30 dias. Até aí tudo bem, estou usando a função ACBrNFe1.SSL.CertDataVenc, mas a questão é que salvo o serial do certificado em minha base. Nas máquinas que possuem certificado funciona corretamente, mas nas outras que não o possuem, o aplicativo gera uma exceção devido o certificado ser inexistente no micro em questão. Portanto gostaria de saber se existe alguma função no aplicativo que checa a existência do certificado no micro? Desde já agradeço a atenção

Olá... Rapaz, no momento que você consegue fazer o envio ONLINE da sua nota, que inicialmente foi emitida OFFLINE, o próprio componente salva o XML com o protocolo no diretório especificado por você. Dá uma conferida ai

Entendi Régys... Eu faço exatamente isso, só leio o XML (que fica gravado em minha base) pelo ACBrNFe1.NotasFiscais.LoadFromString. O "interessante" disso tudo é que como falei, se eu gerar sem pular o nItem ele assina normal, passa normal no Validar Assinatura do projeto de exemplo do ACBR. Mas se eu, com o mesmo código, pular o item, aí já era, ele dá erro na assinatura, testado no Validar Assinatura. Enfatizando, só em emissões OFFLINE, ONLINE tanto faz pular ou não. A única coisa que mudei no meu código foi isso, ao invés de: Prod.nItem := dtm_banco.z_produtos_itensitem.AsInteger; //podendo pegar um valor "pulado" Agora faço Prod.nItem := x; // Número sequencial, para cada item deve ser incrementado Só isso bastou para parar de dar erro.

Entendo Regys, mas pode ter certeza quanto as afirmações que fiz acima... Eu testei e retestei isso o dia todo... Só não sei exatamente qual revision estava usando anteriormente no momento em que o componente ignorava a minha programação ao gerar o XML OFFLINE. E atualmente está como eu falei, se gerar o XML OFFLINE e apenas nesse caso, pulando a numeração, o componente assina errado, gerando o erro Rejeicao: "Assinatura difere do calculado". Seguiu a sequência, assina certo. Pode testar ai.

Entendi Italo, Mas você me orientou no passo 3. "Extrair desse retorno os dados do registro do evento desejado" e no passo 4. "Montar o *-procEventoNFe.xml se utilizando do conteúdo do *-ped-eve.xml mais os dados que foram extraídos no item 3." Se não posso extrair a tag <procEventoNFe> desse retorno, quais dados devo extrair para concatenar com o "*-ped-eve.xml" afim de montar o "*-procEventoNFe.xml"?

Olá a todos, descobri o que ocorre... Eu meu aplicativo no ato da venda, conforme o usuário vai inserindo os itens, o software vai adicionando a numeração referente ao número do item... Por exemplo: 1 - Produto 1 2 - Produto 2 3 - Produto 3 Durante a venda, ele pode excluir um dos itens, e a numeração fica "pulada", como no exemplo abaixo onde ele exclui o item 2: 1 - Produto 1 3 - Produto 3 Eu sempe usei essa numeração "pulada" na tag <det nItem="X"> de cada produto e até ontem nunca tive problema. Observando agora os XMLs do dia 17-11-15 para trás, observei que as notas emitidas ONLINE gravam no XML a numeração do item pulada mesmo (conforme eu programei) e sempre passaram normal. Mas eu tive uma surpresa ao observar os XMLs de notas emitidas OFFLINE, vi que a numeração dos itens não pulou mesmo eu programando para pular (creio que o componente fez isso automaticamente ao ver que era emissão OFFLINE) e também nunca tive problema. No dia 18-11-15 atualizei o componente e meu aplicativo. Após isso que comecei a receber o tal erro "Rejeicao: Assinatura difere do calculado" em algumas notas emitidas OFFLINE apenas. Como não vi nenhuma outra anormalidade além da numeração do item "pulada", resolvi testar "sem pular" pois agora observei que no caso da CONTINGÊNCIA ele parou de ignorar minha programação e "pulou". Ao seguir a sequência corretamente o problema foi sanado. Mas as notas emitidas ONLINE, que sempre pularam, não estão apresentando erro nenhum até o momento. Depois de toda essa análise, me surgiram as seguintes dúvidas: 1º - O componente realmente gera o erro "Rejeicao: Assinatura difere do calculado" em emissão OFFLINE quando a sequencia da numeração dos itens é "pulada"? 2º - Se sim para a pergunta anterior, porque em emissão ONLINE não ocorre tal problema? 3º - Porque antes o componente sequenciava a numeração (ignorando a minha programação) apenas nas emissões OFFLINE e agora não mais o faz? Desde já agradeço a atenção

Olá a todos, Sou do RJ, desde ontem as 15:00 em um cliente estou com um NFC-e em contingência preso, ao tentar enviar ele retorna "Rejeicao: Assinatura difere do calculado". Após emitir tal nota, de ontem para hoje ele só emitiu mais 2 notas em contingência e todas apresentaram o mesmo defeito e não consigo enviar. Os envios em modo normal estão perfeitos. Não existe nenhum caracter especial nas notas. Estou perdendo o prazo de 24 horas da primeira e daqui a pouco vou perder das outras, o que poderia ser?

Olá Italo... Com sua dica parou de dar o problema no projeto ao compilar, agora voltando ao assunto do cancelamento... Estava analisando as respostas obtidas no projeto de exemplo do ACBR ao consultar a NFC-e cancelada pela chave, e comparando as mesmas com um arquivo "*-procEventoNFe.xml" gerado normalmente pelo componente ACBR. Ao observar o arquivo "*-procEventoNFe.xml" gerado normalmente, vi que ele é todo formado pela tag <procEventoNFe>, exceto apenas pela primeira linha do mesmo, que sempre vem com o conteúdo "<?xml version="1.0" encoding="UTF-8"?>". Essa tag <procEventoNFe> também existe na resposta da consulta pela chave, seja no campo RESPOSTAS ou no campo RETORNO COMPLETO WS, e seu conteúdo a princípio é idêntico a mesma tag no arquivo "*-procEventoNFe.xml" gerado normalmente. Isso me gerou algumas dúvidas: 1º - Realmente o arquivo "*-procEventoNFe.xml" sempre é formado na primeira linha com "<?xml version="1.0" encoding="UTF-8"?>" e o restante com a tag <procEventoNFe>? 2º - Se a resposta da primeira pergunta for SIM, o conteúdo da tag <procEventoNFe> do retorno dado pela consulta (nas guias mencionadas) sempre será igual ao conteúdo da tag <procEventoNFe> do arquivo "*-procEventoNFe.xml" gerado normalmente? 3º - Se sim para a primeira e segunda pergunta, suponho que para criar o arquivo "*-procEventoNFe.xml" basta apenas gerar um XML em que seu conteúdo na primeira linha tenha o texto "<?xml version="1.0" encoding="UTF-8"?>" e o restante tenha a tag <procEventoNFe> obtida pela consulta, sem a necessidade de utilizar o arquivo "*-ped-eve.xml" como mencionou anteriormente... Estou certo? 4º - Por fim, se sim para todas as perguntas anteriores... Como obtenho somente o texto da tag <procEventoNFe> do retorno da consulta? Desde já agradeço a atenção sempre dada

Sim, se refere. Apaguei a pasta ACBRNFe em C:\ACBR\Exemplos\ACBrDFe\. Após isso cliquei com o botão direito sobre a pasta C:\ACBR\Exemplos\ACBrDFe\ e escolhi SVN Update. Ele baixou os arquivos novamente, mas o problema persiste.

Olá a todos, Italo... Estou tentando efetuar o passo 3 estudando o projeto de exemplo do ACBR, mas sempre que tento compilar o projeto recebo o erro "WARNING: Duplicate resources(s)" e não consigo executá-lo. Tentei atualizar o componente agora, revisão 10481, mas o problema ainda persiste. Uso o Delphi 7.

Perfeito

Olá a todos, Através da função ACBrNFe1.SSL.SelecionarCertificado, por exemplo, conseguimos selecionar o certificado a ser usado. Existe alguma função que retorne a data de validade do certificado que o cliente está utilizando? Isso é importante para avisar o mesmo sobre a proximidade de sua expiração. Desde já agradeço a atenção

Pra mim que nunca criei um arquivo em memória, o único segredo é como fazê-lo. :-/ Será que poderia me mostrar um exemplo? Eu costumo criar arquivos TXT usando o seguinte código: http://www.planetadelphi.com.br/dica/6704/lendo-e-escrevendo-no-txt Desde já agradeço a atenção

Aé... só isso? Crio um txt comum e salvo como XML? É assim que vocês tratam?

Mas como criar um arquivo XML?

Entendi Italo... Grato A questão é que não faço a menor idéia de como montar o passo 4. Poderia me indicar aonde acho algum exemplo?

Olá Italo... Conforme disse quase 24 horas depois, finalmente, ambas as notas apareceram canceladas. Creio ter ocorrido um atraso na SEFAZ em anunciar o cancelamento. Pois bem, agora preciso tratar esse tipo de problema para ocorrências futuras... Como consulto se a nota realmente foi cancelada e como recuperar o XML do cancelamento?

Olá a todos, Hoje em um de meus clientes ocorreram os erros 12002 em duas tentativas de cancelamentos de 2 notas. Após isso ao tentar cancelar as mesmas só recebo: "Rejeição: Duplicidade de Evento" Visualizo a nota na SEFAZ e a mesma se encontra ainda AUTORIZADA. Copiei o certificado para a minha máquina e também tentei cancelar, mesma coisa. Tenho apenas 24 horas para resolver isso... Alguém poderia me dar uma luz? Desde já agradeço a atenção de todos

Nossa, lamentável isso.

Olá a todos, Como sabem a NT2015/002 foi prorrogada para dia 01/12. Até ai tudo bem, mas alguém sabe se já é possível implantar as mudanças para se antecipar a data oficial ou teremos que atualizar todos os clientes de uma vez no dia 01/12? Desde já agradeço a atenção

Eu nem sabia que tinha, que legal. Qual seria ela Régys? Ela arredonda perfeitamente?

Olá a todos, Agradeço pelas dicas. Fiz como recomendaram e a princípio a nota que estavam dando o problema calculou certo, vou atualizar nos clientes e ver o dia a dia. Mas me surgiu outra dúvida, conforme informei no início desse tópico, a função SimpleRoundTo não funcionou corretamente em seu objetivo de fazer o arredondamento aritmético, uso o Delphi 7. No seguinte tópico (http://www.projetoacbr.com.br/forum/topic/4964-spedpiscofins-arredondamento/) o EMBarbosa afirma que essa função tem problemas. Não posso usar o RoundTo para arredondar pois ele efetua o "arredondamento de banqueiro". Estou usando uma função que achei na internet http://gustavohinterholz.blogspot.com.br/2011/11/funcao-de-arredondamento.html A questão é... Vocês também possuem esses problemas com arredondamento? Que funções vocês usam para esse fim?

Agora aconteceu outra coisa interessante no valor resultante da linha " (dtm_banco.z_formulas.Fields[0].AsFloat + dtm_banco.z_formulas.Fields[2].AsFloat + dtm_banco.z_formulas.Fields[3].AsFloat) / 100 * dtm_banco.z_nfcevendas_itensvl_total.AsFloat; ", exemplo 0.105. Em outro teste que fiz, o vTotTrib NÃO MAIS arredondou sozinho para 0.11, dessa vez ficando em 0.10. Que loucura.

Analisando uma nota com o tal problema, observei onde ocorre o erro. Exemplo, o valor resultante da linha " (dtm_banco.z_formulas.Fields[0].AsFloat + dtm_banco.z_formulas.Fields[2].AsFloat + dtm_banco.z_formulas.Fields[3].AsFloat) / 100 * dtm_banco.z_nfcevendas_itensvl_total.AsFloat; " é 0.105. O vTotTrib arredonda sozinho (não sei como) para 0.11 (que é o correto), enquanto que o RoundTo arredonda para 0.10. Olhando em http://www.devmedia.com.br/rotinas-de-arredondamento-round-roundto-simpleroundto-setroundmode-e-getroundmode/21114, observei que o RoundTo faz o arredondamento de banqueiro e por isso tem esse comportamento estranho (hora arredonda pra cima, hora arredonda para baixo). Não sei como o vTotTrib arredonda sozinho certo, mas ao ler o texto do link eu tentei usar o SimpleRoundTo, mas ao contrário do que estava escrito, não fez o arredondamento aritmético que aprendemos na escolha, continuando com 0.10. Como vocês fazem em suas aplicações para arredondar isso certo? Porque o vTotTrib arredonda certo sem comandos adicionais?

Olá a todos, Estou com um problema chato em meu aplicativo na hora de calcular a tag <vTotTrib> dentro de <total>. Vira e mexe, quando tem muitos itens na nota, essa tag acaba dando um valor 2 ou 3 centavos menor que o total dos tributos de cada item somados, o que me remete ao erro: Rejeicao: Total do Valor Aproximado dos Tributos difere do somatorio dos itens Pois bem... No inicio eu fazia assim: with Imposto do begin vTotTrib := RoundTo((dtm_banco.z_formulas.Fields[0].AsFloat + dtm_banco.z_formulas.Fields[2].AsFloat + dtm_banco.z_formulas.Fields[3].AsFloat)/100,-2)* dtm_banco.z_nfcevendas_itensvl_total.AsFloat; total_tributos := total_tributos + vTotTrib; //variavel do tipo Double E esse erro acontecia direto, ao analisar o resultado dessas linhas, observei que o vTotTrib recebia corretamente arredondando para 2 casas decimais, exemplo o número 1,567 era recebido como 11,57... Mas por algum motivo a variável "total_tributos" recebia o valor 1,567, ocasionando em diferenças de mais de 0,01 com muitos itens e rejeição posterior. Sem saber porque isso ocorria, tentei uma nova abordagem, e estou fazendo assim agora: vTotTrib := (dtm_banco.z_formulas.Fields[0].AsFloat + dtm_banco.z_formulas.Fields[2].AsFloat + dtm_banco.z_formulas.Fields[3].AsFloat) / 100 * dtm_banco.z_nfcevendas_itensvl_total.AsFloat; total_tributos := RoundTo(total_tributos + vTotTrib,-2); Se observarem, tirei o RoundTo da primeira linha. Fiz isso porque observei que usando ele ou não, por algum motivo, sempre recebo o valor arredondado para 2 casas decimais, CREIO que isso seja feito internamente pelo componente. Na linha debaixo, forcei arredondar para duas casas, já que ele não recebia o valor arredondado. Com isso fiquei na expectativa de os valores passarem a bater certo, o que realmente ocorreu em testes que realizei reproduzindo notas das quais tive tal problema. Isso diminuiu drasticamente a ocorrência desse erro, mas não o eliminou totalmente. Ainda ocorre com notas onde possuem muitos itens, onde ele simplesmente soma menos do que deveria. Procurei explicar detalhadamente o problema para que algum amigo possa me indicar como o mesmo faz em seu aplicativo. Desde já agradeço a atenção