Index: APPS/TRANSP/enu/TransportFirma.cls.xml
===================================================================
diff -u -r33074 -r33095
--- APPS/TRANSP/enu/TransportFirma.cls.xml	(.../TransportFirma.cls.xml)	(revision 33074)
+++ APPS/TRANSP/enu/TransportFirma.cls.xml	(.../TransportFirma.cls.xml)	(revision 33095)
@@ -25,6 +25,13 @@
 <Implementation><![CDATA[	Quit "DHL"
 ]]></Implementation>
 </Method>
+
+<Method name="AsList">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.ListbuildIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListbuildIterator).%New($ListFromString(VALUELIST,";"))
+]]></Implementation>
+</Method>
 </Class>