Function glGetID(Object) Export
	objMetaDataWork = CreateObject("MetaDataWork");
	ID	= Left(Right(ValueToStringInternal(Object), 15 ), 13 );
	Str1= objMetaDataWork.IntToBase(TrimAll(Left(ID, 10 )), 36 );
	Str2= Right(ID, 3 );
	For i =  1  To  6  - StrLen(Str1) Do
		Str1 = " " + Str1;
	EndDo;
	For i =  1  To  3  - StrLen(Str2) Do
		Str2 = Str2 + " ";
	EndDo;  
	ID	= Str1 + Str2; 
	
	Return "'" + ID + "'";
EndFunction