All
Accepted answers
Christian Berger · Oct 5, 2024 go to post

Hi @Philippe Ebinger,

take a look into the %Studio.Project class, there is a method called Export, which gives you exactly what you need on the console like:

Set project = ##class(%Studio.Project).%OpenId("MyProject")
Do project.Export("MyProject.xml")
<Class name="MyProject.M">...</Class>
<Project name="MyProject"...</Project>
<Class name="MyProject.Pendenz">...</Class>
<Class name="MyProject.Protokoll">...</Class>
Christian Berger · Jan 26, 2024 go to post

207... 😒

197 if we can get rid of phrase and change return to short quit

ClassMethod ToKeyPad(phrase) As %String
{
	S t=$ZCVT(phrase,"U") F i=2:1:9 {F j=1:1:$S("79"[i:4,1:3) S b($C($I(s)+64))=i_j,b(i)=i_j+1} S r="" F i=1:1:$L(t) {S a=$E(t,i) S:a=" " r=r_0 S:"01"[a r=r_a_a F j=1:1:$E($G(b(a)),*) S r=r_$E(b(a))} return r
}