J Pereira

Sim, tambem já fiz estas coisas todas, já segui os varios exemplos citados aqui e em outros foruns. E nada... Somente o cliente desesperado sem poder emitir...

Bom dia amigos Não deu certo, continua com a mesma mensagem de Inativo ou Inoperante tente novamente erro interno 12157 erro HTTP: 0 Erro: Requisição não enviada. 12157 - Erro no suporte a canais seguros. Mais alguma sugestão?

Régys já tinha verificado o horário, só não verifiquei se estava marcado horário de verão ou não. Vou checar. Grato.

Vou testar nos clientes. Grato cbrodolfo

Boa tarde amigos De domingo zero horas (15/02/16) para cá tenho recebido diversas reclamações de clientes com o erro REQUISIÇÃO NÃO ENVIADA ERRO 12057 OU 12157 Depois de muito pesquisar, resolvi alguns problemas desmarcando a opção USAR REVOGAÇÃO DE CERTIFICADOS. (Internet Explorer/Opções de Internet/Avançadas) Mantive marcado SSL 3.0 e TLS 1.0 Mantive desmarcado SSL 2.0 e TLS 1.1 e 1.2 Mas ainda tenho alguns clientes, tanto nf-e quanto nfc-e que continua o erro de requisição nao enviada. Alguns clientes aconteceu domingo, outros segunda e outros hj, terça-feira. Simplesmente de um dia para outro parou de funcionar. Vcs sabem alguma coisa? O que eu poderia fazer mais?

Na bucha André. Vc é o kara... Indaguei o cliente, e ele me disse que até o momento somente digitava cpf e nome avulsos, e que somente agora pegou dados do banco de dados. Então o erro já existia. Grato pela ajuda de todos. Bom feriado...

Obrigado Agnaldo pela ajuda No cliente instalado até semana passada (janeiro) emitindo normalmente, hoje ocorreu o erro, fiz meu testes e comigo tambem aconteceu. Realmente nao estou entendendo. Sem cpf/cnpj emite ok, mas com dá erro Até atualizei os fontes, recompilei, vi que os componentes nfe, escpos e danfecefortes estavam diferentes, reconfigurei e continua na mesma. O interessantes é isto, debugando, quando assina pela primeira vez, o cnpj tá lá, mas quando assina novamente, dá como nulo, gerando o xml com tag emit vazios. continuo testando. Se o seu deu certo, então nao é componente, é sempre assim, o erro está entre a cadeira e o computador. kkkkkkkk Grato

Bom dia. Preciso da ajuda dos amigos com NFC-e identificando destinatário. Quando informo CPF ou CNPJ, ocorre erro de assinatura, dizendo que o CNPJ do certificado é diferente do cnpj do xml. Debugando, verifiquei que ao assinar, ele recebe o cnpj correto, mas na rotina de assinar, ele manda gerarXML, que novamente assina, daí já recebe pela segunda vez sem este cnpj no xml. Algué sabe dizer alguma coisa? Se, o destinatário está emitindo normalmente. Uso o trunk-2. procedure NotaFiscal.Assinar; var XMLStr: String; XMLUTF8: AnsiString; Leitor: TLeitor; CNPJEmitente, CNPJCertificado: String; begin // VErificando se pode assinar esse XML (O XML tem o mesmo CNPJ do Certificado ??) CNPJEmitente := OnlyNumber(NFe.Emit.CNPJCPF); CNPJCertificado := OnlyNumber(TACBrNFe(TNotasFiscais(Collection).ACBrNFe).SSL.CertCNPJ); // verificar somente os 8 primeiros digitos, para evitar problemas quando // a filial estiver utilizando o certificado da matriz if (CNPJCertificado <> '') and (Copy(CNPJEmitente, 1, 8) <> Copy(CNPJCertificado, 1, 8)) then raise EACBrNFeException.Create('Erro ao Assinar. O XML informado possui CNPJ diferente do Certificado Digital' + #13+ 'CNPJ NOTA ='+ Copy(CNPJEmitente, 1, 8) +#13+ 'CNPJ CERTIFICADO='+Copy(CNPJCertificado, 1, 8) ); // Gera novamente, para processar propriedades que podem ter sido modificadas XMLStr := GerarXML; // XML já deve estar em UTF8, para poder ser assinado // XMLUTF8 := ConverteXMLtoUTF8(XMLStr); with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe'); FXMLOriginal := FXMLAssinado; Leitor := TLeitor.Create; try leitor.Grupo := FXMLAssinado; NFe.signature.URI := Leitor.rAtributo('Reference URI='); NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue'); NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue'); NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate'); finally Leitor.Free; end; // Se for NFCe, deve gera o QR-Code para adicionar no XML após ter a // assinatura, e antes de ser salvo. // Homologação: 01/10/2015 // Produção: 03/11/2015 if (NFe.Ide.modelo = 65) and (Configuracoes.Geral.IncluirQRCodeXMLNFCe) then begin with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb, onlyNumber(NFe.infNFe.ID), IfThen(NFe.Dest.idEstrangeiro <> '', NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF), NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF, NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue); GerarXML; end; end; if Configuracoes.Arquivos.Salvar and (not Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then begin if NaoEstaVazio(NomeArq) then Gravar(NomeArq, FXMLAssinado) else Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado); end; end; end; NFCE.XML rotina destinatario.txt rotina emitente.txt

