Thank you very much all for your help.
I'll check Keysuke and Chuck's answers and I'll let you know what happened.

Merry Christmas to all of you.

On Tue, 22 Dec 2020 at 16:42, Chuck Miller via 4D_Tech
<[email protected]> wrote:
>
> I have used code below
>
> C_TEXT($Struct_T)
>
> ARRAY TEXT($Parts_atxt;0)
> ut_TextToArray (Structure file;->$Parts_atxt;Folder separator)//this method 
> will place each part of path into array element to get structure name. You 
> can do this any way you want
> $Struct_T:=$Parts_atxt{Size of array($Parts_atxt)}
> $Struct_T:=Substring($Struct_T;1;Position(".";$Struct_T)-1)
>
>
> C_TEXT($PathToEngineLink_txt;$Attribute_txt;$xml_txt;$elemref_txt)
>
>
> C_TEXT($FilePath_T)
>
> Case of
>         : (Application type=4D Remote mode)
>
>                 $FilePath_T:=Get 4D folder(Active 4D Folder)+"Favorites 
> v15"+Folder separator+"Remote"+Folder separator+$Struct_T+".mdp"
>                 If (Test path name($FilePath_T)=Is a document)
>                         DELETE DOCUMENT($FilePath_T)
>                 End if
>         : (Application type=4D Local mode)
>
>                 $FilePath_T:=Get 4D folder(Active 4D Folder)+"Favorites 
> v15"+Folder separator+"Local"+Folder separator+$Struct_T+".mdp"
>                 $PathToEngineLink_txt:=Get 4D folder(Active 4D 
> Folder)+"Favorites v15"+Folder separator+"Local"+Folder 
> separator+$Struct_T+".4dlink"
>                 If (Test path name($FilePath_T)=Is a document)
>                         DELETE DOCUMENT($FilePath_T)
>                 End if
>                 If (Test path name($PathToEngineLink_txt)=Is a document)
>                         $xml_txt:=DOM Parse XML source($PathToEngineLink_txt)
>                         $elemref_txt:=DOM Find XML 
> element($xml_txt;"database_shortcut")
>                         DOM SET XML ATTRIBUTE($elemref_txt;"md5_password";"")
>                         DOM SET XML ATTRIBUTE($elemref_txt;"user_name";"")
>                         DOM REMOVE XML ATTRIBUTE($elemref_txt;"md5_password")
>                         DOM REMOVE XML ATTRIBUTE($elemref_txt;"user_name")
>                         DOM EXPORT TO FILE($xml_txt;$PathToEngineLink_txt)
>
>
>                 End if
>
> End case
>
> ------------------------------------------------------------------------------------------------
>  Chuck Miller Voice: (617) 739-0306
>  Informed Solutions, Inc. Fax: (617) 232-1064
>  mailto:cjmiller<AT SIGN>informed-solutions.com
>  Brookline, MA 02446 USA Registered 4D Developer
>        Providers of 4D and Sybase 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.
>
> > On Dec 22, 2020, at 8:29 AM, Keisuke Miyako via 4D_Tech 
> > <[email protected]> wrote:
> >
> > Hi
> >
> > there is a checkbox in database settings / security
> >
> > Users can change their password
> > Display User List in Password Dialog Box
>
> **********************************************************************
> 4D Internet Users Group (4D iNUG)
> New Forum: https://discuss.4D.com
> Archive:  http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub:  mailto:[email protected]
> **********************************************************************



-- 
Miguel Gonzalez
AcuBase Ltd.
**********************************************************************
4D Internet Users Group (4D iNUG)
New Forum: https://discuss.4D.com
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:[email protected]
**********************************************************************

Reply via email to