Index: APPS/TRANSP/Transsmart/impl/Etiket.cls.xml =================================================================== diff -u -r59689 -r59690 --- APPS/TRANSP/Transsmart/impl/Etiket.cls.xml (.../Etiket.cls.xml) (revision 59689) +++ APPS/TRANSP/Transsmart/impl/Etiket.cls.xml (.../Etiket.cls.xml) (revision 59690) @@ -36,7 +36,6 @@ #dim Reference As %String = RitID_ConcatineerSymboolReference_Uitlevering Quit Reference - ///Quit "24851X303698" ]]> @@ -67,11 +66,8 @@ Set ZlpEtiketten = ##class(%ListOfObjects).%New() set itLijstPackages = ##class(TECH.ListIterator).%New(Response.packages) // opgelet packages is lowercase dus zo behouden - Do ##class(Tools.Wlip).%New(43).String("count ZlpEtiketten " _ ZlpEtiketten.Count()) - while itLijstPackages.HasNext() { #dim ZlpLabelData As %String = itLijstPackages.Next() - Do ##class(Tools.Wlip).%New(43).String(ZlpLabelData) Do ZlpEtiketten.Insert(ZlpLabelData) }