Oi amigo. Não sei se é isto, experimente copiar as dlls para o C;\windows\system32 (mesmo sendo 64bits), mantendo tb na pasta local. Experimente tb registrar no system32. Tb estou tendo muitas dificuldades com estas dlls. Algumas vezes dá erro de windows e nem mostra qual o erro.

Boa noite: A quem interessar, disponho a rotina abaixo para aqueles que desejarem incorporar a tabela cest disponibilizada por Carlos Cantu da Firebase, postado no blog do Regys Silveira (lembrando pelo Carlos Cantú que não é uma tabela oficial). Não sei se é a melhor forma de fazer, mas como tenho clientes executando preciso atualizar de forma automatiza, se o arquivo txt for encontrado, ele cria e inclui os registros no banco de dados. Não consegui executar através de comandos script, pois uso o Delphi 7, então fiz "na unha" mesmo. if fileexists(frm_principal.cPathWin+'\dados\cest.sql') then begin try try DmsisStock.IbqAux.sql.clear; DmsisStock.IbqAux.sql.Add('CREATE TABLE CEST (CEST VARCHAR(7) NOT NULL,NCM VARCHAR(8),DESCRICAO VARCHAR(512) ) '); DmsisStock.IbqAux.ExecSql; DmsisStock.IBTransactionSisStock.CommitRetaining; except end; try DmsisStock.IbqAux.sql.clear; DmsisStock.IbqAux.sql.Add('CREATE INDEX IDXCEST ON CEST (NCM)'); DmsisStock.IbqAux.ExecSql; DmsisStock.IBTransactionSisStock.CommitRetaining; except end; AssignFile(arq,frm_principal.cPathWin+'\dados\cest.sql' ); Reset(arq); Linha := ''; Linha2 := ''; while (not eof(arq)) do begin readln(arq, linha); Linha := StringReplace(Linha, 'TAB_CEST', 'CEST', [rfReplaceAll, rfIgnoreCase]); if copy(linha,1,6) = 'INSERT' then begin readln(arq, linha2); Linha2 := StringReplace(Linha2, ';', '', [rfReplaceAll, rfIgnoreCase]); Linha := Linha + ' '+ Linha2; try DmsisStock.IbqAux.sql.clear; DmsisStock.IbqAux.sql.Add(Linha); DmsisStock.IbqAux.ExecSql; except end; end; end; CloseFile(arq); DeleteFile(frm_principal.cPathWin+'\dados\cest.sql'); except end; end; CEST.SQL

Legal sua ajuda leandroaoa. Me ajudou bastante. Boas festas e um 2016 de excelência.

Desculpe, ainda em tempo... Quanto a cancelamento. Esta nota pode ser cancelada antes de transmitir para o sefaz, ou precisa transmitir e depois então cancelar? O prazo de cancelamento é após a impressão off line, ou 24 horas depois da autorização sefaz?

Grato leandroaoa pela pronta resposta. 2-Se é obrigatória a via do estabelecimento, vc sabe em que que o estabelecimento usa esta via, já que possue os dados e o xml? 2.1 - comi mosca no geral.formaemissao. Outra coisa: Qual a diferença de EM CONTIGENCIA e OFF LINE? Emitindo off line, sai impresso EMITIDA EM CONTINGENCIA Grato

Boa tarde a todos. Desejo um 2016 excelente para a equipe do AcBr e assinantes deste forum. Me ajudem numa coisa: Para emitir nfc-e Off Line li que precisa ser impresso em Via do Consumidor a informação de EMITIDA EM OFF LINE, e imprimir em duas vias. 1-É isso mesmo que entendi? 2-Estou usando trunk2 e no ESCPOS só encontrei a propriedade viaconsumidor=true ou false. Como informar este texto? Uso informações adicionais? 2.1-Como informar CONSULTA NO SEFAZ DISPONIVEL DENTRO DE 24HS? 3-É obrigatória a impressão da via do estabelecimento? Grato pela ajuda.

Grato Regys pela resposta. e.t. Como vcs estão aí em MG, afetado pela lama? Precisa de alguma coisa? Posso ajudar em algo? Minha igreja tem orado pelas pessoas nesta calamidade. Abcs

