murilo cosme da silva

Obrigado, eu sei mais se você antes de excluir lei algum viu que eu respondi um dizendo que tinha dado erro na hora de salvar os dados e o site pediu para esperar 10 segundos e tentar novamente eu fiz isso e guando salvo foi que eu vi que ele salvou todos os que tinha dado erro, e eu postei desculpas e como poderia apagar o tópico repetido. Peso desculpa a todos do fórum, não tive intensão. Principalmente para o usuário Juliomar Marchetti que sempre esta on-line, respondendo a todos os tópicos, valeu. voltando ao tópico alguma sugestão?

Estou com problema para validar uma nota importação. as tags fabricante e exportador estão em branco na nota original, o numero do documento importação esta igual a original, e na que eu estou tentando fazer estou passando também nulo e ele da os erros abaixo. seque xml da nota original 26150501387031000100550020000072621705956040.xml e a que estou tentando fazer com o acbr. 26150921949256000110550010000003791000004411-nfe.xml Erro Completo: Falha na validação dos dados da nota 379 <det nItem="1"><prod><DI> Conteúdo inválido Numero do Documento de Importação DI/DSI/DA <det nItem="1"><prod><DI> Nenhum valor informado Código do exportador <det nItem="1"><prod><DI><adi> Nenhum valor informado Fabricante '' violates pattern constraint of '[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1}'. The element '{http://www.portalfiscal.inf.br/nfe}cExportador' with value '' failed to parse. 26150921949256000110550010000003791000004411-nfe.xml 26150501387031000100550020000072621705956040.xml

