Trava o sistema após fechar janela

[Rodrigo Guelf]

O meu sistema esta travando quase toda vez que envio uma ou mais notas, quando fecho a janela do sistema, o sistema trava, as vezes destrava sozinho mais na maioria das vezes ele fica travado, ao só pelo ctrl+Alt+Del

estou chamando a minha janela assim:

Application.CreateForm(TFormNFEletronica, FormNFEletronica);

try

FormNFEletronica.Tag:= 1;

FormNFEletronica.ShowModal;

finally

FormNFEletronica.Free;

end;

já tentei assim tambem

Application.CreateForm(TFormNFEletronica, FormNFEletronica);

try

FormNFEletronica.Tag:= 1;

FormNFEletronica.ShowModal;

finally

FormNFEletronica.Free;

FormNFEletronica.FreeOnRelease;

end;

alguem já passou por este problema?

[rodnei]

ja tento assim

try

  FormNFEletronica.Tag:= 1;

  FormNFEletronica.ShowModal;

finally

  FreeandNil(FormNFEletronica);

end;

verifique tb as suas tabelas no evento onclose do formulario pode ser outra coisa

ou ate o componente destrua ele antes de fechar o formulario para testar

[Rodrigo Guelf]

Desculpa mais não entendi muito bem, vc acha que pode ser as minhas tabelas, ou que eu destrua o acbrnfe antes de fechar a janela?

Outra coisa, eu fiz uma rotina para enviar varias notas uma por uma, sei que existe a opção do envio em lote, mais por ouitros motivos não posso enviar em lote, ai fica vendo uma mensagem a todo instante do tempo que levou, o numero da chave, etc... eu gostaria de saber como eu faço para remover esta mensagem, pois a cada vêz que ela vem o meu cliente tem que ficar dando enter, e a mensagem vem varias vezes na mesma nota fiscal, se não estou enganado vem 4 mensagem por nota fiscal.

[Rodrigo Guelf]

Amigo, o travamento eu já descobri aonde ele esta parando:

procedure TRxSpeedButton.Notification(AComponent: TComponent;

Operation: TOperation);

begin

inherited Notification(AComponent, Operation);

if (AComponent = DropDownMenu) and (Operation = opRemove) then

DropDownMenu := nil;

end;

ele fica executando esta rotina muuuuuitas vezes e na verdade eu só tenho 6 botões deste!

e ai vc sabe o que pode ser isso?

[rodnei]

para ter certeza se é este mesmo o problema troque os botao que estes sao da rxlib e ponha os botoes convencionais , para fazer isso em lote :

Pressione ctrl+alt+F12 , ai vc substitui TRxSpeedButton para TButton e depois preccione a sequencia de teclas novamente , ele ira mostrar algumas mensagens , mas ponha todas Yes

[Rodrigo Guelf]

Amigo eu olhei em todo o meu formulario, em todo o codigo fonte e não possui nenhum componente do rxlib neste formulario, fui debugando usando o F7 e percebi que toda vêz que o debugue passa por esta rotina:

procedure TACBrNFe.Notification(AComponent: TComponent; Operation: TOperation);

begin

inherited Notification(AComponent, Operation);

if (Operation = opRemove) and (FDANFE <> nil) and (AComponent is TACBrNFeDANFEClass) then

FDANFE := nil ;

end;

após este rotina o depugue vai direto para esta:

procedure TRxSpeedButton.Notification(AComponent: TComponent;

Operation: TOperation);

begin

inherited Notification(AComponent, Operation);

if (AComponent = DropDownMenu) and (Operation = opRemove) then

DropDownMenu := nil;

end;

e daqui não consegue sair!!!!!!!!!!!!!!!

porem as vezes ele sai, e ai o que você acha que pode ser?

Aguardo a sua resposta, estou precisando resolver isso com urgencia.

Desde já muito obrigado pela sua atenção.

[igor]

vc esta tendo o mesmo problema q eu ja tive...

leia:

http://www.forumweb.com.br/foruns/index ... ntry356667

infelizmente ninguem respondeu...

criei outro topico:

http://www.forumweb.com.br/foruns/index ... omponente/

bom, foi essa solucao que eu encontrei...

soh q fazendo isso tera efeitos colaterais(com ctz)

entao analize bem antes de fazer, faça e veja se o seu problema foi mesmo identico ao meu, etc

[Rodrigo Guelf]

Igor, caramba ninguem te respondeu...

kra vou fazer isso e ver o que vai acontecer, me fala um dos erros que vc teve?

[felipehf]

Olá,

Faça um teste assim: crie o formulário da NFe sem usar a variavel:

with TFormNFEletronica.Create(Application) do

begin

Tag:=1;

Showmodal;

end;

e faça o Free dele no evento Onclose do form:

Action:=caFree;

[Rodrigo Guelf]

felipehf vc acha que o Tag que esta fazendo isso?

[franktieney]

Tente desta maneira:

Application.CreateForm(TFormNFEletronica, FormNFEletronica);

try

FormNFEletronica.Tag:= 1;

FormNFEletronica.ShowModal;

finally

FormNFEletronica.Release; // <<<------- Usando este método no lugar do ".Free;"

end;

Espero que ajude.

[felipehf]

O tag não faz mal nenhum.

O que está fazendo mal é usar a variavel de formulario.

Tente do jeito que lhe disse.

abraço

[Rodrigo Guelf]

felipehf, fiz do jeito que vc falou, a acredito ter resolvido o meu problema, muito obrigado pela ajuda, que não lhe falte conhecimento, obrigado tambem a todos os que de alguma forma tentaram me ajudar.

Um feliz ano novo a todos!