EMBarbosa

Muito obrigado pela contribuição. Fiz a implementação baseada na "Solucao1". Subi as alterações para o SVN na Revisão 19527. Pelo que vi está tudo certo. Queira por favor atualizar, testar e reportar qualquer problema. Mais uma vez obrigado.

Poderia anexar o arquivo xml do evento para que eu possa tentar reproduzir aqui?

Se você atualizou só os arquivos de relatório, por favor atualize todos os arquivos dos componentes e faça uma instalação nova.

Nesse caso, ou é o timeout muito baixo, ou erro na Sefaz mesmo. Tente aumentar o timeout nos lugares que está recebendo esse erro.

Até onde eu entendo, você precisa passar todos os dados requeridos. Fazendo isso, é gerado conforme. O exemplo, é como o próprio nome diz, apenas um exemplo. Você segue a ideia para fazer tudo o que a documentação requisitar.

Além do Guia prático, tem o documento Perguntas Frequentes, que foi atualizado a pouco tempo. Segue o link: http://sped.rfb.gov.br/arquivo/show/2090

Olá Ronaldo, Acho que precisamos verificar essa situação com mais cautela. De acordo com a documentação da Microsoft, o ACBrInstall não parece ser compatível com essa flag. Vejas as exigências na documentação: O primeiro ponto (não usar arquivos .ini) já é suficiente para que o ACBrInstall não se enquadre nas aplicações que podem usar de forma segura o flag mencionado.

Eles devem achar que você é usuário do sistema ao invés de desenvolvedor. Sugiro você fazer uma réplica com os dados.

Mas qual é problema? O que eles orientaram?

Se for só um som de beep do sistema, usa o comando beep. https://stackoverflow.com/questions/24457581/lazarus-pascal-beep-command

Isso pode indicar que você tem cópias do arquivo em questão ou da sua versão compilada (.dcu) sendo encontrada pelo Delphi. Não é uma afirmação, mas uma possibilidade.

Além do que o Daniel mencionou, vocês podem tentar usar um profiler para analisar a situação.

Se a documentação diz uma coisa e você está vendo outra acontecer, o melhor é entrar em contato com o órgão responsável. Tente o "Fale Conosco" ou outro sistema similar no site deles.

Visto que é uma informação fiscal, acho prudente você questionar ao contador do seu cliente como fazer os cálculos conforme a descrição que você pôs acima.

Nesse caso, vamos remover essa parte do bat.

Pra mim continua com problemas de design. O que você fez foi um FreeAndNil em A; O Create de A tem acesso a B que nem foi criado ainda; B continua podendo gerar Access Violations depois de A ser destruído; Mas se resolveu seu problema...

Olá Antônio, Muito obrigado pelas sugestões. Vou passar as minhas considerações sobre o "apaga bat"... Nós já corrigimos isso há algum tempo modificando para SYNA*.dcu e SYNA*.bpl. Se o seu estava da forma acima, é possível que ele não tenha sido gerado pelo ACBrInstall ou o ACBrInstall está desatualizado. A propósito, não é mais recomendado executar o "apaga bat" diretamente. Atualmente ele é gerado e executado pelo ACBrInstall quando você marca a opção "Apagar arquivos antigos (...)". Essa segunda linha com certeza pode ser perigosa. É muito genérica... Infelizmente, não podemos usar assim. O "apaga bat" é justamente necessário quando precisamos apagar arquivos que estão em outras pastas que não as do ACBr... Por isso ele é executado em todos os outros diretórios.

Bem, isso sempre foi assim... mas se você não sabia, posso entender sua confusão... Esse código me parece incorreto... Você não colocou o "B:= A" e por isso o código vai dar false... Ainda não consegui entender o que você quer fazer, mas não me parece que esse código realmente vai resolver seu problema...

Acho que você não entendeu essa parte ainda. A e B são a mesma instância. São variáveis diferentes apontando pro mesmo objeto, mesmo endereço de referência. Nesse caso B pode continuar apontando para A dependendo das opções do compilador. Veja: type TMyClass = class(TObject) private { private declarations } Fs: string; end; var A, B: TMyClass; begin A := TMyClass.Create; B := A; A.Fs := 'Sou A'; ShowMessage(B.Fs); FreeAndNil(A); A := TMyClass.Create; A.Fs := 'Sou NOVO A'; // Agora A é outro objeto ShowMessage( BoolToStr(A = B, True) ); //True ShowMessage(B.Fs); end. Continuo sem saber o que você quer fazer. Você está explicando qual a implementação quer alcançar e não o objetivo...

Nessa comparação os objetos são os mesmos. Não entendi sua dúvida. A e B são o mesmo objeto no mesmo endereço. O resultado True está correto. Você deu Free no objeto A. Liberou a memória indicando que ela pode ser utilizada por outro objeto. Como o objeto C é instanciado depois da liberação da memória, ele pode usar o mesmo endereço. O resultado vai ser igual. Usar FreeAndNil vai ser a solução mais simples pro seu problema. Mas sinceramente, acho que você está indo num caminho incorreto. Me parece que há violação de princípios de orientação a objetos. Seu código não deveria precisar desse tipo de comparação. O que você está realmente tentando fazer? Que problema você está tentando resolver?

Lá pela época de 2011 a recomendação era um timout de 50 segundos. Me parece que hoje um Timeout de 30 segundos é considerado "razoável". Logo 2 segundos é muito abaixo do que é recomendado e você deve aumentar isso daí. Senão vai ter problemas mesmo.

Tenta o IBDataPump.

Você pode acessar os dados já acrescentados no componente. Só não tem a facilidade de usar como se fosse um dataset. São TObjectLists as listas de registros: ACBrSPEDFiscal1.Bloco_C.RegistroC001.RegistroC100.Items[0].RegistroC190.Items[0].CFOP := '5100';

Isso daí é está parecendo UTF-8 convertido pra Hexadecimal. Só que não parece totalmente correto. A conversão de: Deveria ser algo como:

Olá Arnaldo, O que exatamente você quer saber?