FocusRJ

Bom dia Ricardo, como seria realizado o laço de repetição quando o cliente seleciona mais de uma nota? Considere Arquivos sendo do tipo TStringList onde neste caso carregaria o(s) caminho(s) do(s) arquivo(s) xml desejado(s). Seria algo como: for I := 0 to Arquivos.Count -1 do begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.Add; ACBrNFe1.NotasFiscais.LoadFromFile(Arquivos[I]); ... //aqui você realiza os processos desejados referente aos arquivos XMLs ou afins end; Caso você não utilize o Clear dentro do laço de repetição para carregar cada XML selecionado, no caso de mais de um xml selecionado, você terá que utilizar conforme o Roberto mencionou acima. PS. O código que montei acima foi somente em caráter de exemplificação. Att. Rômulo Mayworm

Amigos, bom dia, sou do estado do RJ e um cliente que realiza vendas para o estado MG entrou em contato informando que saiu uma lei em MG que eles só poderão receber NF-es cujos valores ST dos produtos estejam na descrição de cada item, no caso na InfAdProd. Os amigos sabem da veracidade dessa informação? Realmente existe essa lei? Ele informou que eles cobram essa medida pois o ST é restituído, conforme o próprio site mostra: http://www.fazenda.mg.gov.br/empresas/restituicao/icms_st.htm Mas não encontrei nada que mencione que o valor referido deva ir apresentável na Danfe, na descrição dos produtos como Informação adicional do mesmo. Para ressaltar, no xml está correto, ali o valor da ST vai perfeitamente. Att. Rômulo Mayworm

lpanegassi, Não há nada anexo...

André, não sei, mas acho que não é a quebra de linha que está influenciando, será? Verificando acima ele está inserindo, 'erroneamente' no lugar do ';', o | após o valor R$ 1,86 | e no xml está cortando antes do separador decimal, vírgula, ficando a informação até o "R$ 1". Att. Rômulo Mayworm

Vamos fazer um teste pra ver se a ',' está influenciando??? onde está [DadosAdicionais] Complemento=Empresa Optante pelo Simples Nacional - Venda a Consumidor Final Permite aproveitamento de credito de ICMS de R$ 1,86 |Val Aprox Tributos R$ 77,46(77,34%) Fonte: IBPT coloque [DadosAdicionais] Complemento=Empresa Optante pelo Simples Nacional, Venda a Consumidor Final Permite aproveitamento de credito de ICMS de R$ 1,86 |Val Aprox Tributos R$ 77,46(77,34%) Fonte: IBPT Att. Rômulo Mayworm

No xml ela está ficando cortada? Já debugou? Att. Rômulo Mayworm

Jesuel, CFOP 5404 seria um CFOP válido? PS. qual o modelo do Danfe vc utiliza? Fortes, Rave, Fast? Att. Rômulo Mayworm

Guilherme, coloca o código que vc utiliza pra consulta aqui cara pra gnt tentar dar uma olhada! Abraços, Rômulo Mayworm

Ricardo, já testou novamente com o indicador = 0 de todas as NF-es? O resultado foi com menos notas realmente? Se possível poste o código do seu comando para buscar as NF-es destinadas. Att. Rômulo Mayworm

Guilherme, pra desencargo de consciência, faz a consulta da chave da NF-e mencionada em https://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx e marca o Ambiente de Homologação de Empresas verifica o retorno se está tudo ok. Att. Rômulo Mayworm

Ricardo qtd muito a mais? Vc verificou a data de Recebimento da Sefaz? Nesse intervalo que consultou pode ter sido emitidas mais notas contra o CNPJ testado. Att. Rômulo Mayworm

Guilherme, a consulta que você está realizando é com o mesmo certificado utilizado para emitir (duplicar) a nota em teste no ambiente de homologação? Caso afirmativo, o destinatário é o mesmo que o emitente (CNPJ) e a nota é transmitida retornando o cStat = 100, Autorizado o uso da NF-e? Caso negativo, o certificado que está utilizando para a consulta é relacionado ao CNPJ do destinatário da nota emitida em homologação? Att. Rômulo Mayworm

Essa é nova p mim, nunca ouvi falar de uma nota de correção, desculpe a ignorância, mas o procedimento de uma NF-e comum? Att. Rômulo Mayworm

Boa tarde, Não vai adiantar vc fazer a nota de correção, primeiro que a nota não foi aceita pela Sefaz, devido ao erro de validação nos totais (verifiquei no site da sefaz pela chave e a mesma é inexistente) e segundo que não se aplica nota (carta) de correção à alterações de valores. Att. Rômulo Mayworm

Bom dia, é uma boa pergunta Ricardo, eu o inicio com o valor 0 e nas repetições utilizo o valor retornado da consulta. Att. Rômulo Mayworm