Boa tarde amigos. Eu de novo por aqui, tenham paciencia comigo kkkk Estou conseguindo compilar trunk2 com Seattle, depois de uma cansativa migração do Delphi 7 com trunk1, mas com a ajuda dos amigos estou evoluindo. Não consigo a impressão do logo ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1; ACBrNFe1.DANFE.Name := 'ACBrNFeDANFeESCPOS1'; ACBrNFe1.DANFE.Logo := frm_nfe2.edtLogoMarca.Text; ACBrNFeDANFeESCPOS1.Logo := frm_nfe2.edtLogoMarca.Text; ACBrNFeDANFeESCPOS1.PosPrinter := ACBrPosPrinter1 Alguém tem uma dica:

Grato a todos. Consegui compilar informando {$DEFINE DFE_SEM_OPENSSL} NO ACBR.INV

Desculpe Juliomar pela repetição do post. Infelizmente é o desespero de resolver a questão, pois ainda não consegui sucesso seguindo as instruções colhidas em diversos posts. Grato.

Boa noite a todos. Atualizei meu aplicativo para o truck2 com delphi 10 seattle. Ao compilar, ocorre o seguintes erro: [dcc32 Error] OpenSSLExt.pas(69): E1030 Invalid compiler directive: 'MODE' [dcc32 Error] OpenSSLExt.pas(70): E1030 Invalid compiler directive: 'Packrecords' [dcc32 Fatal Error] OpenSSLExt.pas(82): F2613 Unit 'DynLibs' not found. Já configurei conforme instrucao acima configuracoes.gerais.ssllib := LibCapicom coloquei o acbr.inc (pasta AcBr\Fontes\ACBrComum) como: {$DEFINE DFE_SEM_OPENSSL} {.$DEFINE DFE_SEM_CAPICOM} Recompilei com o installtrunk2 e nada de sucesso. O que mais preciso fazer? Grato pela ajuda.

Boa tarde Estou tendo problemas pra compilar meu aplicativo no Delphi 10 Seattle em windows 10. Acontece o mesmo dos amigos acima: [dcc32 Error] OpenSSLExt.pas(69): E1030 Invalid compiler directive: 'MODE' [dcc32 Error] OpenSSLExt.pas(70): E1030 Invalid compiler directive: 'Packrecords' [dcc32 Fatal Error] OpenSSLExt.pas(82): F2613 Unit 'DynLibs' not found. Eu usava trunck1 com delphi 7. desinstalei tudo, removi o acbr. nao encontrei esse dynlibs em nenhum lugar das pastas acbr. Como vcs resolveram isto? Grato pela ajuda.

Gratos pelas dicas. Instalei Seattle e trunck2 sem problemas. Ao compilar meu aplicativo, ocorrer o seguinte erro: synautil.pas(609) E2003 Undeclared indentifier: 'TimeSeparator' synautil.pas(2062) E2003 Undeclared indentifier: 'ShortMonthNames'' Este fonte está na pasta de terceiros\synalist, e pelo que entendi, estas variaveis não são encontradas no system.SysUtil, mas na verdade estão lá. Estou tendo problemas tb com o Indy10 do Seattle. Grato pela ajuda.

Grato pelas respostas Juliomar e Regys

Grato

Boa tarde amigos. Tenho um sistema em Delphi 7 com firebird 2.5 usando os componentes do Acbr. Declaro aqui a minha total satisfação com o AcBr e o atendimento desta equipe de excelencia. Vou migrar para um Delphi mais atualizado. O que os amigos sugerem para uso com o AcBr: XE3, XE8 ou o 10 que saiu agora junto com o Windows10? Já que vou ralar nesta transição, prefiro já fazer fazer de uma vez só. Grato pelas indicações e sugestões. Abcs

Eu de novo... rsrsrsrsrs, desculpe ser chato, é falta de conhecimento mesmo... Verificando o Util, vi que consta no historico das versoes até 2012, mas pelo que pesquisei a url está atualizada. É isso mesmo? realmente preciso saber se são as urls corretas no trunk1. Grato pela paciencia... Historico: {******************************************************************************* |* Historico |* |* 16/12/2008: Wemerson Souto |* - Doação do componente para o Projeto ACBr |* 10/02/2009: André Ferreira de Moraes |* - Adicionado URL de todos os estados |* 18/02/2009: André Ferreira de Moraes |* - Criado Assinatura baseado em código passado por Daniel Simões |* - Criado Validação do XML da NFE baseado em código passado por Daniel Simões |* 24/09/2012: Italo Jurisato Junior |* - Alterações para funcionamento com NFC-e *******************************************************************************} Urls: class function NotaUtil.GetURLRS(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString; begin if AModeloDF = moNFe then begin case ALayOut of LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx'); // LayNfeConsNFeDest : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx'); // LayNfeDownloadNFe : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx', 'https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx'); LayNfeCadastro : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx', 'https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx'); end; end else begin case ALayOut of LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NfeRetAutorizacao.asmx'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfce.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx', 'https://nfce-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx'); LayAdministrarCSCNFCe: Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); end; end; end;