-
Total de ítens
160 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por J Pereira
-
-
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/2015if (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; -
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;
-
-
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
-
-
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
-
1
-
-
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;
Requisição não enviada
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado
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...