Gr@c@

Pelo que entendi da nota técnica 2011/004 o cEAN e o cEANTrib só serão obrigatórios se forem válidos. Se não forem válidos a tag ficará vazia. Alguém confirma isso? Pelo menos nos testes de homologação que fiz funcionou dessa forma. Ainda não tenho nenhum cliente em produção. Além disso, para as empresas se adaptarem ao cEAN (que depende de registro em órgão competente e uma enorme burocracia) seria impossível até 01/11/2011. Não acredito que o cEAN e cEANTrib sejam obrigatórios (a não ser que o CNAE seja de indústria)

10 mas a chave de acesso da nota começa com 31 isso está correto? Nas minhas cartas de correçao o cOrgao = codigo da UF do emitente 31 311110.......................

Bom dia Ítalo Para utilizar o ACBrCTe na versão 1.04 quais os fontes do componente devo alterar além de alterar o {$DEFINE PL_104} do ACBr.inc? Devo alterar também no ACBrDACTeQR? Para fazer essas alterações, devo desinstalar o componente do Delphi ou apenas recompilar?

Caros colegas do ACBr Como vêem esse "autemp" se associou ao ACBr recentemente (10 de outubro de 2011) Com certeza, já entrou com intuito de desestabilizar o bom relacionamento que o grupo tem há vários anos, com o uso de um linguajar medíocre e insultos aos membros do grupo. Proponho que encerremos esse tópico definitivamente e voltemos às nossas atividades normais dentro do grupo, ajudando aos membros do ACBr que realmente merecem a nossa atenção e nosso apreço. E assim também, colaborando com os moderadores e desenvolvedores do ACBr que já são muito atarefados.

Lista com códigos SUFRAMA válidos 550309012 - OK 100698107 - OK 111279100 - OK 100955100 - NO 101040105 - OK 101362102 - OK 100695108 - OK 101160100 - OK 600215105 - OK 111266106 - OK 100170102 - OK 101416105 - OK 101200102 - OK 110344103 - OK 111273102 - OK 100480101 - OK 100628109 - OK 100394108 - OK 101289103 - OK 101139101 - OK 100880100 - NO 100826105 - OK 110410106 - OK 100764100 - NO 110425103 - OK 100965105 - OK

Estou tento problemas com nf-e que foram canceladas no mes de setembro/2011. Elas constam como canceladas no SEFAZ/MG (Cancelamento NF-e homologado, mas não tem numero de protocolo de cancelamento na consulta do site) e constam ainda como autorizadas e válidas no portal nacional. Notem que não houve sincronismo entre Receita Federal e MG de setembro/2011 até hoje. Será que é MINAS SAINDO NA FRENTE como diz a propaganda da TV ou é MINAS saindo de ré? E aí, o SINTEGRA e o SPED ficam como?

No ACBr tem essa rotina? Não encontrei e caso não tenha, alguém poderia disponibilizar uma rotina?

Eu fiz o teste aqui sem informar data e hora e não dá rejeição. A rejeição ocorre somente se informar a tag de hora de saida e não informar a tag de data de saida. Estou fazendo testes em MG ambiente de homologação.

O componente ACBr é confiável e eu o utilizo desde 2009 com sucesso. Se você pesquisar mais um pouquinho descobrirá que o erro "Inativo ou Inoperante Tente Novamente" pode ser causado por: -falha de conexão com a internet -falha na instalação do certificado digital -certificado digital fora da data de vigência ou fora da data de validade -falta de instalação das cadeias de certificados fornecidas pela certificadora do certificado digital -firewal do windows bloqueando o acesso ao certificado digital -firewal do antivirus (principalmente antivirus corporativo como o Trend Micro) bloqueando o acesso ao certificado digital -nível de segurança do windows padronizado como alto (principalmente em Windows Server 2003, Windows 7) -configuração da DEP no Windows -falta de configurar o certificado no seu aplicativo emissor de NF-e Espero ter ajudado.

