Leonardo Gregianin

Boa tarde, Como forma de retribuir a imensa ajuda que os componentes do ACBr nos dão, já que não pago o SAC tento contribuir com código ou encontrar bugs. Criei um layout para NFC-e no FastReport com largura do papel de 8 cm para ser utilizado em impressoras não fiscais, mas nada impede de ser impresso em papel A4. As alterações foram feitas somente no carregamento dos dados para o ClientDataSet do FastReport (ACBrNFeDANFEFRDM.pas) como: * Criado o ClientDataSet para a tag "pag" (tag exlusiva para NFC-e) * Alterado o ClientDataSet "Identificacao" para carregar a "MensagemFiscal" e compatibilizado a tag "DEmi" para a NFCe mostrar Data e Hora. * Criado no CDS "Destinatario" o campo "Consumidor". Nenhuma destas alterações influenciam ou causa "problemas" na impressão da NF-e. Em anexo os arquivos ACBrNFeDANFEFRDM.pas e ACBrNFeDANFEFRDM.dfm com os últimos fontes do svn. Limitações: 1. A impressão do QR Code vem de uma imagem externa, da mesma forma que é utilizado na impressão da logomarca da empresa. A fazer: 1. Selecionar a URL dos Estados para gerar o endereço do site de consulta. Pág. 14 do Manual de Especificações Técnicas do DANFE NFC-e e QR Code - versão 3.1 2. Criar uma nova propriedade no componente Danfe em FastReport para receber o caminho da imagem QR Code. Utilização: 1. Caminho do arquivo FastReport: ACBrNFeDANFEFR1.FastFile := 'C:\DANFeNFCe.fr3'; 2. Caminho da imagem QR Code: ACBrNFeDANFEFR1.Logo := C:\QR.jpeg'; 3. Imprimir: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(PathDoXML); ACBrNFe1.NotasFiscais.Imprimir; Em anexo como ficou minha impressão, espero que ajude.

Será que a mesma base do código do ACBr para o Danfe em FastReport, criando um novo layout para NFCe e passando a imagem do QR Code como uma imagem externa não daria para fazer?

Alguém que utilize envio por DPEC poderia comentar esta situação?

Tenho uma NFCe em ambiente de produção que está com o mesmo erro no site, a leitura do QR Code por celular funciona perfeitamente. Talvez o site da Sefaz não está conseguindo gerar o QR Code com o hash da URL. Segue o link: http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51130915375991000679650040000021351000021359&nVersao=100&tpAmb=1&dhEmi=323031332D30392D32315431363A31363A31322D30343A3030&vNF=367.58&vICMS=0&digVal=627934516769722B646E4E572B544F5117870435651178626A4B44343D&cIdToken=000001&cHashQRCode=EC5DC564AEE7E96325AA14066C1FE3E3D311E2D2

udenilson, o endereço da sua NFCe é esse: http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131009471363000180650010000000021000000025&nVersao=100&tpAmb=2&cDest=80704611104&dhEmi=323031332d31302d31355431303a34323a32382d30343a3030&vNF=10.00&vICMS=1.70&digVal=57362b6e67566f796b69426f33396869372b4a57563763307337383d&cIdToken=000001&cHashQRCode=EECCAE64A51CBFFEEB0F724B7E2B7BF5305E4EC4 Parabéns, só o QR Code ainda está errado. A mensagem do site "Erro 100 - QR Code Inválido."

É o que eu faço.

Não seria bem isso que eu pensava. A diretiva NF_V_310 seria somente em tempo de compilação e ao propor uma nova propriedade no componente o próprio usuário do sistema definiria a versão que quer utilizar.

Boa tarde Ítalo, Eu acredito que uma nova propriedade no componente seria a forma mais simples e eficiente, já que futuramente pode haver a mesma situação que ocorre hoje. Como não se pode enviar o Xml na versão 3.10 gerando a rejeição "Cabeçalho - versão do arquivo XML superior a versão vigente", acho suficiente trabalhar somente com a constante "NFenviNFe". No meu sistema eu altero a constante para variável "NFenviNFe" e alimento ela no construtor da classe "NotaFiscal.Create" e consigo gerar, assinar e validar o xml.

Italo, Existe alguma variável para se alimentar e gerar o XML conforme a versão dos schemas?

O que está errado no ACBr é a impressão da mensagem "NÚMERO DE REGISTRO DPEC" que sempre aparece se o tipo de emissão é DPEC. Fiz o teste no Emissor gratuito da Sefaz para ver a diferença. E o correto seria verificar se as tags de recebimento existem no final do XML: - <protNFe versao="2.00"> - <infProt> <tpAmb>2</tpAmb> <verAplic>2.00</verAplic> <chNFe></chNFe> <dhRecbto>2013-10-11T18:35:35</dhRecbto> <nProt>xx</nProt> <digVal>eREOrb+1VcMpabSoZnuYudQIjrA=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso da NF-e</xMotivo> </infProt> </protNFe> </nfeProc> Vou anexar uma proposta de mudança: ACBrDANFeCBRaveRetrato.pas Linha 487 ACBrDANFeCBRavePaisagem.pas Linha 463 - else if (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.Ide.tpEmis in [teDPEC]) then - Box([fsLeft,fsTop],PosX,YPos,aWidth,aHeigthPadrao,'NÚMERO DE REGISTRO DPEC',aProtocolo,taCenter,True); + else if (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.Ide.tpEmis in [teDPEC]) then + begin + if procNFe.dhRecbto<>0 then + Box([fsLeft,fsTop],PosX,YPos,aWidth,aHeigthPadrao,'PROTOCOLO DE AUTORIZAÇÃO DE USO',aProtocolo,taCenter,True) + else + Box([fsLeft,fsTop],PosX,YPos,aWidth,aHeigthPadrao,'NÚMERO DE REGISTRO DPEC',aProtocolo,taCenter,True); + end;