Bom dia, tenho instalado neste mesmo computador o Delphi 7, XE7, com Acbr instalado marcando a opção diretório binário do Delphi e agora o XE8, estou trocando por causa do rave que já vem no 8, mais a instalação no 8 esta apresentando o seguinte erro: Compiling package D:\ACBr_xe8\\Pacotes\Delphi\synapse.dpk "C:\Program Files (x86)\Embarcadero\Studio\16.0\bin\dcc32.exe" "D:\ACBr_xe8\\Pacotes\Delphi\synapse.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files (x86)\Embarcadero\Studio\16.0\lib\Win32\release" -U"c:\program files (x86)\embarcadero\studio\16.0\lib\Win32\release;C:\Users\Administrador\Documents\Embarcadero\Studio\16.0\Imports;c:\program files (x86)\embarcadero\studio\16.0\Imports;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Dcp;c:\program files (x86)\embarcadero\studio\16.0\include;C:\Program Files (x86)\FastReports\LibD22;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE8\Win32;D:\ACBr_xe8\Fontes\ACBrBoleto;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr_xe8\Fontes\ACBrCapicom;D:\ACBr_xe8\Fontes\ACBrComum;D:\ACBr_xe8\Fontes\ACBrConvenio115;D:\ACBr_xe8\Fontes\ACBrCTe;D:\ACBr_xe8\Fontes\ACBrDiversos;D:\ACBr_xe8\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr_xe8\Fontes\ACBrGNRE;D:\ACBr_xe8\Fontes\ACBrLFD;D:\ACBr_xe8\Fontes\ACBrMDFe;D:\ACBr_xe8\Fontes\ACBrNFe2;D:\ACBr_xe8\Fontes\ACBrNFSe;D:\ACBr_xe8\Fontes\ACBrPAF;D:\ACBr_xe8\Fontes\ACBrSAT;D:\ACBr_xe8\Fontes\ACBrSEF2;D:\ACBr_xe8\Fontes\ACBrSerial;D:\ACBr_xe8\Fontes\ACBrSintegra;D:\ACBr_xe8\Fontes\ACBrSPED;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr_xe8\Fontes\ACBrTCP;D:\ACBr_xe8\Fontes\ACBrTEFD;D:\ACBr_xe8\Fontes\Imagens;D:\ACBr_xe8\Fontes\PCN2;D:\ACBr_xe8\Fontes\SintegraSultan;D:\ACBr_xe8\Fontes\synalist;D:\ACBr_xe8\Fontes\ZLibExGZ;D:\ACBr_xe8\Fontes\ZLibExGZ\win32;D:\ACBr_xe8\Fontes\ZLibExGZ\win64;D:\ACBr_xe8\Fontes\ZLibExGZ\zlib;D:\ACBr_xe8\Lib\Delphi\LibD22" -U"D:\ACBr_xe8\Lib\Delphi\LibD22" -I"c:\program files (x86)\embarcadero\studio\16.0\lib\Win32\release;C:\Users\Administrador\Documents\Embarcadero\Studio\16.0\Imports;c:\program files (x86)\embarcadero\studio\16.0\Imports;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Dcp;c:\program files (x86)\embarcadero\studio\16.0\include;C:\Program Files (x86)\FastReports\LibD22;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE8\Win32;D:\ACBr_xe8\Fontes\ACBrBoleto;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr_xe8\Fontes\ACBrCapicom;D:\ACBr_xe8\Fontes\ACBrComum;D:\ACBr_xe8\Fontes\ACBrConvenio115;D:\ACBr_xe8\Fontes\ACBrCTe;D:\ACBr_xe8\Fontes\ACBrDiversos;D:\ACBr_xe8\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr_xe8\Fontes\ACBrGNRE;D:\ACBr_xe8\Fontes\ACBrLFD;D:\ACBr_xe8\Fontes\ACBrMDFe;D:\ACBr_xe8\Fontes\ACBrNFe2;D:\ACBr_xe8\Fontes\ACBrNFSe;D:\ACBr_xe8\Fontes\ACBrPAF;D:\ACBr_xe8\Fontes\ACBrSAT;D:\ACBr_xe8\Fontes\ACBrSEF2;D:\ACBr_xe8\Fontes\ACBrSerial;D:\ACBr_xe8\Fontes\ACBrSintegra;D:\ACBr_xe8\Fontes\ACBrSPED;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr_xe8\Fontes\ACBrTCP;D:\ACBr_xe8\Fontes\ACBrTEFD;D:\ACBr_xe8\Fontes\Imagens;D:\ACBr_xe8\Fontes\PCN2;D:\ACBr_xe8\Fontes\SintegraSultan;D:\ACBr_xe8\Fontes\synalist;D:\ACBr_xe8\Fontes\ZLibExGZ;D:\ACBr_xe8\Fontes\ZLibExGZ\win32;D:\ACBr_xe8\Fontes\ZLibExGZ\win64;D:\ACBr_xe8\Fontes\ZLibExGZ\zlib;D:\ACBr_xe8\Lib\Delphi\LibD22" -R"c:\program files (x86)\embarcadero\studio\16.0\lib\Win32\release;C:\Users\Administrador\Documents\Embarcadero\Studio\16.0\Imports;c:\program files (x86)\embarcadero\studio\16.0\Imports;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Dcp;c:\program files (x86)\embarcadero\studio\16.0\include;C:\Program Files (x86)\FastReports\LibD22;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE8\Win32;D:\ACBr_xe8\Fontes\ACBrBoleto;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr_xe8\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr_xe8\Fontes\ACBrCapicom;D:\ACBr_xe8\Fontes\ACBrComum;D:\ACBr_xe8\Fontes\ACBrConvenio115;D:\ACBr_xe8\Fontes\ACBrCTe;D:\ACBr_xe8\Fontes\ACBrDiversos;D:\ACBr_xe8\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr_xe8\Fontes\ACBrGNRE;D:\ACBr_xe8\Fontes\ACBrLFD;D:\ACBr_xe8\Fontes\ACBrMDFe;D:\ACBr_xe8\Fontes\ACBrNFe2;D:\ACBr_xe8\Fontes\ACBrNFSe;D:\ACBr_xe8\Fontes\ACBrPAF;D:\ACBr_xe8\Fontes\ACBrSAT;D:\ACBr_xe8\Fontes\ACBrSEF2;D:\ACBr_xe8\Fontes\ACBrSerial;D:\ACBr_xe8\Fontes\ACBrSintegra;D:\ACBr_xe8\Fontes\ACBrSPED;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr_xe8\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr_xe8\Fontes\ACBrTCP;D:\ACBr_xe8\Fontes\ACBrTEFD;D:\ACBr_xe8\Fontes\Imagens;D:\ACBr_xe8\Fontes\PCN2;D:\ACBr_xe8\Fontes\SintegraSultan;D:\ACBr_xe8\Fontes\synalist;D:\ACBr_xe8\Fontes\ZLibExGZ;D:\ACBr_xe8\Fontes\ZLibExGZ\win32;D:\ACBr_xe8\Fontes\ZLibExGZ\win64;D:\ACBr_xe8\Fontes\ZLibExGZ\zlib;D:\ACBr_xe8\Lib\Delphi\LibD22" -N0"D:\ACBr_xe8\Lib\Delphi\LibD22" -LE"D:\ACBr_xe8\Lib\Delphi\LibD22" -LN"D:\ACBr_xe8\Lib\Delphi\LibD22" Embarcadero Delphi for Win32 compiler version 29.0 Copyright (c) 1983,2015 Embarcadero Technologies, Inc. D:\ACBr_xe8\Fontes\synalist\asn1util.pas(75) Fatal: F2613 Unit 'SysUtils' not found. Compilation failure algum dica?

