OK here goes. Given the following code You will see that $proc=0 and $user,$session,$name are all blank
*READ ONLY*([Table]) *Get a record* *FIRST RECORD*([Part]) *LOAD RECORD*([Part]) *If *(*Locked*([Part]) *C_LONGINT*($proc) *c_text*($user;$session;$name) *LOCKED BY*([Part];$proc;$user;$session;$name) *end if* On Thu, Oct 11, 2018 at 4:18 PM Kirk Brooks via 4D_Tech < [email protected]> wrote: > Chuck, > Well that supposes that the Locked command is not accurate. If that's wrong > I'm not sure how to prove that. And that would be a much more profound > problem, I think. But perhaps. I'm just assuming the issue is with the > Locked By command. > > To be clear my method tests for Locked first: > > Case of > > :() // some other stuff to validate the pointer > > :(Locked($table_p->)) > > // do the locked record stuff > > End case > > > Sure I can manipulate the records between locked and unlocked. The thing is > when I do those sorts of operations everything behaves as expected. This is > some sort of edge case, I just want to understand what the edge is. > > On Thu, Oct 11, 2018 at 11:14 AM Chuck Miller via 4D_Tech < > [email protected]> wrote: > > > Kirk > > > > In 15 I had found you could lock records think you unlocked them and then > > unloaded but they would remain locked until you quit server. What happens > > in your car if you select a different record. Do both show as locked only > > first or only the second > > > > Regards > > Chuck > > > > Sent from my iPhone > > > > > 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] > > ********************************************************************** > > > > -- > 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] > ********************************************************************** -- ----------------------------------------------------------------------------------------- Chuck Miller Voice: (617) 739-0306 Fax: (617) 232-1064 Informed Solutions, Inc. Brookline, MA 02446 USA Registered 4D Developer Providers of 4D, Sybase & SQL Server connectivity http://www.informed-solutions.com ----------------------------------------------------------------------------------------- This message and any attached documents contain information which may be confidential, subject to privilege or exempt from disclosure under applicable law. These materials are intended only for the use of the intended recipient. If you are not the intended recipient of this transmission, you are hereby notified that any distribution, disclosure, printing, copying, storage, modification or the taking of any action in reliance upon this transmission is strictly prohibited. Delivery of this message to any person other than the intended recipient shall not compromise or waive such confidentiality, privilege or exemption from disclosure as to this communication. ********************************************************************** 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] **********************************************************************
