William Mattos

Olá pessoal , estou fazendo o cancelamento da nfe por evento no ACBr , mas estou com 1 problema e 1 duvida ... Problema: Não esta gravando os XML's dos eventos na pasta informada. Configurações Respectivas. with ACBrNFe.Configuracoes.Arquivos do Begin Salvar := True; PathEvento := 'C:\ExemploNFe\Evento\'; End; Codigo do Cancelamento abaixo. ACBr.NotasFiscais.Clear; ACBr.NotasFiscais.LoadFromFile(XMLPath); // Carrega o XML idLote := 1; ACBr.EventoNFe.Evento.Clear; ACBr.EventoNFe.idLote := idLote; with ACBr.EventoNFe.Evento.Add do begin InfEvento.tpAmb := ACBr.NotasFiscais.Items[0].NFe.Ide.tpAmb; infEvento.CNPJ := ACBr.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; InfEvento.cOrgao := ACBr.NotasFiscais.Items[0].NFe.Ide.cUF; InfEvento.nSeqEvento := 1; InfEvento.chNFe := ChaveNFe; InfEvento.dhEvento := Now; InfEvento.tpEvento := teCancelamento; InfEvento.detEvento.nProt := Protocolo; infEvento.detEvento.xJust := InputBox('Justificativa','Justifique o Cancelamento','Erro de Digitacao da Nota'); // Justificativa; try ACBr.WebServices.EnvEvento.Executar; except on E : Exception do ShowMessage(E.Message+#13#10+'Ocorreu um Erro ao Cancelar a Nota Fiscal , tente novamente.'); end; obs: O Cancelamento está funcionando e os XML's dos eventos estão sendo salvos junto com as NFe's Duvida: Como retornar o path do xml de evento? por exemplo: eu realizo o evento de cancelamento, depois retorno o caminho do XML do evento...

Sim ... esse problema não e serio, minha aplicação também não trava, só quando demora e os 'apressadinhos' ficam clicando na aplicação que fica como não respondendo , mas depois se o usuário não clicar em encerrar processo volta ao normal. No exemplo aqui e simples, 1 formulário , 1 botão , componente acbrnfe2 com todos os valores default , apenas alterando o UF do webservice para 'RJ'. Codificação do botão para o exemplo: ACBrNFE.Configuracoes.Certificados.SelecionarCertificado; if AcbrNFE.WebServices.StatusServico.Executar then ShowMessage('Ok') else ShowMessage('Erro'); como pode ver, o 'problema' e realmente quando o usuário não espera e começa a clicar e arrastar a janela(como se adiantasse alguma coisa) rs

Olá Régys , não se trata de um erro. só estou buscando uma solução para dar uma experiencia mais agradável ao cliente. Vou tentar explicar de forma mais clara. [Problema] A Velocidade da Banda Larga por aqui , não tem nada de Larga, por isso quando vou realizar por exemplo: Uma consulta do Status de Serviço. A Aplicação para de processar as Mensagens do Windows e da prioridade ate que a consulta se realize, coisa que pode demorar uns 3~6 segundos ou ate mais. Até ai tudo bem, porém... se o usuário por exemplo: Dar alguns cliques na Janela do Sistema ou Tentar arrastar-la . o windows por padrão verifica que aquela aplicação não esta processando as mensagens e logo Coloca a Aplicação como "Não Respondendo" e pode ate apresentar a janela com a opção de encerrar o processo. Este e o 'problema', pois o cliente acha que a aplicação travou e pode encerrar o processo no meio de uma Consulta ou ate mesmo do envio da NFe. Este 'problema' é apenas para a experiencia do usuário, pois o sistema na realidade não travou , mas sim.. executa um procedimento longo.

Ninguém?

[Editado : Testei Rapido de mais, achei que tinha resolvido, mas também não resolveu] Resolvi com uma gambiarra , mas enquanto não implemento a thread vou utilizar assim: Fiz da Seguinte Maneira: Atribui o famoso Application.ProcessMessages() no OnStatusChange do ACBr.

Olá pessoal, sou novo no fórum ... mas já acompanho o desenvolvimento do projeto a algum tempo. Minha dúvida possivelmente e algo muito simples, estou implementando agora o NFe no meu sistema, e a aplicação trava em toda operação longa. Existe alguma propriedade do ACBr que o deixe Rodando como se fosse uma Thread , algum componente que evite o Freeze ou a solução e realmente criar uma thread e manipular o componente por ela? Aguardo respostas, William Mattos.