Fiz o teste comentado acima e não ví grandes problemas no componente. Na impressão da Danfe antes do envio para Sefaz deverá aparecer o dizer: "NÚMERO DE REGISTRO DPEC" e para imprimir o protocolo que fazer o procedimento abaixo: if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; ACBrNFe1.WebServices.ConsultaDPEC.Executar; ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; E na impressão após o envio para Sefaz, se realmente precisar, deverá aparecer o dizer: "PROTOCOLO DE AUTORIZAÇÃO DE USO" e você deve passar o número do protocolo para: NFe.DANFE.ProtocoloNfe :=

André, na prática eu concordo com você, não teria porque fazer um cancelamento ou uma carta de correção do DPEC. É porque no Emissor gratuito da Sefaz é permitido fazer estes procedimentos utilizando o ambiente nacional.

Boa tarde, Estou em ambiente de homologação e envio e consulto o DPEC normalmente, agora eu quero cancelar o DPEC mas gera a rejeição 494: Chave de acesso inexistente. Debugando o envio do cancelamento por evento é selecionado o webservice da Sefaz local e não o ambiente nacional. procedure TWebServicesBase.LoadURL da unit ACBrNFeWebServices: //Verificação necessária pois somente os eventos de Cancelamento e CCe serão tratados pela SEFAZ do estado //os outros eventos como manifestacao de destinatários serão tratados diretamente pela RFB if not ((self as TNFeEnvEvento).FEvento.Evento.Items[0].InfEvento.tpEvento in [teCCe,teCancelamento]) then FURL := NotaUtil.GetURL(FConfiguracoes.WebServices.UFCodigo, FConfiguracoes.WebServices.AmbienteCodigo, FConfiguracoes.Geral.FormaEmissaoCodigo, LayNFeEventoAN, FConfiguracoes.Geral.ModeloDF) else FURL := NotaUtil.GetURL(FConfiguracoes.WebServices.UFCodigo, FConfiguracoes.WebServices.AmbienteCodigo, FConfiguracoes.Geral.FormaEmissaoCodigo, LayNFeEvento, FConfiguracoes.Geral.ModeloDF) end O que ocorre com o código acima é que "TNFeEnvEvento(Self).FEvento.Evento.InfEvento.tpEvento" recebe "teCancelamento" portanto entra na URL da webservice da Sefaz local gerando a rejeição. Estou fazendo algo errado? Agradeço a ajuda desde já.

Eu que lhe digo obrigado por todo seu trabalho.

Se a própria empresa fornece padrões diferentes, tomara que seja a única exceção.

Bom dia, Desculpe a insistência, mas esta alteração no ACBr só será feita quando vigorar a versão 3.10? Alguém poderia esclarecer? Grato,

Este município "Santa Maria - RS" já está incluso no componente, tente fazer um teste em ambiente homologação com o programa exemplo para esta prefeitura e veja se será transmitido ou os erros que gerou.

Jocimar, "Nota Control" é o nome fantasia da empresa que presta serviço para as prefeituras. "ISSNet" é o nome do produto da Nota Control para que as prefeituras forneçam a Nota Fiscal de Serviço Eletrônica. Abrasf, DSF, e outros são padrões de XML para emissão de NFS-e. Todas as cidades que utilizam o, provedor ISSNet funcionam com o componente do ACBr. Abraço.

Dê uma olhada neste post

Bom dia Caetano, Isso foi implementado no componente recentemente, da mesma forma de relatou.

Bom dia, Nunca utilizei A3 na NFSe mas você já tentou utilizar ACBrNFe1.Configuracoes.Certificados.Senha := 'senha';

Bom dia, Posta o XML.

Bom dia, Você também poderia tratar isso na sua aplicação ao montar as tags do xml do RPS.

Boa tarde, Vou tentar ajudar. Você pode receber uma variável boleana do enviar e se retornar false entra no except: try ACBrNFSe1.Configuracoes.WebServices.ConsultaLoteAposEnvio := False; Retorno := ACBrNFSe1.Enviar(ACBrNFSe1.NotasFiscais.NumeroLote, False); except on e: Exception do begin ACBrNFSe1.NotasFiscais.Clear; Exit; end; end; Ou, você pode verificar as informações de retorno do webservice e tratar na sua aplicação se o envio foi: ACBrNFSe1.WebServices.Enviar.Protocolo; ACBrNFSe1.WebServices.Enviar.DataRecebimento; ACBrNFSe1.NotasFiscais.Items[0].NFSe.DataEmissao; ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao;

A lista de cidades atendidas pode ser vista no arquivo ..\Exemplos\ACBrNFSe\Cidades.rtf, se não constar aí veja na unit pnfsConversao.pas que fica nos fontes da NFSe. A cidade de Santa Cruz Do Sul/RS já existe no componente se no programa exemplo não tem a cidade, você deve incluir manualmente pois é somente um programa exemplo.