azilves Posted March 23, 2004 Report Share Posted March 23, 2004 Salve a todos ! Gente obrigado pela ajuda, mas continuo com problemas no RLOCK(). Olha o exemplo que passei no tópico anterior era um programa teste, na verdade o meu programa está como passo a seguir: ... ... TRAVAREG("ALIAS",.T.) nNUMDOC :=ALIAS->PEDIDO ALIAS->PEDIDO++ ALIAS->(DBCOMMIT()) ALIAS->(DBUNLOCK()) ... ... *------------------------------* FUNCTION TRAVAREG(cALIAS,lMSG) *------------------------------* DO WHILE &cALIAS->(!RLOCK()) IF lMSG MSGSTOP(OEMTOANSI("Registro do " + cALIAS + " em Uso. Tecle ENTER para outra tentativa","Aten‡Æo")) ELSE INKEY(1) ENDIF &cALIAS->(DBGOTO(&cALIAS->(RECNO()))) ENDDO &cALIAS->(DBGOTO(&cALIAS->(RECNO()))) RETURN(.T.) Vejam, o INKEY(1) e os &cALIAS->(DBGOTO(&cALIAS->(RECNO()))) ,foram indicações do Gilmer para poder atrasar a operação e dar tempo ao computador que estiver gravando executar toda a operação. Imaginem isto em um sistema com 27 computadores emitindo pedidos, notas fiscais e altualizando o estoque...é de deixar louco !!! Por Favor me ajudem.... Valeu.... Abraços... Alexandre Zilves Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 23, 2004 Report Share Posted March 23, 2004 Caro azilves. Qual o erro que da Mauricio (RJ) Quote Link to comment Share on other sites More sharing options...
gilmer Posted March 23, 2004 Report Share Posted March 23, 2004 Olá, No lugar do Inkey(1), coloque SysWait(1) citação: Salve a todos ! Gente obrigado pela ajuda, mas continuo com problemas no RLOCK(). Olha o exemplo que passei no tópico anterior era um programa teste, na verdade o meu programa está como passo a seguir: ... ... TRAVAREG("ALIAS",.T.) nNUMDOC :=ALIAS->PEDIDO ALIAS->PEDIDO++ ALIAS->(DBCOMMIT()) ALIAS->(DBUNLOCK()) ... ... *------------------------------* FUNCTION TRAVAREG(cALIAS,lMSG) *------------------------------* DO WHILE &cALIAS->(!RLOCK()) IF lMSG MSGSTOP(OEMTOANSI("Registro do " + cALIAS + " em Uso. Tecle ENTER para outra tentativa","Aten‡Æo")) ELSE INKEY(1) ENDIF &cALIAS->(DBGOTO(&cALIAS->(RECNO()))) ENDDO &cALIAS->(DBGOTO(&cALIAS->(RECNO()))) RETURN(.T.) Vejam, o INKEY(1) e os &cALIAS->(DBGOTO(&cALIAS->(RECNO()))) ,foram indicações do Gilmer para poder atrasar a operação e dar tempo ao computador que estiver gravando executar toda a operação. Imaginem isto em um sistema com 27 computadores emitindo pedidos, notas fiscais e altualizando o estoque...é de deixar louco !!! Por Favor me ajudem.... Valeu.... Abraços... Alexandre Zilves id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.