Versions des environnements
I have 3 free tables on the server.
All of them have optimistic table buffering and have been made transactionable.
Set Reprocess is set to 5
The application will sometimes hang on the last TABLEUPDATE.
What could be causing it to hang?
IF RLOCK("b2btrips")
Begin transaction
Replace CONTROL With lcControl, ;
MSGPK With nMSGPK, ;
MSGDESC With cMsgDesc, ;
REQID With nNewReq, ;
MSGSTATUS With 4, ;
MSGREC With g_DateNow, ;
STARTDATE With g_DateNow, STARTZONE with cTimeZone ;
In B2BDISPD
Replace DOCID With cNewDOCID, ;
CONTROL With lcControl, ;
MSGPK With nMSGPK, ;
MSGPACKIT With nPackit, ;
MSGPRIOR With cPrior, ;
MSGIDORIG With B2BTRIPS.ORIGREQID, ;
MSGORDER With g_DateNow, ;
MSGCREATE With g_DateNow, ;
MSGDATE With g_DateNow, ;
MSGTYPE With 5, ;
MSGACTION With 2, ;
MSGSOURCE With 5, ;
DISPNO1 With BRBILL.DISPNO, ;
DESKLOC With B2BTRIPS.DESKLOC, ;
CRIT3 With cMsgDesc, ;
REQWHO With "B2BEVNT", ;
MSGSTATUS With 1, MSGSHOW With 2 ;
In B2BREQ
Replace MSGSTATUS With 4, MSGDATE With g_DateNow, ;
MSGDESC With cMsgDesc, REQID With nNewReq ;
In B2BTRIPS
lUpdated= Tableupdate(.F.,.T.,"B2BDISPD")
IF lUpdated
lUpdated= Tableupdate(.F.,.T.,"B2BREQ")
endif
IF lUpdated
lUpdated= Tableupdate(.F.,.T.,"B2BTRIPS") && It sometimes hangs on this tableupdate
endif
If lUpdated
End transaction
Else
Rollback
ENDIF
endif
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement