EMBarbosa

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?

Tenta o IBDataPump.

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

Essa mensagem significa que o arquivo já foi enviado e recebido pela SEF anteriormente. Se isso está acontecendo mesmo com arquivos que você acabou de gerar, o jeito é entrar em contato com eles. No mínimo o servidor está retornando uma mensagem de erro incorreta.

Queira atualizar e testar novamente.

Acho que não consegui reproduzir esse problema aqui. Você consegue @BigWings?

Olá, Teria como você anexar os xmls da mesma nota gerada que passou? Assim podemos comparar o que funciona com o que não funciona e tentar diagnosticar melhor o problema.

Só o pacote ACBr_NFCe_DanfeRL foi removido, não o componente. Então visto que seu projeto já utilizava o outro pacote era só remover a dependência deste pacote mesmo. Não tem porque pedir desculpas. Talvez seu passo a passo ajude a outros.

O certo seria rodar o chkdsk. Acho que você não deveria deixar os componentes dentro duma pasta do "Onedrive". Na verdade quanto menor o path melhor. Por isso é melhor algo como "c:\componentes\ACBr\" ou simplesmente "c:\ACBr" se possível.

Não tem problema Leandro. Agradecemos sua ajuda e disposição desde já. Já foi útil ter apontado o problema, mas se conseguir fazer o ajuste vamos ficar ainda mais gratos. Bom trabalho por aí.

Bom dia Leandro, Infelizmente não podemos enviar a alteração da forma como está. Ela não é compatível nem com o Delphi 7, nem com o Lazarus.

As alterações feitas pelo @izaquesouza foram enviadas ao SVN na revisão 19345. Obrigado @izaquesouza. Como você mesmo notou, outras alterações foram feitas na mesma porção do código, então eu precisei de um pouco mais de tempo para conciliar as alterações e testar. Acredito que agora esteja ok. Mas peço que testem e reportem qualquer problema. Quanto ao seu tópico, vou te responder por lá.

Para o caso do ESC/POS, é preciso carregar no componente o arquivo de evento também. Veja esse outro tópico:

Não sei se entendi o que quis dizer... Você quer dizer enviar na requisição? Se for isso, basta usar o evento onAntesFinalizarRequisicao. Veja no programa exemplo o seguinte código: procedure TForm1.ACBrTEFD1AntesFinalizarRequisicao(Req : TACBrTEFDReq); begin if Req.Header = 'CRT' then Req.GravaInformacao(777,777,'TESTE REDECARD'); Memo1.Lines.Add('Enviando: '+Req.Header+' ID: '+IntToStr( Req.ID ) ); end;

Não sei o motivo de não ter atualizado, mas fico feliz que resolveu. Obrigado pelo retorno.

Acredito que não se teve um diagnóstico pra se chegar a uma solução. Você pode tentar avaliar as comunicações seriais e ver se há algum retorno, tentar com software do fabricante, etc...

Isso só é verdade se não houver mais arquivos do ACBr em nenhuma pasta do computador. O Delphi pode estar encontrando os arquivos incorretos por meio de um dos path. Esses são os que são gerados pelo instalador que devem estar corretos se seus arquivos fontes locais estão corretos. Isso parece correto. Mas o library path é só um dos lugares que o Delphi verifica. O Enviroment Path também pode estar alterado. Gostaria apenas que entendessem que eu estou tentando mas ainda não consigo reproduzir aqui esse problema. Talvez vocês queiram tentar compilar o pacote manualmente para testar.

Tudo indica que há alterações locais, ou que o Delphi está pegando os arquivos *.dcp incorretos. Vejam, a mensagem de erro significa o seguinte: "No pacote ACBr_NFSeDanfseFR, a unit ACBrNFSeDANFSeFR se refere a unit pnfsConversao. Mas a unit pnfsConversao não está em nenhum pacote." Mas a unit pnfsconversao está no pacote ACBr_NFSe: E o pacote ACBr_NFSe é requisito tanto do pacote DCLACBr_NFSeDanfseFR como do ACBr_NFSeDanfseFR que estão sendo compilados. Assim, a conclusão mais lógica é que ou há alterações locais nos pacotes, ou que o Delphi está pegando os arquivos *.dcp incorretos. Talvez por uma configuração incorreta de path.

Bom dia. Muito estranho que não consegui reproduzir esse erro nem no Delphi Berlin, nem no Rio, nem no Delphi 7 que tenho aqui. Mas enviei uma alteração na revisão 19295. Queira por favor atualizar e testar novamente.

Boa tarde Werner_Marques. Talvez. Depende da classe e da DLL. No caso do Sitef, fazemos a comunicação via DLL. Mas nem todos os gerenciadores se comunicam por DLL. Também nem todos os gerenciadores que se comunicam por DLL estão implementados. Por isso, caso queira que isso seja avaliado, por favor, crie um novo tópico explicando a necessidade da nova implementação e anexe a documentação provida para que possamos analisar essa possibilidade.

Também no nosso SVN, a gente tenta sempre manter atualizado.

Você precisa verificar no manual da certificadora.

Não... você continuaria usando o DBLResult, mas apenas como soma. Daí no Select você faz o if que você mencionou e joga no campo o valor como se ele fosse negativo. Algo como Select CASE WHEN ColunaDC = 'D' THEN ColunaValor * -1 ELSE ColunaValor END as ColunaValor from suatabela