FocusRJ

Boa tarde e obrigado Italo!

Prezados, em um computador apenas, estou tendo esse problema, computador esse com Win 8, porém executei em outros com o Win 8 e não tenho esse problema, sempre que vou consultar o status, enviar, ou qualquer processo que faça uso do certificado digital (após a primeira confirmação só solicita novamente em caso de encerrar e abrir novamente o programa) me aparece uma tela de Segurança do Windows questionando se eu desejo permitir que o aplicativo acesse minha chave privada - com as opções de Permitir e Não Permitir... O cliente não reclamou, mas é uma coisinha chata, sempre tem que ir lá e permitir. Alguém já passou por isso ou algo semelhante? Alguma sugestão de configuração do mesmo? Att. Rômulo Mayworm

Amigos, acrescentei a seguinte verificação: //força para IE não ficar trabalhando off line if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('GlobalUserOffline', 0); end; registro.CloseKey; Pois sofri em um cliente essa semana pois o mesmo colocou seu I.E. para trabalhar somente off-line e a todo momento acusava webservices indisponível... quebrei bastante a cabeça até perceber que estava configurado para trabalhar off... ¬¬ Att. Rômulo Mayworm

Teste com o DANFeRetratoNovo.fr3. Att.

Qual o arquivo fr3 está utilizando? Atualizado? Att.

Verifique a versão do Fast e o arquivo DANFE que está utilizando se são compatíveis! Att.

Não seria o caso do Monitor? Acredito que todas as funcionalidades estejam lá, bastando adaptar sem necessidade de instalação no Delphi. Estou errado? Att.

