Jean Carlo

Boa noite! Deu certo. Obrigado meus amigos pela ajuda!

Bom dia! Estou com problema ao enviar uma NF-e com o situação tributária 060, com o produto GLP, sendo a origem e o destino dentro do Estado do Maranhão. A SEFAZ Sempre retorna a rejeição: 858 - Grupo de Tributação informado indevidamente item(n). Estou anexando o XML. 21180801761608000100550010000017201000017208-nfe.xml

Boa Tarde, Comecei a desenvolver um formulário de boleto no sistema, utilizando os componentes do ACBrBoleto e ACBrBoletoReport. Vi o exemplo que é disponibilizado. Mas gostaria de saber como integrar ou utilizar ACBRBancoBrasil.pas. Aguardo, Desde já agradeço.

Colega Sergio, Estou enviando a rotina que fiz para inserir as informações da nfe referenciada, primeiramente salvo em uma tabela e depois repasso para nfe. with pFIBDPesquisa_Cupom_Ref do begin close; ParamByName('icod_saida_').AsInteger := iCodSaida; ParamByName('iano_saida_').AsInteger := iAno; open; pFIBDPesquisa_Cupom_Ref.first; while not pFIBDPesquisa_Cupom_Ref.eof do begin if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRefVazio' then Ide.NFref.add.RefECF.modelo := ECFModRefVazio; if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRef2B' then Ide.NFref.add.RefECF.modelo := ECFModRef2B; if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRef2C' then Ide.NFref.add.RefECF.modelo := ECFModRef2C; if Trim(pFIBDPesquisa_Cupom_RefVREFECF_MODELO.Asstring)='ECFModRef2D' then Ide.NFref.add.RefECF.modelo := ECFModRef2D; Ide.NFref.add.RefECF.nECF := pFIBDPesquisa_Cupom_RefVREFECF_NECF.AsString; Ide.NFref.add.RefECF.nCOO := pFIBDPesquisa_Cupom_RefVREFECF_NCOO.AsString; next; end; end;

Boa Tarde. Estou precisando de ajuda. Gero uma nfe referenciada com cupom fiscal e o XML não fica correto. Estou anexando o XML. Obs: Já atualizei os componentes. 22160604679581000190550010000010641000010649-nfe.xml

Meus amigos, Alguem já passou por esse problema. Pois quando fui atualizar para versão 11840 aparece esse erro: Uso o Delphi9 CodeGear Delphi for Win32 compiler version 20.0 Copyright (c) 1983,2008 CodeGear C:\acbr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFRDM.pas(404) Error: E2003 Undeclared identifier: 'DataOnly' C:\acbr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFRDM.pas(409) Error: E2003 Undeclared identifier: 'Quality' C:\acbr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFRDM.pas(410) Error: E2003 Undeclared identifier: 'Transparency' ACBr_MDFeDamdfeFR.dpk(56) Fatal: F2063 Could not compile used unit '..\..\..\..\..\..\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFRDM.pas' Compilation failure Erro ao compilar o pacote "ACBr_MDFeDamdfeFR.dpk".

Meus Amigos, Estou com a Rejeição "532->Rejeição: Total do ICMS difere do somatório dos itens,", esse erro aparece quando coloco desconto na linha do produto. Estou enviado o XML, pois o mesmo validei no site da fazenda do RS e deu tudo ok. 01-NFe.xml

Meus amigos, Estou com o mesmo problema, pois envio uma nfe e se vou enviar outra aparece o erro 'Rejeicao: Duplicidade de NF-e, com diferença na Chave de Acesso [chNFe][nRec]'. Estava funcionando tudo bem até atualizar os componentes para versão 8242. Já depurei o sistema passo a passo e verifiquei que o numero da nfe muda em cada envio só que mantém o erro. OBS: Antes de atualizar o sistema estava tudo ok, pois não fiz nenhuma alteração no código fonte e no banco.

