[firebase-br] RES: Travamento Pessimista

[marcelo luiz stefaniak - teflamar]

pega aí um exemplo:

//para testar se está travado, e/ou travar:

    if not dmrod.testa_travamento('DIVMAR01',edcod.text) then begin 
edcod.setfocus;exit;end;

function tdmrod.testa_travamento(wtabela,wcod:string):boolean;
begin
result:=false;
while true do
begin
try
    dmrod.trava.StartTransaction;
    // Executando comandos SQL, que irão travar o registro cuja chave
    // esta armazenada em COD.
    dmrod.sqltrava.sql.text:='UPDATE '+wtabela+' SET COD = COD WHERE COD = 
'+h39(wcod);
    dmrod.sqltrava.Prepare;
    dmrod.sqltrava.ExecQuery;
    result:= True;
    Except
        // Se executou uma exceção, então o registro já está travado por 
outro usuário.
        dmrod.trava.Rollback;
        if application.MessageBox('O Registro está sendo alterado por outro 
usuário. Tentar novamente ?', 
'Atenção',mb_yesno+mb_iconquestion+mb_defbutton1) = mryes then
        Continue
        else break;
    end;
    break;
end;
end;

----- Original Message ----- 
From: "Adriano Wolff" <adriano em sinprod.com.br>
To: "'FireBase'" <lista em firebase.com.br>
Sent: Wednesday, April 05, 2006 9:05 AM
Subject: [firebase-br] RES: Travamento Pessimista


E qual foi a forma de fazer isto?'
É possível usar isto com a aplicação usando BDE?

Adriano

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de marcelo - teflamar
Enviada em: terça-feira, 4 de abril de 2006 16:38
Para: FireBase
Assunto: Re: [firebase-br] Travamento Pessimista

sim
sem problemas!

----- Original Message ----- 
From: "Adriano Wolff" <adriano em sinprod.com.br>
To: "'FireBase'" <lista em firebase.com.br>
Sent: Tuesday, April 04, 2006 2:11 PM
Subject: [firebase-br] Travamento Pessimista


Alo Pessoal,



Alguém da lista trabalha com o Travamento Pessimista do registro?



Adriano Wolff

ADML Software

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.5/301 - Release Date: 04/04/2006



______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.5/300 - Release Date: 03/04/2006