Estou com o mesmo problema e os teste nfe pelo gratuito passa.

Boa tarde Italo, Acabei de observar que estava em ambiente de homologação por isto que não veio nada, coloquei para produção e deu certo. o código para confirmação manifesto já esta implementado, vi em outros tópicos que ainda não tinha sido liberado o ambiente, mais como é tópico já fazia um tempo, não sei se já esta disponivel no momento.

bom dia Italo, mais uma vez obrigado pela atenção, estou sim armazenando em uma variavel e salvando em uma tabela, para na proxima pesquisa eu ultilizala, só que so esta vindo o retorno da ultima ultNSU sempre '0', ex.: ACBrNFe1.DistribuicaoDFe(iEstado, CNPJ, ultNSU, ''); ultNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; agora Italo, ontem logo eu estava trabalhando nas rotinas de e teve algum momento que veio algum numero, mais como eu ainda esta ajustando não salvei a configuração da ultima NSU ai hoje como não sei mais a que veio no registro estou passando zero e esperendo guando retorna algum valor começar a salvar e procequir.

Estou com um problema para usar o ACBrNFe1.DistribuicaoDFe, caso não retorne nada na primeira consulta e eu fique insistindo retorna uso idevido status 656. try ACBrNFe1.DistribuicaoDFe(iEstado, CNPJ, ultNSU, ''); ultNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; iStatus := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat; except end; if iStatus <> 138 then begin Application.CreateForm(Tfrm_consultaLote, frm_consultaLote); frm_consultaLote.Memo1.Clear; frm_consultaLote.Panel1.Caption := 'Retorno da Consulta'; frm_consultaLote.Memo1.Lines.Add('Status .: ' + IntToStr(iStatus)); frm_consultaLote.Memo1.Lines.Add('Motivo .: ' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo); frm_consultaLote.Memo1.Lines.Add('UltNSU .: ' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU); GravaUltNSU(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU); frm_consultaLote.ShowModal; frm_consultaLote.Free; end;

Muito obrigado Italo Jurisato Junior, realmente o código estava claro foi que eu tinha optado pelo consultar pela chave e ai fiquei com este problema e sem enxergar a solução.

Bom dia a todos do fórum, obrigado Juliomar Marchetti, pela atenção data ai no tópico, olha também acredito que a nfe está exemplificado como fazer, mais ainda estou com dificuldade de entender como pega o nfe autorizado, porque quando eu envio a nfe que esta tudo ok vai e volta o retorno de autorizado e já traz xml autorizado, mais quando eu não tenho o retorno da nfe por algum motivo de erro, ai eu uso uma função de busca nfe pela chave e ai eu só recebo o protocolo mais não vem o xml autorizado. se pudesse poderia me mostrar como trazer o xml autorizado sem ser pela função enviar.