Correto, havia atualizado hoje cedo mas ainda não havia testado, de qualquer forma acabei de pegar essa atualização de hoje 14:02 dos arquivos .fr3 e realmente agora a numeração foi impressa correta, a alteração foi de FOLHA /[TotalPages#] paraFOLHA /[TotalPages]. Obrigado Regys.

Bom dia Regys, Também estou tendo o mesmo problema, já tentei tratar por variáveis, já tentei utilizando o DoublePass e para contar armazenando em lista ou variáveis no if not Engine.FinalPass then Mas ainda não obtive sucesso, estou tentando isso já há algumas semanas porém sem sucesso, como vi aqui agora que não sou o único achei que talvez pudesse compartilhar as minhas tentativas. O que estou tentando fazer no meu sistema é o seguinte, não seria nem a emissão de várias notas juntas mas o cliente emitiria normalmente suas notas e ao final do dia ele iria imprimir todas as NF-es emitidas no dia, Ex.: O cara emitiu 17 NF-es cada uma com 1 página, porém no memo13 do DanfeRetratoNovo.fr3 lá onde tem o número da NF-e, a série e a descrição FOLHA /[TotalPages#] está saindo FOLHA 1/17 e não FOLHA 1/1, FOLHA 1/1..., FOLHA 1/1 (17 vezes, para cada NF-e de uma página das 17 NF-es). Essa parte FOLHA /[TotalPages#] na verdade tentei trocar por uma variável carregada e atibuindo o valor 1 sempre que começasse uma nova NF-e, exemplo: tentei iniciar uma vár PagAtual como 1 sempre no OnAfterPrintCanhoto visto que minhas notas sempre imprimem o canhoto e sempre unicamente na primeira página de uma NF-e. Fiz vários testes sem sucesso, se alguém conseguir chegar a alguma solução ficaria muitíssimo grato. Att. Rômulo Mayworm

Boa tarde, amigos eu já trabalhei em cima dela mas faz um certo tempo, com certeza ainda terão que fazer alguns ajustes pois a fiz e não utilizamos.... Porém espero que sirva! http://www.focusrj.com.br/Compartilhada/DANFE_PAISAGEM.rar Att. Rômulo Mayworm

Bom dia Regys, fiz uma alteração, não sei se seria conveniente, mas na procedure de Exportar coloquei pra na exportação levar também as informações como período de vigência, fonte e chave... qualquer coisa segue o código: procedure TACBrIBPTax.Exportar(const AArquivo, ADelimitador: String; const AQuoted: Boolean); var I: Integer; Texto: String; function AddQuoted(const AValor: String): String; begin if AQuoted then Result := '"' + AValor + '"' else Result := AValor end; begin if Itens.Count <= 0 then EACBrIBPTax.Create('Tabela de itens ainda não foi aberta!'); Texto := ''; for I := 0 to Itens.Count - 1 do begin Texto := Texto + AddQuoted(Itens[I].NCM) + ADelimitador + AddQuoted(Itens[I].Excecao) + ADelimitador + AddQuoted(IntToStr(Integer(Itens[I].Tabela))) + ADelimitador + AddQuoted(FloatToString(Itens[I].FederalNacional)) + ADelimitador + AddQuoted(FloatToString(Itens[I].FederalImportado)) + ADelimitador + AddQuoted(FloatToString(Itens[I].Estadual)) + ADelimitador + AddQuoted(FloatToString(Itens[I].Municipal)) + ADelimitador + AddQuoted(Itens[I].Descricao) + ADelimitador + AddQuoted(FormatDateTime('ddmmyy',FVigenciaInicio)) + ADelimitador + AddQuoted(FormatDateTime('ddmmyy',FVigenciaFim)) + ADelimitador + AddQuoted(FChaveArquivo) + ADelimitador + AddQuoted(FVersaoArquivo) + ADelimitador + AddQuoted(FFonte) + ADelimitador + sLineBreak; end; if Trim(Texto) <> '' then WriteToTXT(AnsiString(AArquivo), AnsiString(Texto), False, False); end; Agora uma dúvida minha, lendo o manual, parece que a chave é gerada no ato do download para cada empresa ou me equivoquei e a chave é única? Pergunto isso pensando da seguinte forma: Será necessário cada cliente meu fazer o seu download e utilizar ou eu posso disponibilizar essa atualização para eles? PS. Acabei de baixar pelo site do De Olho No Imposto e já havia baixado do seu (Regys) a chave é a mesma, logo não muda por empresa - não vou apagar a dúvida para caso algum a tenha também já tenha a resposta aqui - Obrigado Att. Rômulo Mayworm

Bom dia Sérgio, Verifique sua conexão ou tente através de outro equipamento, aqui realizei o download tanto do http://deolhonoimposto.ibpt.org.br quanto do http://regys.com.br/ e veio perfeitamente. Att. Rômulo Mayworm

Amigo mais um detalhe... Estava p mostrar o imposto FederalImportado tanto na Estadual quanto na Municipal em: procedure TACBrIBPTax.ExportarXML(const AArquivo: String); var I: Integer; Texto: String; begin if Itens.Count <= 0 then EACBrIBPTax.Create('Tabela de itens ainda não foi aberta!'); Texto := '<?xml version="1.0" encoding="ISO-8859-1"?><IBPTax>'; for I := 0 to Itens.Count - 1 do begin Texto := Texto + '<imposto>' + '<ncm>' + Itens[I].NCM + '</ncm>' + '<ex>' + Itens[I].Excecao + '</ex>' + '<tabela>' + IntToStr(Integer(Itens[I].Tabela)) + '</tabela>' + '<aliqFedNac>' + FloatToString(Itens[I].FederalNacional) + '</aliqFedNac>' + '<aliqFedImp>' + FloatToString(Itens[I].FederalImportado) + '</aliqFedImp>' + '<aliqEst>' + FloatToString(Itens[I].Estadual) + '</aliqEst>' + //aqui '<aliqMun>' + FloatToString(Itens[I].Municipal) + '</aliqMun>' + //aqui '<descricao>' + ACBrUtil.ParseText(Itens[I].Descricao, False, False) + '</descricao>' + '</imposto>'; end; Texto := Texto + '</IBPTax>'; if Trim(Texto) <> '' then WriteToTXT(AnsiString(AArquivo), AnsiString(Texto), False, True); end; Att. Rômulo Mayworm

Regys, fiz uma alteração, ainda não testei mas por favor me corrija se eu estiver errado... o que acontece, estava buscando a versão na primeira linha e não na segunda onde realmente ela se encontra, acredito que a primeira linha não nos tenha valia, por isso dela nada carreguei, somente verificando a partir da segunda linha (onde teremos a versão e o período de vigência além da fonte e da chave) as linhas posteriores à 2ª. De qualquer forma seguem as alterações que apliquei para avaliação: function TACBrIBPTax.PopularItens: Integer; var Item: TStringList; I: Integer; begin if Arquivo.Count <= 0 then raise EACBrIBPTax.Create('Arquivo de itens não foi baixado!'); FVersaoArquivo := ''; Itens.Clear; Item := TStringList.Create; try // primeira linha contem os cabecalhos de campo e da versão do arquivo // proximas linhas contem os registros for I := 1 to Arquivo.Count - 1 do begin QuebrarLinha(Arquivo.Strings[I], Item); if (Item.Count = 13) then begin //segunda linha onde contém as informações de versão do arquivo, período de vigência, chave e fonte if I = 1 then begin FVigenciaInicio := StrToDateDef(Item.Strings[8], 0.0); FVigenciaFim := StrToDateDef(Item.Strings[9], 0.0); FChaveArquivo := Item.Strings[10]; FVersaoArquivo := Item.Strings[11]; end; try // codigo;ex;tabela;descricao;aliqNac;aliqImp;aliqEstadual;aliqMunicipal with Itens.New do begin NCM := Item.Strings[0]; Excecao := Item.Strings[1]; Tabela := TACBrIBPTaxTabela(StrToInt(Trim(Item.Strings[2]))) ; Descricao := Item.Strings[3]; FederalNacional := StringToFloatDef(Item.Strings[4], 0.00); FederalImportado := StringToFloatDef(Item.Strings[5], 0.00); Estadual := StringToFloatDef(Item.Strings[6], 0.00); Municipal := StringToFloatDef(Item.Strings[7], 0.00); end; except on E: Exception do begin EventoErroImportacao(Arquivo.Strings[I], E.Message); end; end; end else begin EventoErroImportacao(Arquivo.Strings[I], Format('Registro inválido, quantidade de colunas "%d" excede o esperado "7"!', [Item.Count])); end; end; finally Item.Free; end; Result := Itens.Count; end; Att. Rômulo Mayworm

Boa tarde, Desta maneira não implicaria em problemas fiscais? Ou algo do tipo? Obrigado,

Boa tarde, desculpem estar abrindo um tópico tão antigo, mas foi com o intuito de não abrir um novo. Bem vamos à minha dúvida... Em relação à classificação tributária do item (cst_icms), me corrijam se eu estiver errado, mas estão, independente do CRT da empresa, nas tabelas dos itens cadastrando o CST (Regime Normal) do produto e internamente são realizados os tratamentos para se obter o referido corretamente? Em outras palavras, de qual tabela vocês obtém o cst_icms? E para vendas fora e dentro da mesma UF (os CSTs são diferentes não são?), como são tratados? Obrigado

Aqui deu certo dessa maneira, obrigado!

bom dia Italo, Acho que localizei o problema, por algum motivo todo o IIS (Serviços de Informações da Internet) está desativado. Logo o certificado digital não está sendo validado. Agora estou na luta contra o windows tentando reativar o mesmo porém não estou obtendo êxito, já tentei até por script, mas sei que estaria fugindo um pouco ao tema, então vou tentar buscar alguma solução plausível por aqui. No mais, muito obrigado - caso realmente seja isso postarei aqui confirmando. Att.

Bom dia, acabei de atualizar o ACBR, porém acredito que o erro não esteja nisso, e atualizei os schemas, direcionando o meu projeto para a pasta atualizada do schemas. Caso eu consulte o status em modo de produção vai na boa, porém em modo homologação tenho o seguinte retorno: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - Forbidden (403) - 'https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx'. Mais exatamente o erro retornado é: HTTP Error 403.16 - O certificado do cliente não é confiável ou é inválido. Client certificate untrusted or invalid: The page you are trying to view requires the use of a valid client certificate. Your client certificate is untrusted or invalid. The client certificate is used for authenticating you as a valid user of the resource. Consegui pegar esse retorno copiando o link e tentando acessar pelo IE (limpei todos os cookies e histórico do IE e nada também). Estou acreditando que a inconsistência está com a Sefaz, uma vez que o link para consulta do Status de Serviço é o mesmo indicado no manual e no portal da NFe, porém gostaria de confirmar com os amigos. Maiores detalhes: Sou do RJ, utilizo o Autorizador SVRS, utilizo o Win 7 (64b), estou utilizando o certificado digital do tipo A1 com validade até 08/03/2014 e DLLs atualizadas pelo ACBR. PS. acreditando também na possibilidade de o problema estar com o certificado, testei com outro certificado do tipo A1 dentro da validade e o erro persiste. Ah desmarquei também os check box indicados nas configurações do IE na aba segurança.

Bom dia amigos, Estou com um cliente com máquina Win 7 Pro - 64b, somente neste está dando o erro, sendo que tenho outros com configurações semelhantes, já testei o relógio como descrito acima, já redefini as configurações do I.E., já atualizei Schemas, já atualizei e registrei Dlls (capicom), já reinstalei o certificado do mesmo (está na validade também), já atualizei as cadeias certificadoras e nada... :/ ao consultar o status me retorna: A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. -------------------------------------------------------------------------------- O documento XML deve ter um elemento de nível superior. Erro ao processar o recurso 'file:///C:/Program Files/Sistema/NFeTemp... Fiz um log antes também salvando a senha e número de série do certificado e estão corretos! Fiz um log onde seria o carregamento do retorno do webservice e o mesmo vem em branco tanto para TF8Encode(ACBrNFe1.WebServices.StatusServico.RetornoWS) quanto para UTF8Encode(ACBrNFe1.WebServices.StatusServico.RetWS). Agradeço se alguém puder ajudar. PS. NOTA PARA UM DETALHE: acabei de verificar e o Internet Explorer desta máquina (IE 10) não abre quaisquer arquivos .xml, Acusando: "ERRO AO ENVIAR COMANDO PARA O PROGRAMA" RESOLVIDO: como o IE não estava sequer abrindo o xml, desinstalei e o instalei novamente (IE) e também desinstalei alguns softwares desses instalados por usuário sem muito conhecimento, que são instalados juntamente com outros. Funcionou!

Então o anexo que nos passou não contem o laço do cds_nota, disponibilize o início do tratamento, onde você seleciona do primeiro registro realizando o loop até o último selecionado pelo usuário, contendo a parte onde você carrega a var numero_nota e também onde você atribui as informações ao acbrnfe. Att.

ACBR atualizado?

Ressaltando o que o Roberto disse: precisamos da parte do fonte a qual carrega o xml para o componente, aquela parte onde você faz o laço para "varrer" os selecionados, limpar o componente AcbrNFe e carregar os selecionados. Att.

Cara, manda o seu fonte pra analisarmos, ou a parte do fonte que faz esse tratamento. Att.

Uma sugestão seria fazer o equivalente a um backup, no meu caso dentro da própria pasta mensal dos xmls coloco: '\Backup\'+NumFiscal+'.xbk' isso após o envio bem sucedido da NF-e, dessa forma qualquer interferência no xml teremos o arquivo original armazenado, com outra extensão para que os próprios 'usuários finais' não venham a confundir. Att. Rômulo Mayworm