Edson Fernandes
-
Total de ítens
77 -
Registro em
-
Última visita
-
Days Won
2
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Edson Fernandes
-
-
Olá, faz tempo que ninguém posta nada aqui mas vou tentar:
Estou com o acbr atualizado: 02/02/2014, nfce e nfe, sped, tudo funcionando. Os schemas também estão atualizados. Mas ao tentar gerar a manifestação da nota, me vem a mensagem que está em anexo.
O código que estou usando é este:
ACBrNFe1.EventoNFe.Evento.Clear;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
INFEVENTO.cOrgao := STRTOINT(Copy(FRMLOGIN.QUERYEMPRESA.FIELDBYNAME('NFE_CIDADE_COD').ASSTRING,1,2));
infEvento.chNFe := Chave;
infEvento.CNPJ := CNPJ;
INFEVENTO.nSeqEvento:=1;
infEvento.dhEvento := now;
infEvento.tpEvento := teManifDestConfirmacao;
end;
ACBrNFe1.EnviarEventoNFe(1);
Aqui, ao se mandar o evento para CCE, funciona perfeitamente, sou do Mato Grosso. Já li alguns tópicos sobre isso, mas não consegui resolver ainda. Por favor me ajudem, está faltando só isso pra terminar um projeto e atender a um cliente que tem posto de combustíveis.
Obrigado.
-
Boa noite..
Nao estou conseguindo enviar uma Nfce em homologação para o MT, o retorno do envio vem em branco,
Desde ja agradecido.
Olha no evento ongerarlog do componente acbrnfe e insira: showmessage(mensagem); para ver o que vem de retorno, pelo menos aqui eu estava com esse problema e acabei resolvendo dessa forma. Acho que eu tentava capturar de forma errada o resultado do webservice.
-
RESOLVIDO! Vou deixar o post aqui porque outra pessoa pode ter o mesmo problema.
Como o meu notebook veio com o Windows 8, fiquei com dó de formatar e acabei utilizando ele mesmo. Acho que o problema está aí, pois ao compilar aqui e ir nos clientes que estava dando erro, simplesmente foi resolvido. Penso que seja o gerenciador do certificado digital.
Recomento aos amigos que estão começando a utilizarem o evento OnGerarLog do componente tacbrnfe e por o código:
showmessage(mensagem);
sendo assim, tudo que acontecer no webservice vem como mensagem e fica fácil de identificar, pois aqui era coisa boba como por exemplo: hora do computador diferente da hora do servidor do webservice, o contador disse que tinha credenciado o cliente e não tinha, etc. No meu caso, não estava vindo a mensagem de erro e simplesmente eu ficava no escuro. Obrigado a todos e até a próxima!--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Pessoal, depois de tanto apanhar pra gerar a nfce com a versão 3.10 (simplesmente deixei configurado no componente e não alterei em tempo de execução), agora me deparei com um erro aparentemente bobo. Primeiro, gostaria de dizer que atualizei o acbr hoje (19/05/2014).
Abrindo a pasta exemplos do acbr, peguei o projeto do acbrnfe2 mando gerar e enviar o nfce.
Quando eu mando enviar pro amazonas (web service, ceps, código do município e estado tanto no emitente quanto no destinatário), funciona perfeito. Autoriza normalmente. Acontece que quando eu mudo para o mato grosso (mesma situação: estado, web service, etc), esta aparecendo uma mensagem de erro.
Ambiente : 2
Versão Aplicativo : 3.00
Status Código : 213
Status Descrição : Rejeicao: CNPJ-Base do Emitente difere do CNPJ-Base do Certificado Digital
UF : MT
dhRecbto : 19/05/2014 20:58:04
chNFe : 51140514148608000172650010000000441000000444Ambiente : 2
Versão Aplicativo : AM3.10-NAC
Status Código : 100
Status Descrição : Autorizado o uso da NF-e
UF : AM
dhRecbto : 19/05/2014 20:59:22
chNFe : 51140514148608000172650010000000471000000470======================================================================================================================
Hoje eu fui em um cliente e atualizei meu sistema porque eu queria usar o 3.10 e notei que parou de enviar, então eu voltei pra versão anterior e ta funcionando perfeito. Alguma sugestão? Olha, eu sei que estou dando trabalho demais pra equipe, mas infelizmente não funcionou direito ainda.
-
Olá, eu atualizei pelo svn ontem (16/05/2014), criei uma nova pasta e inclusive o notebook é novo, instalei o delphi 2010 juntamente com os componentes e ate agora nada.
-
ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
Olá anfm, mais uma vez obrigado por responder.
Coloquei o código acima antes de mandar gerar o xml. Outra coisa que fiz, peguei o arquivo de schemas que esta dentro da pasta acbr\exemplos\acbrnfe2\delphi\schemas\v310\PL_008a, descompactei os arquivos para uma pasta chamada schemas e joguei dentro da pastinha da minha aplicação. Note que ficou schema somente para a versão 3.10
Acontece que ao gerar o xml, o sistema faz referencia aos schemas da versao 3.00 dizendo que nao os encontrou. Se eu colocar os arquivos da versao 3.0 junto na mesma pasta, ele gera o arquivo xml, mas com versão 3.0
-
Olá anfm, pra mim é uma satisfação. Estou definindo isso aqui ao mandar gerar o xml:
with ACBrNFe1.NotasFiscais.ADD.NFe do
begin
IF TBL_VENDAS.FIELDBYNAME('nfe_serie').ASSTRING = '' THEN
Ide.serie := 1
ELSE
Ide.serie := STRTOINT(TBL_VENDAS.FIELDBYNAME('nfe_serie').ASSTRING);Ide.natOp := TBL_VENDAS.FIELDBYNAME('nfe_natureza').ASSTRING;
infNFe.ID := TBL_VENDAS.FIELDBYNAME('nfce_numero').ASSTRING;
Ide.nNF := STRTOINT(TBL_VENDAS.FIELDBYNAME('nfce_numero').ASSTRING);
Ide.cNF := STRTOINT(TBL_VENDAS.FIELDBYNAME('nfce_numero').ASSTRING);
Ide.dEmi := TBL_VENDAS.FIELDBYNAME('data').asdatetime;
Ide.dSaiEnt := TBL_VENDAS.FIELDBYNAME('data').asdatetime;
Ide.hSaiEnt := StrToTime(TBL_VENDAS.FIELDBYNAME('hora').ASSTRING); ;IF TBL_VENDAS.FIELDBYNAME('nfe_tipo').asinteger = 1 Then
Ide.tpNF := tnSaida
else
Ide.tpNF := tnEntrada;ACBrNFe1.Configuracoes.Geral.ModeloDF := monfce;
Ide.tpImp := tiNFCe;
infNFe.Versao := 3.1; <========
Ide.indFinal := cfConsumidorFinal;
Ide.indPres := pcPresencial;
Ide.dEmi := Now;tenho que mandar usar a versão em algum outro lugar? Perdoe-me pela ignorância.
Obrigado.
-
Pessoal, boa noite. Estou enfrentando um problema sério aqui relacionado ao envio da NFCe.
Acontece que ao gerar o xml em determinadas máquinas, o cabeçalho do arquivo xml sai errado e aparentemente esse é o problema.
Eu já testei tudo que me veio a cabeça e não consegui identificar a causa do erro, como por exemplo: alterar as configurações do internet explorer, instalar novamente certificado, cadeias, etc. Geralmente, pra conseguir implantar o nfce em uma empresa, quando da o problema do cabeçalho, tenho que ficar pulando de maquina em maquina até achar uma que não de o problema. Uma coisa estranha é que a NFE funciona perfeitamente.
Esta em anexo uma imagem com o cabeçalho que eu julgo estar errado
e outro anexo com o cabeçalho que foi aceito pela sefaz.
Olha, se alguém puder me ajudar, ficarei muito agradecido, porque sinceramente, o trem ta feio aqui. Muito Obrigado.
-
Segue como fiz pra enviar a nfce e olhar o retorno do webservice:
-
Obrigado Juliomar, notei mesmo que estava estranho, mas no momento que postei, isso não me ocorreu, pois estava interessado mesmo em distribuir o meu humilde conhecimento. Abraços
-
Pessoal, aqui esta o comando que imprime o danfe, depois de gerado o arquivo xml e transmitido, também sou novato, logo, se meu código for analisado por um expert, talvez ache alguma coisa fora do lugar, mas aqui ta imprimindo o DANFE-NFCE:
-
Segue comandos pra se gerar um nfce usando os componentes acbr. Pessoal, se faltar alguma rotina aí, pede que eu posto aqui no fórum. Notem que eu fiz a geração do nfc-e aproveitando o código da geração da NFE, sendo assim, pode conter informação desnecessária, mas o que importa é que funciona.
-
Conforme solicitado pelo amigo EasyTEF, segue as rotinas pra cancelamento. Adapte o código para sua aplicação. Se precisar de mais alguma coisa, pede aí.
-
Pessoal, Graças a Deus a ao pessoal aqui do fórum, consegui executar com sucesso todos os procedimentos referentes a emissão, cancelamento e impressão do NFC-e. Aqui estão os principais passos que eu usei pra fazer. Tudo que está aqui eu copiei aqui mesmo do fórum, mas a idéia é concentrar num lugar só os principais comandos. No meu caso, tive problemas ao usar Delphi 7 e acabei migrando na marra para o Delphi2010, mas isso pode ser imperícia minha. O Relatório foi gerado usando o FastReports e o componente pra gerar o qrcode está em anexo.
-
estava com problema de erro 100 (qrcode inválido), passei a utilizar o código do amigo "ValdirDill" para converter string para hexa e deu certo!!!
obrigado.
-
Roberto.Gordinho:
Poderia por favor passar a rotina:
montarqrcode <== está no fim do seu texto na página 15.
Muito obrigado.
Me desculpem, eu não tinha entendido. Já resolvi. Obrigado
-
Para saber se a nota fiscal cancelada:
==============================================
var sXML : string;
begin
if tbl_vendas.active = false then exit;
if tbl_vendas.recordcount = 0 then exit;
sXML := tbl_vendas.fieldbyname('nfe_end_xml').asstring;
if sxml = '' then
BEGIN
MESSAGEERRO('ARQUIVO XML AINDA NÃO FOI GERADO.');
exit;
END;
try
ACBrNFe1.Configuracoes.WebServices.Visualizar:=true;
if FileExists(sxml) then
begin
bMensagem := true;
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(sXML);
ACBrNFe1.Consultar;if ACBrNFe1.NotasFiscais.Items[0].Confirmada then
begin
TBL_VENDAS.edit;
TBL_VENDAS.FieldByName('nfe_end_xml').asstring := sXML;
TBL_VENDAS.FieldByName('nfe_situacao').asinteger := 6;
TBL_VENDAS.FieldByName('nfe_motivo').asstring := 'Autorizado o uso da NF-e';
TBL_VENDAS.FieldByName('NFE_chave').AsString := copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44);
TBL_VENDAS.FieldByName('nfe_data').asdatetime:=ACBrNFe1.WebServices.Consulta.DhRecbto;
TBL_VENDAS.FieldByName('nfe_hora').asstring:=timetostr(ACBrNFe1.WebServices.Consulta.DhRecbto);
TBL_VENDAS.FieldByName('nfe_protocolo').asstring:=ACBrNFe1.WebServices.Consulta.protocolo;
TBL_VENDAS.post;
end;
if ACBrNFe1.WebServices.Consulta.cStat = 101 then //cancelada
begin
TBL_VENDAS.edit;
TBL_VENDAS.FieldByName('nfe_end_xml').asstring := sXML;
TBL_VENDAS.FieldByName('nfe_situacao').asinteger := 8;
TBL_VENDAS.FieldByName('nfe_motivo').asstring := 'Cancelamento de NF-e homologado';
TBL_VENDAS.FieldByName('nfe_data').asdatetime:=ACBrNFe1.WebServices.Consulta.DhRecbto;
TBL_VENDAS.FieldByName('nfe_hora').asstring:=timetostr(ACBrNFe1.WebServices.Consulta.DhRecbto);
TBL_VENDAS.FieldByName('nfe_protocolo').asstring:=ACBrNFe1.WebServices.Consulta.protocolo;
TBL_VENDAS.post;
end;end
else
begin
application.messagebox('Arquivo XML não encontraddo!','Erro',mb_ok+mb_iconerror);
end;except
on E:exception do
begin
ACBrNFe1.Configuracoes.WebServices.Visualizar:=false;
application.MessageBox(PAnsiChar('Erro ao consultar a NFe!'+#13+
'Mensagem: '+E.message),'Erro',
mb_ok+mb_iconerror);
end;
end;======================================================================================================
Veja bem, se o cStat = 101 quer dizer que a nota foi cancelada na sefaz
uma vez que você detectou isto, basta colocar o comando:
ACBrNFe1.danfe.nfecancelada:=true
antes do procedimento de imprimir o DANFE.
Espero que ajude.
-
Pessoal, como faço para saber se o acbrnfemonitor está rodando no windows? A idéia é rodar uma rotina no delphi para saber se o processo acbrnfemonitor está rodando na hora de mandar gerar uma nota eletrônica, caso ele não esteja, o sistema mandará abrir ele automaticamente.
tentei usar isso:
Function JanelaExiste(Classe,Janela:String) :Boolean;
Mas não sei o que por dentro das variáveis.
Eu uso isso pra saber se o meu próprio sistema está rodando para permitir apenas uma instância do mesmo e da certo, mas no caso do acbr, eu não sei o nome da janela para testar.
Muito obrigado.
-
-
Pessoal, onde posso baixar os fontes do programa "Recupera XML"?
-
Obrigado a todos pela atenção dispensada. Resolvi o problema instalando o Delphi 7 Enterprise.
-
Passei por isso e agora consigo usar os componentes normalmente. Acontece que eu usava uma versão do delphi chamada "DELPHI ARCHITECT". Eu nunca consegui instalar os componentes da NFE nesta versão do delphi. O problema só foi resolvido quando eu passei a utilizar uma outra versão do Delphi 7, a "ENTERPRISE".
-
Qual a versão do ACBrNFeMonitor está utilizando, baixe a última versão disponibilizada no repositório livre no endereço: http://sourceforge.net/projects/acbr/files/
Obrigado por responder, estou usando a Versão 0.7.1a e vou baixar esta versão com o final "c". Amanhã eu vou no cliente testar e volto aqui para postar se deu ou não certo.
-
Pessoal, meus cumprimentos.
Venho através desta, informar que ao tentar enviar uma CCE (Carta de Correção Eletrônica) para a Sefaz do Mato Grosso, por intermédio do ACBRNfeMonitor versão 0.7.1a CAPICOM, está retornando o erro: "ERRO: URL não disponível para o estado solicitado."
O código que estou gerando para mandar via txt ao ACBRNfeMonitor é o seguinte:
----------------------------------------------------------------------
NFE.CARTADECORRECAO("[CCE]
idLote=1
[EVENTO001]
chNFe=51120414410076000108550010000000371000000373
cOrgao=51
CNPJ=01234567000195
dhEvento=30/07/12 15:27:58
nSeqEvento=1
xCorrecao=teste de correção!!!")
----------------------------------------------------------------------
Só para constar, quando eu mudo o cOrgao para 35 (que é São Paulo) e mudo tambem no ACBRNfeMonitor o webservice para o Estado de São Paulo, o erro vem diferente, algo como se o código da chave não fosse daquele estado.
Agradeço antecipadamente pela atenção dispensada.
Muito Obrigado.
Edson Fernandes.
-
Para informar CSOSN é necessário o CRT da empresa ser 1
verifique se isso foi informado nos dados da empresa
CRT=1
==============================
1 = SIMPLES NACIONAL
2 = SIMPLES NACIONAL COM EXCESSO DE SUBLIMITE DE RECEITA BRUTA
3 = REGIME NORMAL
==============================
E é verdade, o limite de caracteres para este campo é 3
Erro Tentando Gerar Nfc-E
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado · Editado por EDSON FERNANDES
Verificando o código da unit "ACBrDANFCeFortesFr" na procedure "procedure TACBrNFeDANFCeFortesFr.rlVendaBeforePrint":
qrcode := NotaUtil.GetURLQRCode( ide.cUF, ide.tpAmb,
infNFe.ID,
DFeUtil.SeSenao(Dest.idEstrangeiro <> '',Dest.idEstrangeiro, Dest.CNPJCPF),
ide.dEmi,
Total.ICMSTot.vNF, Total.ICMSTot.vICMS,
signature.DigestValue,
TACBrNFe( ACBrNFeDANFCeFortes.ACBrNFe ).Configuracoes.Geral.IdToken,
TACBrNFe( ACBrNFeDANFCeFortes.ACBrNFe ).Configuracoes.Geral.Token);
Com isso, a chave de acesso fica assim: NFE51140603658692000158650010000000201000000205
alterando para:
qrcode := NotaUtil.GetURLQRCode( ide.cUF, ide.tpAmb,
SomenteNumeros(infNFe.ID), <==== aqui tem que pegar só a numeração, no caso do acbr, ta pegando NFe junto
DFeUtil.SeSenao(Dest.idEstrangeiro <> '',Dest.idEstrangeiro, Dest.CNPJCPF),
ide.dEmi,
Total.ICMSTot.vNF, Total.ICMSTot.vICMS,
signature.DigestValue,
TACBrNFe( ACBrNFeDANFCeFortes.ACBrNFe ).Configuracoes.Geral.IdToken,
TACBrNFe( ACBrNFeDANFCeFortes.ACBrNFe ).Configuracoes.Geral.Token);
a chave de acesso passa a ser: 51140603658692000158650010000000201000000205
Aqui resolveu.