ok, obrigado.

Boa tarde, não consigo nenhum retorno com o manifesto destinatario. codigo implementado.: CNPJ := form1.StatusBar1.Panels[1].Text; (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Indicador de NF-e consultada: 0=Todas as NF-e; 1=Somente as NF-e que ainda não tiveram manifestação do destinatário (Desconhecimento da operação, Operação não Realizada ou Confirmação da Operação); 2=Idem anterior, incluindo as NF-e que também não tiveram a Ciência da Operação.*) indNFe := IntToStr(cbbIndicadorConsulta.ItemIndex); (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Indicador do Emissor da NF-e: 0=Todos os Emitentes / Remetentes; 1=Somente as NF-e emitidas por emissores / remetentes que não tenham a mesma raiz do CNPJ do destinatário (para excluir as notas fiscais de transferência entre filiais).*) IndEmi := '0';//IntToStr(cbbIndicadorEmissor.ItemIndex); (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Último NSU recebido pela Empresa. Caso seja informado com zero, ou com um NSU muito antigo, a consulta retornará unicamente as notas fiscais que tenham sido recepcionadas nos últimos 15 dias.*) ultNSU := RetornaUltNSU; Application.CreateForm(Tfrm_consultaLote, frm_consultaLote); frm_consultaLote.Panel1.Caption := 'Consulta NFE Destinatário'; ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu); frm_consultaLote.Memo1.Lines.Add('Status: ' + IntToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.cStat)); frm_consultaLote.Memo1.Lines.Add('Motivo: ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.xMotivo); frm_consultaLote.Memo1.Lines.Add('Data e Hora do evento: ' + DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.dhResp)); frm_consultaLote.Memo1.Lines.Add('UltNSU nº ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU); frm_consultaLote.ShowModal; 12615881418.xml 12616381418.xml 12615881418.xml 12616381418.xml

boa tarde a todos do fórum, gostaria de me expressar melhor no comentário feito acima, como busca o xml autorizado de uma nfe que na hora de enviar deu erro de timeout mais foi autorizada e como só pegar o xml autorizado para trocar o que esta na pasta já que preciso do próprio para imprimir a danfe com o protocolo de autorização.

dentro da função imprimir : TACBrNFe( FACBrNFe ).DANFE.ImprimirDANFE(nil) depois frlDANFeRL := TfrlDANFeRLRetrato.Create(Self) procedure TACBrNFeDANFEClass.Notification(AComponent: TComponent; Operation: TOperation); begin inherited Notification(AComponent, Operation); if (Operation = opRemove) and (FACBrNFe <> nil) and (AComponent is TACBrNFe) then FACBrNFe := nil; end; do modo debug fazem varias referencias a outras units, não da para identificar onde esta o retorno da mensagem.

Bom dia, ainda me encontro com este problema na impressão do danfe via fortes alguém tem uma dica.

Boa noite, estou com uma dificuldade sobre download, vi vários tópicos sobre o assunto mais nenhum da forma que estou querendo entender , o caso é que na hora de enviar a o site estava com algum problema e demorou para retorna a mensagem apos um tempo deu erro de time out, tentei enviar novamente e deu duplicidade de nfe, então fui busca protocolo veio o status de autorizado atualizei os dados no meu sistema só que na hora de imprimir saiu na danfe que a nfe não enviada para a sefaz, então entrei no site baixei o xml e substituir a nfee tentei imprimir novamente , deu certo. Mais como fazer isto como busca uma nfe e fazer automática o download do xml com o protocolo guando este erro acontecer?

Galera foi mal estava usando tag de outro componente.

