flexsistemas

Obrigado @Daniel Simoes desculpe na pressa acabei não lendo o post....isso mesmo.

É testando melhor para mim aqui não funcionou...estranho. Antes colocava "CAXIAS DO SUL" com RS e ia mas agora tem que ser exatamente como se escreve "Caxias do Sul"

Perfeito @Daniel Simoes era isso mesmo!!! Copiei as DLLs de 32bits para a pasta SYSWOW64 e testei novamente tudo certo!! Muito Obrigado.

Obrigado EMBarbosa! Já li esse post e verifiquei isso. O que acontece é que tem uma guia como a que estou mencionando abaixo (Drivers) que não contém o driver para Paradox. Essa é uma imagem da minha maquina de desenvolvimento.

Bom dia! Muito obrigado Daniel....acabei de testar a alteração. Está retornando o seguinte erro usando o exemplo:

up.

muito útil enquanto não conseguimos uma solução no componente.

Depois que fiz a atualização do Componente (18/02/2018), estou fazendo testes e me deparei com esse arquivo INI Eu nunca precisei colocar esse arquivo na pasta da minha aplicação, geralmente executo o ACBrInstall_Trunk2 e tudo certo. Isso agora será necessário?

Daniel, não querendo ser intransigente e também não entendo do Código do ACBr...mas isso teria uma previsão para correção?

Daniel o compoente funciona utilizando USB ou neste caso somente via spooler de impressão com a instalação do driver da impressora para Windows??

Olá, atualizei o meu trunk2 ontem a noite e estou fazendo uma verificação de todas as funcionalidades e notei que o componente ACBrIBGE não está funcionando. Sempre que busco uma cidade ele retorna a mensagem dizendo Nenhum Município Encontrado Será que pelas mudanças no site do IBGE parou?

Eu fiz a atualização do meu ACBr e está funcionando redondinho!

Olha fiz um teste rápido aqui bem como você citou instalar ele com o instalador com a opção win32 e deixar desmarcado a opção que tem LibXX e criei um file new vcl application add win64 coloquei um componente ACbrCEP e mandei executar reclamou das dcu.

isso mesmo, eu utilizo desta forma e também funciona!!!

Olá Pessoal! Estou tentando abrir uma tabela paradox e estou usando FireDAC com ODBC. Na minha máquina foi com sucesso mas lá no cliente ele não tem o driver atualizado e não sei onde consigo baixar ele. Alguém poderia me dar alguma dica?

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?