GAVOHA

Problema solucionado! Erro bobo: De fato em ambiente de Homologação coloquei o nome do produto como indicado na mensagem e esse problema foi resolvido. Agora está dando erro de QR-Code. ... não sei gerar; Alguém poderia me ajudar? Estou finalizando a emissão da seguinte forma: DM.ACBrNFe1.Configuracoes.WebServices.UF := DM.qryDadosLojaUF.Text; DM.ACBrNFe1.Configuracoes.Arquivos.PathSchemas := DM.sNFSchemas; DM.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := DM.sNFSalvas; DM.ACBrNFe1.Configuracoes.Arquivos.PathNFe := DM.sNFSalvas; DM.ACBrNFe1.Configuracoes.Certificados.Senha := DM.sCertificadoSenha; DM.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := DM.sCertificadoSerie; DM.ACBrNFe1.NotasFiscais.GerarNFe; DM.ACBrNFe1.NotasFiscais.Assinar; DM.ACBrNFe1.NotasFiscais.Validar; DM.ACBrNFe1.NotasFiscais.GravarXML(DM.sNFSalvas+'\nfe'+DM.qryVendaMestreid.Text+ '.xml'); DM.ACBrNFe1.Enviar(0,false); DM.ACBrNFe1.NotasFiscais.Imprimir;

Meu brother, esse arquivo que você está abrindo é o XML?

