flexsistemas

boa tarde! @jair ferreira então o processo ficou assim: 1. verifica se a nota fiscal existe, buscando o XML Resumido; 2. emite o manifesto da nota fiscal; 3. consulta novamente e busca o XML Completo. ***SOMENTE PARA A CHAVE DE ACESSO INFORMADA.

estou com problema de código 137 direto. Isso?

Bom dia! Gostaria de agradecer a todos que ajudaram a desenvolver meu conhecimento sobre o assunto. Segue como fiz a implementação: TFrm_EsperaProcesso.MostraMensagemEspera; try lDadosEmitente := nil; Result := TDadosPessoa.DadosEstabelecimento(lDadosEmitente, lEstabelecimentoID); Result := Result and lDadosEmitente.TemInformacao; Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe( lDadosEmitente.UFInt, lDadosEmitente.CNPJ_CPFSomenteNumeros, pChave ); TMensagem.Mensagem(lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat.ToString+'-'+lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo); Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138); if Result then begin for lIdx := 0 to lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do begin lChave := lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[lIdx].resNFe.chNFe; lACBrNFe.EventoNFe.Evento.Clear; lACBrNFe.EventoNFe.idLote := 1; lEvento := lACBrNFe.EventoNFe.Evento.Add; lEvento.InfEvento.cOrgao := 91; lEvento.InfEvento.ChNFE := lChave; lEvento.InfEvento.CNPJ := lDadosEmitente.CNPJ_CPFSomenteNumeros; lEvento.InfEvento.dhEvento := TSistema.Agora; lEvento.InfEvento.tpEvento := TpcnTpEvento.teManifDestConfirmacao; lEvento.InfEvento.versaoEvento := '1.00'; Result := lACBrNFe.EnviarEvento(lACBrNFe.EventoNFe.idLote); Result := Result and (lACBrNFe.WebServices.EnvEvento.cStat = 128); if Result then begin TMensagem.Mensagem(lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento+':'+#13#10+lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo); Result := (lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135); Result := Result or (lACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 573); end; end; end; Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe( lDadosEmitente.UFInt, lDadosEmitente.CNPJ_CPFSomenteNumeros, pChave ); Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138); Result := Result and TSistema.ArquivoExiste(lACBrNFe.Configuracoes.Arquivos.DownloadNFe.PathDownload+lChave+'-nfe.xml'); if Result then lPathNomeArquivo := lACBrNFe.Configuracoes.Arquivos.DownloadNFe.PathDownload+lChave+'-nfe.xml'; finally FreeAndNil(lDadosEmitente); TFrm_EsperaProcesso.DestroiMensagemEspera; end;

Consegui fazer a coisa acontecer!!! o único detalhe é que tive que alterar a unit ACBrNFeWebServices na linha 2862 TNFeEnvEvento.DefinirDadosMsg; pois essa não está passando o conteúdo infEvento.versaoEvento := FEvento.Evento.InfEvento.versaoEvento; Mas funcionou sim!!! não entendi esse teu evento ManifestoNFE do item 3 da tua explicação.

Segundo outro post que li a respeito do assunto, dizem que primeiro você chamaria o evento DistribuicaoDFePorChaveNFe para pegar o XML contendo o NSU depois teria que chamar o evento DistribuicaoDFePorNSU. tentei fazer da seguinte forma mas ainda assim não vai. try lDadosEmitente := nil; Result := TDadosPessoa.DadosEstabelecimento(lDadosEmitente, lEstabelecimentoID); Result := Result and lDadosEmitente.TemInformacao; // if Result then // begin // lACBrNFe.EventoNFe.Evento.Clear; // lACBrNFe.EventoNFe.idLote := 1; // // lEvento := lACBrNFe.EventoNFe.Evento.Add; // lEvento.InfEvento.cOrgao := 91; // lEvento.InfEvento.ChNFE := pChave; // lEvento.InfEvento.CNPJ := lDadosEmitente.CNPJ_CPFSomenteNumeros; // lEvento.InfEvento.dhEvento := TSistema.Agora; // lEvento.InfEvento.tpEvento := TpcnTpEvento.teManifDestConfirmacao; // lEvento.InfEvento.versaoEvento := '1.00'; // Result := lACBrNFe.EnviarEvento(lACBrNFe.EventoNFe.idLote); // end; Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe( lDadosEmitente.UFInt, lDadosEmitente.CNPJ_CPFSomenteNumeros, pChave ); Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138); if Result then begin Result := Result and lACBrNFe.DistribuicaoDFePorNSU( lDadosEmitente.UFInt, lDadosEmitente.CNPJ_CPFSomenteNumeros, lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NSU ); end; Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138); if Result then begin for lIdx := 0 to lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do begin TSistema.CopiaAreaTransferencia( lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[lIdx].XML, True ); end; end; Result := False; finally FreeAndNil(lDadosEmitente); end;

Bom dia! Estou fazendo a operação igual ao que vocês estão informando nesse tópico mas o XML do arquivo -resNFE.xml vem resumido e o código de retorno do evento está vindo com código 2254. Colocando a versão ou não o erro ocorre da mesma forma. try lDadosEmitente := nil; Result := TDadosPessoa.DadosEstabelecimento(lDadosEmitente, lEstabelecimentoID); Result := Result and lDadosEmitente.TemInformacao; if Result then begin lACBrNFe.EventoNFe.Evento.Clear; lACBrNFe.EventoNFe.idLote := 1; lEvento := lACBrNFe.EventoNFe.Evento.Add; lEvento.InfEvento.cOrgao := 91; lEvento.InfEvento.ChNFE := pChave; lEvento.InfEvento.CNPJ := lDadosEmitente.CNPJ_CPFSomenteNumeros; lEvento.InfEvento.dhEvento := TSistema.Agora; lEvento.InfEvento.tpEvento := TpcnTpEvento.teManifDestConfirmacao; lEvento.InfEvento.versaoEvento := '1.00'; Result := lACBrNFe.EnviarEvento(lACBrNFe.EventoNFe.idLote); end; Result := Result and lACBrNFe.DistribuicaoDFePorChaveNFe( lDadosEmitente.UFInt, lDadosEmitente.CNPJ_CPFSomenteNumeros, pChave ); Result := Result and (lACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138); finally FreeAndNil(lDadosEmitente); end; 1-eve.xml 1-ped-eve.xml 43171105849430000104550550010374991036835882-resNFe.xml 20171122092805-con-dist-dfe.xml 20171122092806-dist-dfe.xml

Olá, como anda o desenvolvimento desse componente?

estou enfrentando o mesmo problema e resolvi assinando antes de validar...o erro parou de acontecer.

Olá, Farroupilha/RS já está homologada no ACBr ?

Olá, Como vocês resolvem essa situação? Eu tenho uma diferença de 0,11 centavos fruto do somatório de arredondamentos nos itens. Não consegui uma regra para corrigir esse problema. Podem me ajudar?

Olá, Alguém conseguiu baixar o GitHub para o Fortes? Poderiam me ajudar dizendo como faço para baixar a última versão? Baixei direto do site do GitHub na opção "download" só que o XE5 não tem mas o XE4....XE6...XE7 tem.

Olá a todos! Estou tentando efetuar o estorno de uma nota fiscal, sempre efetuei esse estorno com sucesso e nunca tive problemas. Mas agora está retornando uma mensagem de erro 328. Estou colocando aqui o xml. http://www.flexvendasweb.com.br/temp_foruns/NFe43150208308034000150550010000011731000011731.xml Segundo retorno ele está reclamando da minha CFOP que para 5405 sempre utilizei 1411.

veja este link

Bom dia Ítalo, E quando a importação de XML de conhecimentos eletrônicos na versão 1.04 utilizando o aplicativo já com o componente na versão 2.00 ? Notei que a importação não traz quais foram as notas fiscais transportadas (documentos) do conhecimento. Tem alguma solução para isso? Obrigado.

Bom dia, Como vocês resolveram este problema? Estou com o mesmo problema. Vejam a mensagem de erro:

muito útil o seu check list darlananogueira vou utilizar e retorno com mais detalhes, o cliente não reclamou mais. Nas outras máquinas e em outras empresas funciona perfeitamente.

Bom dia, Gostaria de saber como posso tratar todas as mensagens de erro antes de gerar o Arquivo XML. Mais para que não apareça mensagens na qual o usuário não entenda.

Bom dia, Já tentei de várias maneiras e nada. Alguém pode me dar uma força nessa? Não sei mais o que fazer, tá funcionando mas extremamente lento. Não estava funcionando mas depois que marquei no IE detectar automaticamente as configurações em conexões>conexões da LAN passou a funcionar porém de forma muito mas muito lenta.

foi a primeira coisas de praxe que sempre faço, verificar a validade: está tudo ok veja: Mas depois que marquei no IE para detectar automaticamente as configurações em conexões>conexões da LAN foi só que demora muito tempo, tem algo segurando a troca de informações. tem alguma idéia?

Olá, Estou enfrentando este problema mas na mesma máquina existem 2 certificados de duas empresas modelo A1 do serasa. O segundo que instalei depois funciona tudo normalmente, agora o que já tinha: não manda, não consulta, não verifica o status do webservice de forma alguma. Sempre apresenta o erro abaixo. fiz diversos testes: 1. Atualizei a cadeia de certificados: não deu. 2. Desinstalei o certificado e instalei novamente: não deu. 3. Desativei o Anti-virus: não deu. 4. Desativei o Firewall: Não deu. 5. Configurei o IE: não deu. 6. Detectar as configurações do proxy automaticamente: funcionou mas demora uma eternidade! O que posso fazer? mensagem de erro:

Olá, Bem como o Título diz, existe essa possibilidade? É que nem sempre o certificado está presente e quando ele não está como carrego o ACbr quando abro o programa ocorre uma mensagem de erro (uma exceção) e gostaria de eliminar isso.

Ótimo então, irei testar e depois darei um retorno. Obrigado.

Olá, A tempos atrás estava implementando Conhecimentos de Frete na minha aplicação e não estava conseguindo utilizar a DACTE do Fast Report, somente do QuickReport pois a mesma estava em desenvolvimento. Como está a situação agora? ***Já efetuei a atualização forçada do SF*** ***Já tenho o FR na versão 4 Enterprise com meu XE4***

Somente para reforçar para outros..... Consegui um a versão enterprise dando sopa na net segui os passos de instalação e funcionou certinho! agora tenho a carta de correção que precisava! Obrigado pela informação.

é realmente uso a versão que vem com o produto. mas para imprimir o cc-e tenho que adquirir a versão completa do fast? Qual a versão que fica correta? a enterprise?