User bio
404 bio not found
Member since Nov 2, 2021
Posts:
Christian has not published any posts yet.
Replies:
show all 2
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")
<Classname="MyProject.M">...</Class><Projectname="MyProject"...</Project><Classname="MyProject.Pendenz">...</Class><Classname="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} Sr="" 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)),*) Sr=r_$E(b(a))} returnr
}
Certifications & Credly badges:
Christian has no Certifications & Credly badges yet.
Followers:
Christian has no followers yet.
Following:
Christian has not followed anybody yet.