(Estou em SP e desenvolvendo para Natal - RN. Fui fazer uma demonstração ao meu sócio e, ao copiar minha aplicação recebo a mensagem de erro "O Aplicativo não pode ser inicializado corretamente (0xc0000007b)" Copiei as DLLs para a pasta do Executável mas o erro permanece. O que tenho que instalar?

Sim... meu nItem é incrementado pela minha tabela detalhe da venda assim que preencho com os dados da minha tabela virtual.

De fato eu não sabia dessa Tag... perfeito! Posterior me apresentou o seguinte erro (anexo)

Sim, creio que seja: Emit.EnderEmit.UF := DM.qryDadosLojaUF.Value; Está preenchida como "RN" correto?

Senhores, com base nas mensagens de vocês eu consegui preparar a minha NFCe,... Consigo imprimir o cupom. gerar XML, gerar TXT... mas está me apresentando um errro: rejeicao uf informada no campo cuf nao e atendida pelo web service Em pesquisa vi que esse erro é meio genérico. segue abaixo meu código, se puderem me ajudar a achar meu erro: begin DM.qryNFCe.Open; sCPF := edCPFCNPJ.Text; sNumNF := DM.qryNFCeUltimaNF.Text; iNumNF := StrToInt(sNumNF); iNumNF := iNumNF +1; DM.ACBrNFe1.NotasFiscais.Clear; DM.ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; DM.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; with DM.ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := iNumNF; //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.natOp := 'VENDA'; Ide.indPag := ipVista; Ide.modelo := 65; Ide.serie := 1; Ide.nNF := iNumNF; Ide.dEmi := now; Ide.dSaiEnt := now; Ide.hSaiEnt := now; Ide.tpNF := tnSaida; Ide.tpEmis := teNormal; //-----------ALTERAR DEPOIS------------------------------------ { if DM.qryNFCeiAmbiente.Value = 1 then Ide.tpAmb := taHomologacao else Ide.tpAmb := taProducao; //Lembre-se de trocar esta variável quando for para ambiente de produção } //----------------------------------------------------------------- Ide.tpAmb := taHomologacao; Ide.cUF := DM.qryNFCeiUF.Value; Ide.cMunFG := DM.qryNFCeiMun.Value; Ide.finNFe := fnNormal; Ide.tpImp := tiNFCe; Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; Emit.CNPJCPF := SoNumero(DM.qryDadosLojaCNPJ.Value); Emit.IE := SoNumero(DM.qryDadosLojaIE.Value); Emit.xNome := DM.qryDadosLojaRazao.Value; Emit.xFant := DM.qryDadosLojaNomeLoja.Value; Emit.EnderEmit.fone := DM.qryDadosLojaTelefone.Value; Emit.EnderEmit.CEP := StrToInt(SoNumero(DM.qryDadosLojaCEP.Text) ); Emit.EnderEmit.xLgr := DM.qryDadosLojaEndereco.Value; Emit.EnderEmit.nro := DM.qryDadosLojaNumEndereco.text; Emit.EnderEmit.xCpl := DM.qryDadosLojaComplemento.Value; Emit.EnderEmit.xBairro := DM.qryDadosLojaBairro.text; Emit.EnderEmit.cMun := DM.qryNFCeiMun.Value; Emit.EnderEmit.xMun := DM.qryDadosLojaCidade.Value; Emit.EnderEmit.UF := DM.qryDadosLojaUF.Value; Emit.enderEmit.cPais := 1058; Emit.enderEmit.xPais := 'BRASIL'; Emit.IEST := ''; if DM.qryDadosLojaRegimeCRT.Value = 1 then Emit.CRT := crtRegimeNormal else if DM.qryDadosLojaRegimeCRT.Value = 2 then Emit.CRT := crtSimplesExcessoReceita else Emit.CRT := crtRegimeNormal ; // (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal) //-- Informar Dados de DESTINATARIO Dest.CNPJCPF := edCPFCNPJ.Text; //Adicionando Produtos DM.qryVendaDetalhe.First; with Det.Add do begin while not DM.qryVendaDetalhe.eof do begin Prod.nItem := DM.qryVendaDetalheItem.Value ; // Número sequencial, para cada item deve ser incrementado Prod.cProd := DM.qryVendaDetalheCodBarra.Text; Prod.cEAN := ''; Prod.xProd := DM.qryVendaDetalheDescricao.Text; Prod.NCM := DM.qryVendaDetalheNCM.Value; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm Prod.EXTIPI := ''; Prod.CFOP := DM.qryNFCeiCFOP.Text; Prod.uCom := 'UN'; Prod.qCom := 1 ; Prod.vUnCom := DM.qryVendaDetalheValorUnitario.Value; Prod.vProd := DM.qryVendaDetalheValorUnitario.Value; Prod.cEANTrib := ''; Prod.uTrib := 'UN'; Prod.qTrib := 1; Prod.vUnTrib := 0; Prod.vOutro := 0; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vDesc := 0; Prod.CEST := ''; with Imposto do begin // lei da transparencia nos impostos vTotTrib := 0; with ICMS do begin if DM.qryNFCeiCRT.Value = 1 then //Simples Nacional begin if DM.qryNFCeiICMS.Value = 102 then CSOSN := csosn102; if DM.qryNFCeiICMS.Value = 300 then CSOSN := csosn300; if DM.qryNFCeiICMS.Value = 500 then CSOSN := csosn500; end; IF DM.qryNFCeiCRT.Value = 3 then begin if DM.qryNFCeiICMS.Value = 00 then CST := cst00; if DM.qryNFCeiICMS.Value = 20 then CST := cst20; if DM.qryNFCeiICMS.Value = 40 then CST := cst40; if DM.qryNFCeiICMS.Value = 41 then CST := cst41; if DM.qryNFCeiICMS.Value = 60 then CST := cst60; end; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := 0; ICMS.pICMS := 0; ICMS.vICMS := 0; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST:= 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; // partilha do ICMS e fundo de probreza with ICMSUFDest do begin vBCUFDest := 0.00; pFCPUFDest := 0.00; pICMSUFDest := 0.00; pICMSInter := 0.00; pICMSInterPart := 0.00; vFCPUFDest := 0.00; vICMSUFDest := 0.00; vICMSUFRemet := 0.00; end; end; end; DM.qryVendaDetalhe.Next; end; Total.ICMSTot.vBC := 0; Total.ICMSTot.vICMS := 0; Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := 0; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := 0; // partilha do icms e fundo de probreza Total.ICMSTot.vFCPUFDest := 0.00; Total.ICMSTot.vICMSUFDest := 0.00; Total.ICMSTot.vICMSUFRemet := 0.00; Total.ISSQNtot.vServ := 0; Total.ISSQNTot.vBC := 0; Total.ISSQNTot.vISS := 0; Total.ISSQNTot.vPIS := 0; Total.ISSQNTot.vCOFINS := 0; Transp.modFrete := mfSemFrete; with pag.Add do //PAGAMENTOS apenas para NFC-e begin tPag := fpDinheiro; vPag := DM.qryVendaMestreTotal.Value; end; InfAdic.infCpl := ''; InfAdic.infAdFisco := ''; end; DM.ACBrNFe1.Configuracoes.Arquivos.PathSchemas := DM.sNFSchemas; DM.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := DM.sNFSalvas; DM.ACBrNFe1.Configuracoes.Arquivos.PathNFe := DM.sNFSalvas; DM.ACBrNFe1.Configuracoes.Certificados.Senha := DM.sCertificadoSenha; DM.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := DM.sCertificadoSerie; DM.ACBrNFe1.NotasFiscais.Assinar; DM.ACBrNFe1.NotasFiscais.GravarXML(DM.sNFSalvas+'\nfe'+DM.qryVendaMestreid.Text+ '.xml'); DM.ACBrNFe1.NotasFiscais.GravarTXT(DM.sNFSalvas+'\nfe'+DM.qryVendaMestreid.Text+'.txt'); DM.ACBrNFe1.NotasFiscais.Validar; DM.ACBrNFe1.NotasFiscais.GerarNFe; DM.ACBrNFe1.Enviar(0,false); DM.ACBrNFe1.NotasFiscais.Imprimir; end;

Melhor explicação, só se você fizesse! Muito obrigado e parabéns

Entendi... e o que fala com o Monitor Plus? Exemplo, gero um TXT com os dados da minha venda, salvo em algum lugar e o Monitor Plus lê e faz o resto?

Então, o AcbrMonitor Plus é o cara que recebe os dados e gera a NFe? Também tenho como opção não utilizar e gerar eu mesmo (como você faz), correto?

Vou ver @carlosinfoteen. Para que serve o AcbrMonitor ? Vou precisar dele?

Agradeço muito os esclarecimentos.... vou começar os estudos com os manuais e layouts.

Senhores, tenho um sistema de compra e venda em um cliente de Natal - RN. Preciso implementar a emissão da NFC-e mas não tenho a mínima ideia de por onde começar. Alguém poderia me dizer por onde começar, se há alguma diferença entre os Estados (desculpe se a pergunta for obvia), onde posso encontrar um Modelo para adequar ao meu projeto. ** Delphi Berlin Up2 / Base de dados Mysql.

Eu fiquei na dúvida se era confiável porque o que achei é de 2015. É esse mesmo? Vou fazer como sugeriu,

desculpe... foi uma linha... passou desapercebido

Tentei todas as opções de frente mas não deu... MODALIDADE E FRENTE PODE SER: 0- Por conta do emitente; 1- Por conta do destinatário/remetente; 2- Por conta de terceiros; 9- Sem frete. Transp.modFrete := Variant('9');

Muito obrigado...de fato deu certo! Só retornou o erro abaixo.

Iniciei o Loop.... mas permaneceu (Fiquei na dúvida se encerrei o Loop no lugar correto) //--- INICIO.....ITENS DA NOTA DE PRODUTO iContador := 1; {Posterior 1 será o RecordCount da Tb Detalhe} while iContador < 1 do begin Det.Add.Prod.nItem := iContador; // Número sequencial, para cada item deve ser incrementado Det.Add.Prod.cEAN := '2156'; // Codigo de Barra Det.Add.Prod.cProd := '1304040'; // Codigo Produto Det.Add.Prod.xProd := 'Computador Positivo Master'; Det.Add.Prod.NCM := '94051010'; //Codigo oficial do produto Det.Add.Prod.CEST := '0400'; Det.Add.Prod.CFOP := '5405'; Det.Add.Prod.uCom := 'Unid.'; Det.Add.Prod.qCom := 1; Det.Add.Prod.vUnCom := 1460; Det.Add.Prod.vProd := 1460; // Det.Add.Prod.cEANTrib := '7896523206646'; // Det.Add.Prod.cEANTrib := '84715010'; Det.Add.Prod.vOutro := 0; Det.Add.Prod.vFrete := 0; Det.Add.Prod.vSeg := 0; Det.Add.Prod.vDesc := 0; Det.Add.infAdProd := 'Iformações Adicionais'; Det.Add.Imposto.vTotTrib := 0; //Imposto : ICMS Det.Add.Imposto.ICMS.CST := Variant('00'); //ou 10, 20,30,40,41,50,51,60,70,90 Det.Add.Imposto.ICMS.orig := Variant('0'); // pode ser de 0 à 8 Det.Add.Imposto.ICMS.modBC := Variant('1'); // Margem.. pode ser 0,1,2 Det.Add.Imposto.ICMS.vBC := 0; Det.Add.Imposto.ICMS.pICMS := 0; Det.Add.Imposto.ICMS.vICMS := 0; Det.Add.Imposto.ICMS.modBCST := Variant('0') ;//Opção de 0 à 5 Det.Add.Imposto.ICMS.pMVAST := 0; Det.Add.Imposto.ICMS.pRedBCST:= 0; Det.Add.Imposto.ICMS.vBCST := 0; Det.Add.Imposto.ICMS.pICMSST := 0; Det.Add.Imposto.ICMS.vICMSST := 0; Det.Add.Imposto.ICMS.pRedBC := 0; //Imposto : IPI Det.Add.Imposto.IPI.CST := Variant('99') ; Det.Add.Imposto.IPI.clEnq := '999'; Det.Add.Imposto.IPI.CNPJProd := ''; Det.Add.Imposto.IPI.cSelo := ''; Det.Add.Imposto.IPI.qSelo := 0; Det.Add.Imposto.IPI.cEnq := ''; Det.Add.Imposto.IPI.vBC := 0; Det.Add.Imposto.IPI.qUnid := 0; Det.Add.Imposto.IPI.vUnid := 0; Det.Add.Imposto.IPI.pIPI := 0; Det.Add.Imposto.IPI.vIPI := 0; //imposto: II Det.Add.Imposto.II.vBc := 0; Det.Add.Imposto.II.vDespAdu := 0; Det.Add.Imposto.II.vII := 0; Det.Add.Imposto.II.vIOF := 0; //Imposto : PIS Det.Add.Imposto.PIS.CST := Variant('99'); Det.Add.Imposto.PIS.vBC := 0; Det.Add.Imposto.PIS.pPIS := 0; Det.Add.Imposto.PIS.vPIS := 0; Det.Add.Imposto.PIS.qBCProd := 0; Det.Add.Imposto.PIS.vAliqProd := 0; Det.Add.Imposto.PIS.vPIS := 0; //Imposto : PISST Det.Add.Imposto.PISST.vBc := 0; Det.Add.Imposto.PISST.pPis := 0; Det.Add.Imposto.PISST.qBCProd := 0; Det.Add.Imposto.PISST.vAliqProd := 0; Det.Add.Imposto.PISST.vPIS := 0; //Imposto : COFINS Det.Add.Imposto.COFINS.CST := Variant('99'); Det.Add.Imposto.COFINS.vBC := 0; Det.Add.Imposto.COFINS.pCOFINS := 0; Det.Add.Imposto.COFINS.vCOFINS := 0; Det.Add.Imposto.COFINS.qBCProd := 0; Det.Add.Imposto.COFINS.vAliqProd := 0; //Imposto : COFINSST Det.Add.Imposto.COFINSST.vBC := 0; Det.Add.Imposto.COFINSST.pCOFINS := 0; Det.Add.Imposto.COFINSST.qBCProd := 0; Det.Add.Imposto.COFINSST.vAliqProd := 0; Det.Add.Imposto.COFINSST.vCOFINS := 0; //ISSQN Det.Add.Imposto.ISSQN.vBC := 0; Det.Add.Imposto.ISSQN.vAliq := 0; Det.Add.Imposto.ISSQN.vISSQN := 0; Det.Add.Imposto.ISSQN.cMunFG := 0; Det.Add.Imposto.ISSQN.cListServ := '0'; iCOntador := iContador + 1; end; //--- FIM ..... ITENS DA NOTA DE PRODUTO

Sim... iniciei Carlos,.... Na verdade esse é apenas um teste... atribui o valor 1 a esse contador porque posterior eu iria adicionar outros itens de produto (mas ainda não consegui passar dai). Depois vou fazer o Loop para outros produtos

Bom dia, senhores. É a primeira vez que estou gerando uma NFe. Segui orientações de outros posts de vocês mas estou encontrando dificuldades em identificar meu erro: (mensagem de erro anexo) Se alguém puder me ajudar... AcbrNFe1.Configuracoes.Arquivos.PathSchemas := 'C:\Gavoha\Programacao\Componente\ACBr_Trunk2\Exemplos\ACBrDFe\Schemas\NFe'; ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := 'C:\certificado.pfx'; ACBrNFe1.SSL.CarregarCertificado; ACBrNFe1.NotasFiscais.Clear; with ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.tpAmb := Variant('1'); //0=Produção 1=Homologação Ide.natOp := 'VENDA PRODUCAO DO ESTAB.'; Ide.cNF := 1; Ide.nNF := 000000001; Ide.serie := 1; Ide.dEmi := Date; Ide.dSaiEnt := Date ; Ide.hSaiEnt := Now; Ide.tpNF := Variant('1'); // 0-Entrada 1-Saída Ide.indPag := Variant('0'); Ide.cUF := 15; Ide.cMunFG := 1503093; Emit.CNPJCPF := '18382083000196'; Emit.IE := ''; Emit.xNome := 'HOLY COMERCIO E SERVICOS EIRELI'; Emit.xFant := 'HOLY COMERCIO'; Emit.EnderEmit.fone := '1125929769'; Emit.EnderEmit.xLgr := 'R DO PEREIRO'; Emit.EnderEmit.nro := '2139'; Emit.EnderEmit.xCpl := ''; Emit.EnderEmit.xBairro := 'PITIMBU'; Emit.EnderEmit.cMun := 2408102; Emit.EnderEmit.xMun := 'NATAL'; Emit.EnderEmit.UF := 'RN'; Dest.CNPJCPF := '11929429000184'; Dest.EnderDest.CEP := 59088100; Dest.EnderDest.xLgr := 'Av. Ayrton Senna'; Dest.EnderDest.nro := '835'; Dest.EnderDest.xCpl := ''; Dest.EnderDest.xBairro := 'Neopolis'; Dest.EnderDest.cMun := 2408102; Dest.EnderDest.xMun := 'Natal'; Dest.EnderDest.UF := 'RN'; Dest.EnderDest.fone := '1532599600'; Dest.IE := ''; Dest.xNome := 'ML Antunes de Carvalho'; //--- INICIO.....ITENS DA NOTA DE PRODUTO Det.Add.Prod.nItem := iContador; // Número sequencial, para cada item deve ser incrementado Det.Add.Prod.cEAN := '2156'; // Codigo de Barra Det.Add.Prod.cProd := '1304040'; // Codigo Produto Det.Add.Prod.xProd := 'Computador Positivo Master'; Det.Add.Prod.NCM := '94051010'; //Codigo oficial do produto Det.Add.Prod.CEST := '0400'; Det.Add.Prod.CFOP := '5405'; Det.Add.Prod.uCom := 'Unid.'; Det.Add.Prod.qCom := 1; Det.Add.Prod.vUnCom := 1460; Det.Add.Prod.vProd := 1460; // Det.Add.Prod.cEANTrib := '7896523206646'; // Det.Add.Prod.cEANTrib := '84715010'; Det.Add.Prod.vOutro := 0; Det.Add.Prod.vFrete := 0; Det.Add.Prod.vSeg := 0; Det.Add.Prod.vDesc := 0; Det.Add.infAdProd := 'Iformações Adicionais'; Det.Add.Imposto.vTotTrib := 0; //Imposto : ICMS Det.Add.Imposto.ICMS.CST := Variant('00'); //ou 10, 20,30,40,41,50,51,60,70,90 Det.Add.Imposto.ICMS.orig := Variant('0'); // pode ser de 0 à 8 Det.Add.Imposto.ICMS.modBC := Variant('1'); // Margem.. pode ser 0,1,2 Det.Add.Imposto.ICMS.vBC := 0; Det.Add.Imposto.ICMS.pICMS := 0; Det.Add.Imposto.ICMS.vICMS := 0; Det.Add.Imposto.ICMS.modBCST := Variant('0') ;//Opção de 0 à 5 Det.Add.Imposto.ICMS.pMVAST := 0; Det.Add.Imposto.ICMS.pRedBCST:= 0; Det.Add.Imposto.ICMS.vBCST := 0; Det.Add.Imposto.ICMS.pICMSST := 0; Det.Add.Imposto.ICMS.vICMSST := 0; Det.Add.Imposto.ICMS.pRedBC := 0; //Imposto : IPI Det.Add.Imposto.IPI.CST := Variant('99') ; Det.Add.Imposto.IPI.clEnq := '999'; Det.Add.Imposto.IPI.CNPJProd := ''; Det.Add.Imposto.IPI.cSelo := ''; Det.Add.Imposto.IPI.qSelo := 0; Det.Add.Imposto.IPI.cEnq := ''; Det.Add.Imposto.IPI.vBC := 0; Det.Add.Imposto.IPI.qUnid := 0; Det.Add.Imposto.IPI.vUnid := 0; Det.Add.Imposto.IPI.pIPI := 0; Det.Add.Imposto.IPI.vIPI := 0; //imposto: II Det.Add.Imposto.II.vBc := 0; Det.Add.Imposto.II.vDespAdu := 0; Det.Add.Imposto.II.vII := 0; Det.Add.Imposto.II.vIOF := 0; //Imposto : PIS Det.Add.Imposto.PIS.CST := Variant('99'); Det.Add.Imposto.PIS.vBC := 0; Det.Add.Imposto.PIS.pPIS := 0; Det.Add.Imposto.PIS.vPIS := 0; Det.Add.Imposto.PIS.qBCProd := 0; Det.Add.Imposto.PIS.vAliqProd := 0; Det.Add.Imposto.PIS.vPIS := 0; //Imposto : PISST Det.Add.Imposto.PISST.vBc := 0; Det.Add.Imposto.PISST.pPis := 0; Det.Add.Imposto.PISST.qBCProd := 0; Det.Add.Imposto.PISST.vAliqProd := 0; Det.Add.Imposto.PISST.vPIS := 0; //Imposto : COFINS Det.Add.Imposto.COFINS.CST := Variant('99'); Det.Add.Imposto.COFINS.vBC := 0; Det.Add.Imposto.COFINS.pCOFINS := 0; Det.Add.Imposto.COFINS.vCOFINS := 0; Det.Add.Imposto.COFINS.qBCProd := 0; Det.Add.Imposto.COFINS.vAliqProd := 0; //Imposto : COFINSST Det.Add.Imposto.COFINSST.vBC := 0; Det.Add.Imposto.COFINSST.pCOFINS := 0; Det.Add.Imposto.COFINSST.qBCProd := 0; Det.Add.Imposto.COFINSST.vAliqProd := 0; Det.Add.Imposto.COFINSST.vCOFINS := 0; //ISSQN Det.Add.Imposto.ISSQN.vBC := 0; Det.Add.Imposto.ISSQN.vAliq := 0; Det.Add.Imposto.ISSQN.vISSQN := 0; Det.Add.Imposto.ISSQN.cMunFG := 0; Det.Add.Imposto.ISSQN.cListServ := '0'; //--- FIM ..... ITENS DA NOTA DE PRODUTO Total.ICMSTot.vBC := 0; Total.ICMSTot.vICMS := 0; Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := 0; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := 1460; Total.ICMSTot.vTotTrib := 0; Total.ISSQNtot.vServ := 0; Total.ISSQNTot.vBC := 0; Total.ISSQNTot.vISS := 0; Total.ISSQNTot.vPIS := 0; Total.ISSQNTot.vCOFINS := 0; Total.retTrib.vRetPIS := 0; Total.retTrib.vRetCOFINS := 0; Total.retTrib.vRetCSLL := 0; Total.retTrib.vBCIRRF := 0; Total.retTrib.vIRRF := 0; Total.retTrib.vBCRetPrev := 0; Total.retTrib.vRetPrev := 0; Transp.modFrete := Variant('9'); //Poderia ser 0,1,2,9 Transp.Transporta.CNPJCPF := ''; Transp.Transporta.xNome := ''; Transp.Transporta.IE := ''; Transp.Transporta.xEnder := ''; Transp.Transporta.xMun := ''; Transp.Transporta.UF := ''; Transp.retTransp.vServ := 0; Transp.retTransp.vBCRet := 0; Transp.retTransp.pICMSRet := 0; Transp.retTransp.vICMSRet := 0; Transp.retTransp.CFOP := ''; Transp.retTransp.cMunFG := 0; Transp.veicTransp.placa := ''; Transp.veicTransp.UF := ''; Transp.veicTransp.RNTC := ''; //Valores de Cobranca Cobr.fat.nFat := '1'; Cobr.fat.vOrig := 0; Cobr.fat.vDesc := 0; Cobr.fat.vLiq := 0; //Totais Total.ICMSTot.vBC := 0; Total.ICMSTot.vICMS := 0; Total.ICMSTot.vICMSDeson := 0; Total.ICMSTot.vProd := 1460; Total.ICMSTot.vNF := 1460; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vTotTrib := 0; end; // gerar arquivo XML ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais[0].GerarXML; ACBrNFe1.NotasFiscais[0].GravarXML; ACBrNFe1.NotasFiscais.GerarNFe; ACBrNFe1.NotasFiscais.Validar; ShowMessage('Arquivo gerado em: '+ACBrNFe1.NotasFiscais.Items[0].NomeArq);

Juliomar, de fato deu certo! O único inconveniente é que sempre perco algum componente de dentro da aplicação. Exemplo: A ultima vez apresentou a mensagem de Erro no ACBr_CEP (não me recordo exatamente o nome), quando ignorei ele excluiu um sDBGrid de um dos Forms. Nada grave! Agradeço a ajuda!

Alguém já passou por essa situação?

Fiz o sugerido mas a mensagem permanece aparecendo! Mais alguma dica?

Esse caso ocorro no Delphi XE8. Tenho também o Delphi 7 instalado (que não apresenta esse problema). Marcando essa opção afetará o Delphi 7?

Só para complementar a pergunta, segue a imagem da mensagem que sempre aparece! Agora vou Reinstalar o componente pelo Trunk2 e tudo volta ao normal (até reiniciar a máquina)