Leonardo Gregianin

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.

A entrada desses tipos é para versão 3.10, mas já poderia ter no componente.

Boa tarde, Aparentemente há inconsistências nos tipos de motivos de desoneração de ICMS depois da publicação da Nnota técnica 2013.005 da NFe. Os tipos atuais do ACBr constam: 1 = mdiTaxi 2 = mdiDeficienteFisico 3 = mdiProdutorAgropecuario 4 = mdiFrotistaLocadora 5 = mdiDiplomaticoConsular 6 = mdiAmazoniaLivreComercio 7 = mdiSuframa 8 = mdiVendaOrgaosPublicos 9 = mdiOutros 12 = mdiOrgaoFomento E os que constam na nota técnica: 1 = mdiTaxi 2 = mdiDeficienteFisico ****ELIMINADO**** 3 = mdiProdutorAgropecuario 4 = mdiFrotistaLocadora 5 = mdiDiplomaticoConsular 6 = mdiAmazoniaLivreComercio 7 = mdiSuframa 8 = mdiVendaOrgaosPublicos 9 = mdiOutros 10 = mdiDeficienteCondutor 11 = mdiDeficienteNaoCondutor 12 = mdiOrgaoFomento Vou anexar uma possível solução com os novos tipos para que analisem.

O mesmo acontece comigo, uma variável no ACBr.inc evita ter que alterar o componente a cada atualização.

Gabriel, Você terá que utilizar "Gerar e Enviar Lote" mesmo. Qual comando utiliza para receber o número do protocolo e a data? Eu utilizo assim: NFSe.WebServices.Enviar.Protocolo; NFSe.WebServices.Enviar.DataRecebimento;

Márcio, Atualiza seus fontes porque desde a data do post houve alterações no svn para este provedor.

http://isaquesp.blogspot.com.br/2011/09/varias-versoes-do-delphi-instaladas-sem.html

João, Uma solução elegante seria incluir uma diretiva no ACBr.inc como já há várias por lá. ACBr.inc: // Definições para o Rave Report Code Base // Descomente a linha abaixo caso o Rave Report tenha suporte a opção soAllowSaveFromPreview //------------------------------------------------------------------------------ //{$DEFINE RaveCB_Save} ACBrDANFeCBRave.pas: DANFeRave.SystemOptions:=[soShowStatus,soAllowPrintFromPreview,{$IFDEF RaveCB_Save}soAllowSaveFromPreview,{$ENDIF}soPreviewModal];

Na aplicação pode passar assim: if ACBrNFSe1.Configuracoes.WebServices.Ambiente = taProducao then ACBrNFSe1.NotasFiscais.Items[0].NFSe.Producao := snSim else ACBrNFSe1.NotasFiscais.Items[0].NFSe.Producao := snNao; E no componente ACBrNFSeDANFSeQRRetrato.pas ficaria assim: // Mensagem para modo Homologacao. qrlMsgTeste.Visible := False; qrlMsgTeste.Enabled := False; if FNFSe.Producao = snNao then begin qrlMsgTeste.Caption := 'AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL'; qrlMsgTeste.Enabled := True; qrlMsgTeste.Visible := True; end; if (FNFSe.NfseCancelamento.DataHora<>0) or FNFSeCancelada then begin qrlMsgTeste.Caption := 'NFS-e CANCELADA'; qrlMsgTeste.Visible := True; qrlMsgTeste.Enabled := True; end; qrlMsgTeste.Repaint;