Index: AX/common/impl/ConvertAdminToAX.cls.xml
===================================================================
diff -u -r34776 -r34868
--- AX/common/impl/ConvertAdminToAX.cls.xml	(.../ConvertAdminToAX.cls.xml)	(revision 34776)
+++ AX/common/impl/ConvertAdminToAX.cls.xml	(.../ConvertAdminToAX.cls.xml)	(revision 34868)
@@ -10,6 +10,180 @@
 <Implementation><![CDATA[	Quit ##class(TECH.StringUtils).AlignRight($Extract(KlantID,4,*),0,5)
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertLedgerCount">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LedgerCountId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $get(^AX.AdminToAX("LedgerCount",LedgerCountId),LedgerCountId)
+]]></Implementation>
+</Method>
+
+<Method name="InitLedgerCount">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#execute Kill ^AX.AdminToAX("LedgerCount")
+	#execute set ^AX.AdminToAX("LedgerCount",242001) = 242000
+	#execute set ^AX.AdminToAX("LedgerCount",264001) = 264000
+	#execute set ^AX.AdminToAX("LedgerCount",264011) = 264010
+	#execute set ^AX.AdminToAX("LedgerCount",400000) = 400000
+	#execute set ^AX.AdminToAX("LedgerCount",400000) = 400010
+	#execute set ^AX.AdminToAX("LedgerCount",400000) = 400020
+	#execute set ^AX.AdminToAX("LedgerCount",603010) = 603000
+	#execute set ^AX.AdminToAX("LedgerCount",603040) = 603000
+	#execute set ^AX.AdminToAX("LedgerCount",603080) = 603000
+	#execute set ^AX.AdminToAX("LedgerCount",604020) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604030) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604090) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604100) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604314) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604315) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604395) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604397) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604420) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604435) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604445) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604475) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604478) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604490) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604507) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604520) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604555) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604627) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604650) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604680) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604695) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604900) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",604910) = 604000
+	#execute set ^AX.AdminToAX("LedgerCount",607015) = 607010
+	#execute set ^AX.AdminToAX("LedgerCount",610405) = 610420
+	#execute set ^AX.AdminToAX("LedgerCount",610421) = 610420
+	#execute set ^AX.AdminToAX("LedgerCount",611400) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611403) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611404) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611405) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611406) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611407) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611408) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611409) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611410) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611413) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611414) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611415) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611416) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611417) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611418) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611419) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611420) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611422) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611423) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611424) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611425) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611426) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611427) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611428) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611429) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611430) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611431) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611432) = 611410
+	#execute set ^AX.AdminToAX("LedgerCount",611433) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611434) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611435) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611436) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611437) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611438) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611439) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611440) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611441) = 611400
+	#execute set ^AX.AdminToAX("LedgerCount",611500) = 611500
+	#execute set ^AX.AdminToAX("LedgerCount",611600) = 611600
+	#execute set ^AX.AdminToAX("LedgerCount",611700) = 611700
+	#execute set ^AX.AdminToAX("LedgerCount",611900) = 611900
+	#execute set ^AX.AdminToAX("LedgerCount",612000) = 612000
+	#execute set ^AX.AdminToAX("LedgerCount",612010) = 612010
+	#execute set ^AX.AdminToAX("LedgerCount",612100) = 612100
+	#execute set ^AX.AdminToAX("LedgerCount",612120) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612121) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612123) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612124) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612125) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612126) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612127) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612128) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612129) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612130) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612132) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612133) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612135) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612137) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612139) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612140) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612141) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612142) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612143) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612144) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612145) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612146) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612147) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612148) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612149) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612150) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612151) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612152) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612154) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612156) = 612130
+	#execute set ^AX.AdminToAX("LedgerCount",612157) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612158) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612159) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612160) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612161) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612162) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612163) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612164) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",612165) = 612120
+	#execute set ^AX.AdminToAX("LedgerCount",613650) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613651) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613652) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613653) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613654) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613655) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613656) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613657) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613660) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613662) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613663) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613664) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613665) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613666) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613667) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613668) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613669) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613670) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613672) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613673) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613674) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613675) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613676) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613677) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613679) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613680) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613681) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613682) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613683) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613684) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613685) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",613686) = 613650
+	#execute set ^AX.AdminToAX("LedgerCount",703000) = 703000
+	#execute set ^AX.AdminToAX("LedgerCount",703001) = 703010
+	#execute set ^AX.AdminToAX("LedgerCount",703002) = 703010
+	#execute set ^AX.AdminToAX("LedgerCount",703003) = 703010
+	#execute set ^AX.AdminToAX("LedgerCount",703004) = 703010
+	#execute set ^AX.AdminToAX("LedgerCount",703005) = 703010
+	#execute set ^AX.AdminToAX("LedgerCount",703006) = 703010
+	#execute set ^AX.AdminToAX("LedgerCount",703100) = 703100
+]]></Implementation>
+</Method>
 </Class>