Bom dia Juliomar, Estou enviando o trecho do código como solicitado. begin FSaidas.ACBrNFe1.NotasFiscais.Clear; if (FSaidas.pFIBDSPesquisaSaidaBXML_NFE.IsNull = True) then Application.MessageBox('Dados da NFe não encontrados.', 'Aviso', MB_OK+MB_ICONWARNING) else begin Archiver:= TZipForge.Create(nil); ms:= FSaidas.pFIBDSPesquisaSaida.CreateBlobStream(FSaidas.pFIBDSPesquisaSaidaBXML_NFE, bmRead); try Archiver.OpenArchive(ms, False); Archiver.BaseDir:= FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar; Archiver.ExtractFiles('*.*'); Archiver.CloseArchive; finally ms.Free; Archiver.Free; end; if FileExists(FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar + FSaidas.pFIBDSPesquisaSaidaVCHAVE_NFE.AsString + '-nfe.xml') then begin FSaidas.ACBrNFe1.NotasFiscais.LoadFromFile(FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar + FSaidas.pFIBDSPesquisaSaidaVCHAVE_NFE.AsString + '-nfe.xml'); if FSaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin if not(Fsaidas.ACBrNFe1.WebServices.StatusServico.Executar) then raise Exception.Create(FSaidas.ACBrNFe1.WebServices.StatusServico.Msg); FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.NFeChave:= FSaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.Executar; FSaidas.ACBrNFe1.DANFE.ProtocoloNFe:= FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC + ' ' + DateTimeToStr(FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; FSaidas.ACBrNFe1.NotasFiscais.Imprimir; DeleteFile(FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar + FSaidas.pFIBDSPesquisaSaidaVCHAVE_NFE.AsString + '-nfe.xml'); end else Application.MessageBox('Arquivo XML da nota não encontrado.', 'Aviso', MB_OK+MB_ICONWARNING); DeleteXMLAux; end;

Caro amigos, Na versão que instalei do XE7(Architect) já tem o Fast Report porém não estou conseguindo instalá-lo e dá o seguinte erro. log_Delphi_XE7.txt

Caros Colegas, Após atualização dos componentes para a versão 8242 aconteceu o seguinte problema: Quando mando visualizar qualquer impressão de uma NFe a visualização que sai é de uma outra NFe; Uso o seguinte comando: ACBrNFe1.NotasFiscais.Clear; .... ACBrNFe1.NotasFiscais.Imprimir; OBS: Uso o Fast Report.

Meus amigos! Agora está dando a seguinte mensagem quando envio no modo DPEC: Ocorreu o seguinte erro ao gera uma nota fiscal eletrônica no modo DPEC: Codigo: 136 Motivo: Evento Registrado, mas não vinculado a NFE. Estou inserindo o código. Fsaidas.ACBrNFe1.EventoNFe.idLote := NumeroLote; with Fsaidas.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.tpEvento := teEPECNFe; infEvento.cOrgao := 91; infEvento.dhEvento := now; InfEvento.nSeqEvento := 1; infEvento.versaoEvento := '1.00'; infEvento.detEvento.cOrgaoAutor := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF; infEvento.detEvento.tpAutor := taEmpresaEmitente; infEvento.detEvento.verAplic := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.verProc; infEvento.detEvento.dhEmi := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi; infEvento.detEvento.tpNF := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpNF; infEvento.detEvento.IE := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.IE; infEvento.detEvento.vNF := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF; infEvento.detEvento.vICMS := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS; infEvento.detEvento.vST := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vST; infEvento.detEvento.dest.UF := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.EnderDest.UF; infEvento.detEvento.dest.CNPJCPF := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF; infEvento.detEvento.dest.IE := Fsaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.IE; end;

Obrigado Ítalo! Deu certo sua dica.

Bom dia Ítalo, Realmente na versão 3.10 utiliza-se o evento EPEC, pois está na Nota Técnica 2014/001. Só que não encontrei nenhum evento EPEC associado ao componente.

Caros Colegas, Depois que atualizei o componente para usar a nova versão da NF-e 3.1 não consigo enviar pelo modo DPEC pois aparece a seguinte mensagem: "Requisição não enviada. 0 - A". Porém consigo enviar NF-e na forma de emissão normal. Na versão 2.0 funciona normalmente o DPEC. Obs: Uso Delphi 9