murilo cosme da silva
-
Total de ítens
196 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por murilo cosme da silva
-
-
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. -
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 failurealgum 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;exceptend;if iStatus <> 138 thenbeginApplication.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íveisIndicador 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íveisIndicador do Emissor da NF-e:0=Todos os Emitentes / Remetentes;1=Somente as NF-e emitidas por emissores / remetentes que não tenham a mesmaraiz do CNPJ do destinatário (para excluir as notas fiscais de transferênciaentre 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; -
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);begininherited Notification(AComponent, Operation);if (Operation = opRemove) and (FACBrNFe <> nil) and (AComponent is TACBrNFe) thenFACBrNFe := 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.
-
fiz um for
for iNRItem := 1 to iTotalItem dobegintbl_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 thenbeginif tbl_movimento.Locate('ITEM', FormatFloat('000', iNRItem),[]) thenbeginwith ACBrNFe1.NotasFiscais.Items[0].NFe dobeginsNCM := 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 dobeginsNCM := 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.
Problemas nas tags importação
em ACBrNFe
Postado
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?