Amigos estava pensando em uma forma de que o emitente da NF-e possa estar ciente da manifestação do destinatário das suas NF-es... Pensei em algo como no momento que o destinatário consultar a NF-e emitida (pelo que vi somente consultando pra obter o retorno) aí antes de imprimir a NF-e testa se a NF-e tem algum evento vinculado e verifica quais os possíveis eventos para avisar ao Emitente. Pensei em algo como: ACBrNFe1.Consultar; FechaAviso; if ACBrNFe1.WebServices.Consulta.procEventoNFe.Count > 0 then begin if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestConfirmacao then showmessage('Destinatário Manifestou Confirmação da Operação!') else if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestOperNaoRealizada then showmessage('Destinatário Manifestou Operação não Realizada!') else if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestCiencia then showmessage('Destinatário Manifestou Ciência da Operação!') else if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[ACBrNFe1.WebServices.Consulta.procEventoNFe.Count-1].RetEventoNFe.InfEvento.tpEvento = teManifDestDesconhecimento then showmessage('Destinatário Manifestou Desconhecimento da Operação!'); end; ACBrNFe1.NotasFiscais.Items[0].Imprimir; Pensei também na possibilidade de passar uma variável para o relatório e na própria NF-e imprimir a Manifestação do destinatário para não ficar aquela coisa chata de aparecer a mensagem na tela antes da NF-e, alguém me sugere alguma outra forma? Att. Rômulo Mayworm

Cara lendo aqui, pensei em fazer da seguinte forma, armazenar em um arquivo log, quando o usuário clicar em enviar e estiver com a chave estabelecida (somente após o comando enviar, pois mesmo sendo gerada a chave antes poderá ter o dígito verificador diferente - creio eu -) a salva no arquivo de log, armazena também a resposta... dessa forma se der duplicidade depois poderemos verificar neste log quais foram as tentativas de envio com este número e as chaves. Acho que no seu caso, como o meu que também gero um número randômico, essa será uma forma que talvez nos ajude... mas se alguém tiver uma sugestão melhor é sempre bem vinda! []s, Rômulo Mayworm

Obrigado Juliomar, verifiquei e o UAC estava desligado, porém pesquisando sobre o próprio descobri este vídeo como desabilitar o UAC por completo, segui o procedimento e agora funcionou! Fica a dica! Obrigado pela luz! Att. Rômulo Mayworm

Tentei no Win 8 64 bits e nada feito, tentei pela forma convencional conforme sempre fiz no windows 7 e seus antecessores e também tentei conforme o amigo Fênix indicou, porém sem obter resultados satisfatórios. Alguém conseguiu? Se deparou com o mesmo problema? Tô quase sugerindo voltar ao Win 7 para continuar emitindo NFe (rs). Att.

A nota que você tá tentando emitir, ela realmente foi enviada via homologação?

Já verificou as dlls? Esse erro está acontecendo quando vc verifica o status? De qualquer forma atualize as ddls e registre as necessárias. Verifique também se o certificado digital está acessível pelo I.E. em ferramentas > opções da internet > conteúdo > certificados. Att. Rômulo Mayworm

No meu Sistema coloquei uma Thread, que quando o sistema é inicializado ele verifica se a data do sistema está semelhante à data em pool.ntp.br se estiver diferente ele atualiza a data do sistema. Tente dar realmente uma olhada na UF do webservice que está utilizando e verifique também se a linha [179/180] do pcnenveventonfe (que fica na pasta ACBr\Fontes\PCN2) está da seguinte forma: Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items[i].InfEvento.dhEvento)+ GetUTC(CodigoParaUF(Evento.Items[i].InfEvento.cOrgao), Evento.Items[i].InfEvento.dhEvento)); Caso não esteja, eu às vezes faço assim pra atualizar, deleta o arquivo pcnenveventonfe e atualiza novamente seu acbr, às vezes se fizermos alguma alteração em algum arquivo ele não é atualizado. E na sua pcnAuxiliar tem que ter a seguinte função: function GetUTC(const UF: string; const dataHora: TDateTime): string; const UTC4 = '.AC.AM.RR.RO.MT.MS.'; UTC3 = '.AP.PA.MA.PI.TO.GO.CE.RN.PB.PE.AL.SE.BA.MG.ES.RJ.SP.PR.SC.RS.DF.'; var HorarioDeVerao: Boolean; begin HorarioDeVerao := IsHorarioDeVerao(UF, dataHora); if AnsiPos('.' + UF + '.', UTC4) > 0 then begin Result := '-04:00'; if HorarioDeVerao then Result := '-03:00'; end else if AnsiPos('.' + UF + '.', UTC3) > 0 then begin Result := '-03:00'; if IsHorarioDeVerao(UF, dataHora) then Result := '-02:00'; end; end; Por isso é necessário analisar a webservice que está usando. Att. Rômulo Mayworm

Atualize novamente o ACBR, acabei de atualizar e pelo menos a unit pcneventonfe já está atualizada, ela coloca de acordo com o horário de verão! Att. Rômulo Mayworm

Roberto, essa busca do Status do WS não me lembro a fonte que obtive essa informação, mas existem algumas 'regras' estabelecidas pelas SEFAZ's que 'proíbem' de certa forma essa consulta a todo instante, não estou encontrando as palavras corretas a utilizar, mas no claro, essa gambiarra seria, aos olhos da SEFAZ, uma forma incorreta de trabalhar. Att. Rômulo Mayworm

Bingo.... na linha [179] do pcnEnvEventoNFe onde está Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items[i].InfEvento.dhEvento)+'-03:00'); alterei para Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items[i].InfEvento.dhEvento)+'-02:00'); E foi!!! Lembrando que sou do interior do RJ. -02:00 é referente ao nosso horário (de Brasília) com o horário de verão aplicado. Att. Rômulo Mayworm