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.

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.

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 : 51140514148608000172650010000000441000000444 Ambiente : 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: enviarnfce_sefaz.txt

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. ZINTBARCODE_D7.rar ZINTBARCODE_D2010.rar

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.

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".

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