Boa tarde, estou com uma duvida se tem como gerar nfe com varias duplicadas, apesar do campo Cobr.Dup.Items[iCont].nDup ser string ele não aceita quando coloco "-" por exemplo: n duplicata data venc valor 123-1 15/02/2015 1,00 123-2 15/03/2015 1,00 123-3 15/04/2015 1,00 Como separar os numeros da duplicata?

Fiz uma nota com cst "000" que é de origem tributado, com a aliquota zerada e base calculo, e passou na validação do acbr e o mais incrivel é que a sefaz autorizou, alguem sabe dizer o porque já que antes na versão 2.00 da nfe ela estava validando tudo isto e muito mais coisa. 26150220344939000180550010000002541000001626-nfe.xml

fiz um for for iNRItem := 1 to iTotalItem do begin tbl_movimento.Close; tbl_movimento.SQL.Clear; tbl_movimento.SQL.Add('SELECT * FROM MOVIMENTO WHERE DOCUMENTO = :PDOC'); tbl_movimento.ParamByName('PDOC').AsString := tbl_compra.FieldByName('COD_COMPRA').AsString; tbl_movimento.Open; if not tbl_movimento.IsEmpty then begin if tbl_movimento.Locate('ITEM', FormatFloat('000', iNRItem),[]) then begin with ACBrNFe1.NotasFiscais.Items[0].NFe do begin sNCM := Det.Items[iNRItem].Prod.NCM; {sIPI := sSP_piscofins := } end; tbl_movimento.Edit; tbl_movimento.FieldByName('NCM').AsString := sNCM; tbl_movimento.Post; end; end; end;

Não sei o porque não estou conseguindo pegar esta informação da nfe: with ACBrNFe1.NotasFiscais.Items[0].NFe do begin sNCM := Det.Items[iNRItem].Prod.NCM; {sIPI := sSP_piscofins := } end;

Ok, vamos lá. Fiz o desenvolvimento de uma aplicação usando o componente ACBr com a ajuda de vocês do fórum tirando todas as dificuldades que tive, já estou com o executável pronto autorizando, inutilizando e cancelando até fazendo carta de correção, mais se eu colocar o executável em outro computador, sem ser este que eu desenvolvi um que só tenha o Windows instalado uma maquina nova, ele fica dando erro: list index out of bounds (0) ; Ele chama o certificado e assina, mais da este erro no final e o memo que recebe o retorno fica só com erro, Percebi que dentro da função de assinar tem o seguinte código. procedure Tdlg_EmissorNFe.ValidaXML; begin ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := False; ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%'; LerConfiguracao; try ACBrNFe1.NotasFiscais.Valida; if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas); ShowMessage('Nota Fiscal Eletrônica Valida'); except MemoDados.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao); MemoDados.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto); suiButton10.Tag := 1; PageControl1.ActivePage := TabSheet3; end; end; acho que ele entra neste erro, mais não traz nada a não ser "Erro:"; sobre configuração pequei a pasta Capicom dentro da pasta dll em ACBr e coloquei na maquina que queria instalar o exe e executei o instalar.bat. fora isto só fiz a instalação do certificado como padrão. acredito que falta mais alguma coisa só não consigo identificar. mais uma vez estou recorrendo a vocês, desculpem pelo falta de explicação mais detalhada e agradeço o esforço de todos pela ajuda.

Ok, e que eu quis dizer configurar na verdade, em um sistema do zero o exe que eu desenvolvi junto com o componente acbr, sem ser na maquina que desenvolvo. so consigo funciona na maquina de desenvolvimento.

Não é na hora do desenvolvimento já é a versão copilada pronta para colocar nos clientes, ai esta dando este erro.

bom dia, estou tentando instalar em uma nova maquina apos a conclusão do desenvolvimento nfe com acbr e me deparei com erro de : list index out of bounds (0) mais na minha maquina funciona normalmente e o computador do cliente é windows 8.1, o que é preciso para instalar em outros computadores.

bom dia no caso é nfe, coloco dentro da unit ACBrNFeDANFeRLClass. esta dando erro.