PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Wx - Como verificar se o registro está em uso numa transação atômica?
Wx - Como verificar se o registro está em uso numa transação atômica?
Iniciado por Boller, jan., 23 2021 3:40 AM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 23 2021 - 3:40 AM
Prezados

Segue código usado para avisar que o registro está em uso:

IF NOT HReadSeekFirst(EDT_Tabela,EDT_Chave,TABLE_tabela.COL_C1) THEN
RETURN
END
IF HInfoLock(EDT_Tabela,HRecNum(EDT_Tabela)) <> "" THEN
HReset(EDT_Tabela)
InfoWithTimeout(2s,"Registro bloqueado por outro usuario - aguarde!")
RETURN
END
IF NOT HLockRecNum(EDT_Tabela,hRecNumCurrent,hLockWrite) THEN
InfoWithTimeout(2s,"Sistema não conseguiu realizar o lock, tente novamente")
RETURN
END


Enviado por Paulo Viana

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/