My first thought is transaction in another process somewhere. Randy
---------------------------------------------------------------------- Randy Jaynes Senior Programmer and Customer Support http://printpoint.com • 845.687.3741 • PrintPoint, Inc • 57 Ludlow Lane • Palisades, NY 10964 Please send all email contacts to [email protected] <mailto:[email protected]> > On Oct 11, 2018, at 1:48 PM, Kirk Brooks via 4D_Tech <[email protected]> > wrote: > > I have a method that tests if a record is locked and if it is attempts to > figure out by whom: > > $text:="["+Table name($1)+"] " > > LOCKED BY($1->;$process;$4Duser;$machineName;$p_Name) > PROCESS > PROPERTIES($process;$processName;$procState;$procTime;$procVisible;$uniqueID;$origin) > > Case of > : ($process=-1) > > $text:=$text+"The record has been deleted." > > : ($process=0) > > $text:=$text+" is locked but there is no information available about who > has it." > > Else > > $text:=$text+\ > > "Record number "+String(Record number($1->))+" is locked.\r"+\ > > "It's open by "+$4dUser+".\r\r"+\ > > " Process : "+$p_Name+"\r"+\ > > " Machine : "+$machineName+"\r\r"+("-"*20)+"\r"+\ > > " Proc # : "+String($process)+"\r"+\ > > " Alt name : "+$processName > > End case > > > I've been using this for years. Recently I noticed (but it may have been > going on for a while) records will return true for locked but LOCKED BY > doesn't have any process associated with it. The only way I've been able to > recreate this is to open a record in User Mode and attempt to load the > record from another process. This works as expected. Then if I close the > record in User and click off of it to deselect attempting to load from > another process shows the record locked but no info. > > It also occurs other times though I haven't been able to replicate it. > Regardless, what to do? > > This is v15 running on Mac Mojave so there is all sorts of possibilities > for weirdness there. Wondering if anyone else has come across this? > > -- > Kirk Brooks > San Francisco, CA > ======================= > > *We go vote - they go home* > ********************************************************************** > 4D Internet Users Group (4D iNUG) > Archive: http://lists.4d.com/archives.html > Options: https://lists.4d.com/mailman/options/4d_tech > Unsub: mailto:[email protected] > ********************************************************************** ********************************************************************** 4D Internet Users Group (4D iNUG) Archive: http://lists.4d.com/archives.html Options: https://lists.4d.com/mailman/options/4d_tech Unsub: mailto:[email protected] **********************************************************************