Foi preciso forçar assim: TRY slCorrecao := TStringList.Create; qryAuxiliar.Close; qryAuxiliar.Sql.Clear; qryAuxiliar.Sql.Add('Select * From TB_NFSAIDACCe'); qryAuxiliar.Sql.Add('Where Empresa = :Empresa'); qryAuxiliar.Sql.Add(' and Serie = :Serie'); qryAuxiliar.Sql.Add(' and NFiscal = :NFiscal'); qryAuxiliar.Sql.Add(' and Status = 1'); qryAuxiliar.Sql.Add(' and Depois IS NOT NULL'); qryAuxiliar.Sql.Add(' and Depois <> '''' '); qryAuxiliar.Parameters.ParamByName('Empresa').Value := wpar_Empresa; qryAuxiliar.Parameters.ParamByName('Serie').Value := FormatFloat('0',chvSerie.AsInteger); qryAuxiliar.Parameters.ParamByName('NFiscal').Value := chvNumeroNF.AsInteger; qryAuxiliar.Open; While not qryAuxiliar.Eof do begin sChaveDeAcesso := qryAuxiliar.FieldByName('ChaveDeAcesso').AsString; iSeqEvento := qryAuxiliar.FieldByName('SeqEvento').AsInteger; iLote := qryAuxiliar.FieldByName('Lote').AsInteger; slCorrecao.Add(Trim(qryAuxiliar.FieldByName('DesCampo').AsString) + ' Alterar [' + Trim(qryAuxiliar.FieldByName('Antes').AsString) + '] Por [' + Trim(qryAuxiliar.FieldByName('Depois').AsString) + '];'); Frm_NFePrincipal.ACBrNFe1.CartaCorrecao.CCe.Evento.Clear; Frm_NFePrincipal.ACBrNFe1.CartaCorrecao.CCe.idLote := iLote; with Frm_NFePrincipal.ACBrNFe1.CartaCorrecao.CCe.Evento.Add do begin infEvento.chNFe := sChaveDeAcesso; infEvento.cOrgao := StrToInt(Copy(sChaveDeAcesso,1,2)); infEvento.CNPJ := chvCNPJEmitente.Text; infEvento.dhEvento := now; infEvento.tpEvento := 110110; infEvento.nSeqEvento := iSeqEvento; infEvento.versaoEvento := '1.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xCorrecao := slCorrecao.Text; infEvento.detEvento.xCondUso := ''; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=tsiloeZ6vBw= end; qryAuxiliar.Next; end; Frm_NFePrincipal.ACBrNFe1.EnviarCartaCorrecao(iLote); Frm_NFePrincipal.MemoResp.Lines.Text := UTF8Encode(Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.RetWS); Frm_NFePrincipal.LoadXML(Frm_NFePrincipal.MemoResp, Frm_NFePrincipal.WBResposta); sProtocolo := Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt; sMotivo := Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo; iStat := Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.cStat; if (iStat = 128) or (iStat = 135) or (iStat = 136) then bOK := True else begin bOK := False; raise Exception.Create('Status ' + FormatFloat('0',iStat) + ' - ' + sMotivo); end; bVisualizarConfig := Frm_NFePrincipal.ACBrNFe1.Configuracoes.WebServices.Visualizar; Frm_NFePrincipal.ACBrNFe1.Configuracoes.WebServices.Visualizar := bVisualizarConfig; qryAuxiliar.Close; EXCEPT ON E:EXCEPTION DO begin ShowMessage('Carta de Correção não foi enviada.' + #13#13#10 + E.MESSAGE); Exit; end; END;

Encontrei a resposta no caso 1055 do Mantis sProtocolo := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt; sMotivo := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo; Tentei enviar um evento repetido de uma mesma NF-e. Mas não está gerando uma excessão de Evento em Duplicidade. O protocolo que retorna é vazio e o motivo é 573-CCe em Duplicidade. Frm_NFePrincipal.ACBrNFe1.Configuracoes.WebServices.Visualizar := TRUE; TRY slCorrecao := TStringList.Create; qryAuxiliar.Close; qryAuxiliar.Sql.Clear; qryAuxiliar.Sql.Add('Select * From TB_NFSAIDACCe'); qryAuxiliar.Sql.Add('Where Empresa = :Empresa'); qryAuxiliar.Sql.Add(' and Serie = :Serie'); qryAuxiliar.Sql.Add(' and NFiscal = :NFiscal'); qryAuxiliar.Parameters.ParamByName('Empresa').Value := wpar_Empresa; qryAuxiliar.Parameters.ParamByName('Serie').Value := FormatFloat('0',chvSerie.AsInteger); qryAuxiliar.Parameters.ParamByName('NFiscal').Value := chvNumeroNF.AsInteger; qryAuxiliar.Open; While not qryAuxiliar.Eof do begin sChaveDeAcesso := qryAuxiliar.FieldByName('ChaveDeAcesso').AsString; iSeqEvento := qryAuxiliar.FieldByName('SeqEvento').AsInteger; iLote := qryAuxiliar.FieldByName('Lote').AsInteger; slCorrecao.Add(Trim(qryAuxiliar.FieldByName('DesCampo').AsString) + ' Alterar [' + Trim(qryAuxiliar.FieldByName('Antes').AsString) + '] Por [' + Trim(qryAuxiliar.FieldByName('Depois').AsString) + '];'); Frm_NFePrincipal.ACBrNFe1.CartaCorrecao.CCe.Evento.Clear; Frm_NFePrincipal.ACBrNFe1.CartaCorrecao.CCe.idLote := iLote; with Frm_NFePrincipal.ACBrNFe1.CartaCorrecao.CCe.Evento.Add do begin infEvento.chNFe := sChaveDeAcesso; infEvento.cOrgao := StrToInt(Copy(sChaveDeAcesso,1,2)); infEvento.CNPJ := chvCNPJEmitente.Text; infEvento.dhEvento := now; infEvento.tpEvento := 110110; infEvento.nSeqEvento := iSeqEvento; infEvento.versaoEvento := '1.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xCorrecao := slCorrecao.Text; infEvento.detEvento.xCondUso := ''; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=tsiloeZ6vBw= end; qryAuxiliar.Next; end; Frm_NFePrincipal.ACBrNFe1.EnviarCartaCorrecao(iLote); Frm_NFePrincipal.MemoResp.Lines.Text := UTF8Encode(Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.RetWS); Frm_NFePrincipal.LoadXML(Frm_NFePrincipal.MemoResp, Frm_NFePrincipal.WBResposta); sProtocolo := Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt; sMotivo := Frm_NFePrincipal.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo; bVisualizarConfig := Frm_NFePrincipal.ACBrNFe1.Configuracoes.WebServices.Visualizar; Frm_NFePrincipal.ACBrNFe1.Configuracoes.WebServices.Visualizar := bVisualizarConfig; qryAuxiliar.Close; EXCEPT ON E:EXCEPTION DO begin ShowMessage('Carta de Correção não foi enviada.' + #13#13#10 + E.MESSAGE); //aqui deveria gerar uma excessão de Evento em Duplicidade// Exit; end; END;

Minha CC-e já está funcionando e já consegui entender como funciona o SeqEvento. Mas para que fique correto, preciso capturar o ultimo SeqEvento de uma ChaveDeAcesso para ter certeza de qual será o proximo e também obter o numero do protocolo de autorização de uma CC-e. Mas os comandos abaixo não funcionam e não entendo o q estou fazendo de errado porque estou com a ultima atualização do componente ACBrNFe: ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retnProt; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStatInfEvento; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.xMotivoInfEvento; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retdhRegEvento

Alguém que tenha conseguido usar as propriedades abaixo do retorno CC-e poderia me passar um exemplo de como fazer isso? Já atualizei o componente e continua me dando mensagem de Identificador não declarado para retnProt,cStatInfEvento,xMotivoInfEvento e retdhREgEvento). O Demo do ACBr não está completo para capturar os dados do retorno. ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retnProt; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStatInfEvento; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.xMotivoInfEvento; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retdhRegEvento

Bom dia, obrigada pelas respostas. Mas ainda tenho dúvidas: 1- Referente a: ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retnProt; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.cStatInfEvento; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.xMotivoInfEvento; ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retdhRegEvento; Eu não consigo acessar essas propriedades do componente (retnProt,cStatinfEvento,xMotivoInfEvento e retdhRegEvento). Só aparece retEvento. Quando tempo compilar dá erro de Undeclared Identificador: retnProt Undeclared Identificador: cStatInfEvento Undeclared Identificador: xMotivoInfEvento Undeclared Identificador: retdhRegEvento Tenho que declarar alguma unit? Estou com meus fontes do ACBr todos atualizados via SVN. 2-Referente a: Pelo que entendi todas são válidas, em nenhum lugar eu vi que diz eu uma nova carta de correção para a mesma nota cancela as anteriores. No manual diz que a carta de correção é cumulativa, devendo constar todas as alterações das cartas anteriores ref aquela nota fiscal. Fiz teste aqui, fazendo uma carta de correção da nota 15 e em seguida, outra carta de correção da mesma nota. No site, fica constando apenas as alterações da ultima carta e seu respectivo protocolo, e se eu não discriminar nela todas as alterações da carta anterior, fica somente com a ultima alteração. Então, o cliente não consegue ver o que foi alterado na carta anterior. É como se a carta anterior não existisse mais. 3-Ref a: Na function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean; Está retornando TRUE quando ocorre alguma rejeição, como por exemplo, Duplicidade de Evento. Não deveria retornar FALSE? Não me retorna nenhuma mensagem de erro ou excessão quando existe duplicidade de evento. Debugando o aplicativo, o erro ocorre, mas não está gerando uma excessão. Então a função acima está retornando true.

1-Como capturar o retorno do envio da CC-e: numero do protocolo de autorização, data e hora? 2-Não estou entendendo como irá funcionar o seqEvento. Se na NF nr 15 eu já enviei uma carta de correção com 5 eventos, ao enviar uma nova correção dessa carta devo enviar o seqevento a partir do 6, mesmo acumulando os eventos anteriores (afinal, o que irá valer é a ultima carta de correção enviada)? 3-Na function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean; Está retornando TRUE quando ocorre alguma rejeição, como por exemplo, Duplicidade de Evento. Não deveria retornar FALSE?

Segue resposta do Fale Conosco do SEFAZ/MG sobre falha no cancelamento de NFe ABRE ASPAS Conforme parecer da superintendência responsável, informamos que tivemos algumas ocorrências de instabilidade em nossos sistemas, e que os referidos problemas já foram sanados. Favor tentar novamente. FECHA ASPAS

Estou realizando testes de envio de CC-e MG. Até agora tudo ok, a cc-e é enviada e autorizada e consta imediatamente no site do SEFAZ juntamente com a NF-e. Falta agora: 1-pegar dados do retorno para gravar em meu banco de dados: protocolo de autorização, data e hora de autorização 2-Gerar PDF 3-Imprimir pelo menos no modelo de impressão do SEFAZ (ao clicar no botão imprimir do protocolo de autorização da CC-e)

Também estou tendo esse problema desde ontem. Não consigo cancelar notas. E no SEFAZ o serviço de cancelamento encontra-se disponivel. Mais alguém em MG está com problemas de cancelamento de nfe?

Ítalo, fiz a atualização do ACBr conforme as instruções que você me passou (sem excluir a pasta ACBr e fazer toda a atualização do zero), mas fazendo apenas o update dos fontes, para evitar o problema do componente TQRRoundRect que estava fazendo os componentes do QReport sumirem. Mas durante a atualização um arquivo ficou em conflicted e outro Merged. O que significam essas ocorrências? Os arquivos atualizaram ou não? O que devo fazer nesse caso? Conflicted: C:\Arquivos de programas\Borland\Delphi7\Lib\ACBr\Exemplos\ACBrNFe2\Delphi\Report\NotaFiscalEletronica.rav application/octet-stream Merged: C:\Arquivos de programas\Borland\Delphi7\Lib\ACBr\Fontes\ACBrCTe\ACBrCTeDACTeQRRetrato.pas

Atualizei o SVN hoje e um arquivo ficou em conflicted e outro Merged O que significam essas ocorrências? Os arquivos atualizaram ou não? Como proceder nesse caso? Conflicted: C:\Arquivos de programas\Borland\Delphi7\Lib\ACBr\Exemplos\ACBrNFe2\Delphi\Report\NotaFiscalEletronica.rav application/octet-stream Merged: C:\Arquivos de programas\Borland\Delphi7\Lib\ACBr\Fontes\ACBrCTe\ACBrCTeDACTeQRRetrato.pas

Ao tentar enviar CC-e dá a rejeição CNPJ-Base Emitente difere do CNPJ-Base do certificado. Porém, dentro do mesmo aplicativo emissor de NF-e, consigo enviar NF-e em homologação com o mesmo certificado e mesmo emitente. Só não estou conseguindo enviar CC-e. Estou com a pasta Schemas atualizada para envio de CC-e. Ambiente: Delphi7 Windows XP sp3 original Certificado A3 Token Certisign Alguém passou por isso?

Pessoal, a coisa aqui tá realmente complicada. Preciso saber se o componente TQRRoundRect do Quick Report que está vindo com o ACBr é de uma versão mais recente do Quick Report. Não consigo mais usar os outros componentes originais do Quick Report que vem com o Delphi 7. Não consigo mais compilar meus projetos que utilizam o QuickReport. Só aparece esse componente TQRRoundRect. Já desinstalei o Delphi, reinstalei, mas quando instalo ACBr os componentes do QuickReport somem.

Não sei se tem alguma coisa a ver, mas depois que atualizei o ACBr, os componentes da paleta QReport sumiram, aparecendo apenas o TQRRoundRect do package acbrctedacteqrpkg Seria algum problema de versão de compilação? Eu reinstalo o QReport, os componentes aparecem na paleta. Fecho o Delphi e ao abrir novamente, os componentes não estão mais lá, somente o TQRRoundRect do acbrctedacteqrpkg. Alguém com esse problema?

Sou de MG, mas minha empresa está credenciada em SP e outros estados. Minha empresa tbem não tinha insc.estadual e o SEFAZ não autorizou o credenciamento por esse motivo. Tivemos que fazer uma Alteração Contratual da empresa, alterando CNAE para desenvolvimento, manutenção e "comercialização" de software e assim obter a inscrição estadual. Agora podemos emitir NFe tanto em homologação como produção. Porém CT-e só podemos emitir em homologação porque nosso CNAE não é de transportadora. A Insc.Estadual é pré-requisito para credenciamento tanto de NFe como CTe em todos os estados. Não tem jeito. É uma despesa a mais para a empresa, infelizmente. Isso é prova contundente que o fisco quer mesmo tirar as pequenas software house do mercado.

[RESOLVIDO] Stack underflow do notafiscaleletronica.rav. Basta atualizar o .rav do SVN revisao 2750