


*!*							Select Properties  As PropContent ,;
*!*									Methods  As MethodContent ,;
*!*									Cast(ObjName As Varchar(200))  as ObjName ,;
*!*									Cast(Class As Varchar(200))  as ClassType ,;
*!*									Cast(BaseClass As Varchar(200))  as BaseObjectType,;
*!*									 PARENT  as OBJPARENT ;
*!*									From tdObjectTable ;
*!*								where Nvl(BaseClass,"")=="form" ;
*!*								INTO Cursor ltObject
*!*								 

*!*							Scatter Memvar Fields PropContent,MethodContent ,ObjName,ClassType ,OBJPARENT ,BaseObjectType MEMO 

*!*							SELECT ltObject
*!*							USE 




*!*							INSERT INTO  VFPExport (FULLNAME , ;
*!*							                        FILENAME , ;
*!*						                            FILEPATH , ;
*!*						                            FILEEXT , ;
*!*						                            OBJNAME , ;
*!*						                            OBJTYPE , ;
*!*						                            PROPERTIES , ;
*!*						                            SOURCE , ;
*!*						                            BASEOBJTYPE ,;
*!*						                            OBJPARENT ;
*!*							                         );
*!*							             VALUES (lcPath , ;
*!*							             		 JUSTFNAME(m.Filename) ,;
*!*							             		 JUSTPATH(lcPath ),;
*!*							             		 JUSTEXT(m.Filename) ,;
*!*							             		 m.ObjName ,;
*!*							             		 m.ClassType,;
*!*							             		 m.PropContent,;
*!*							             		 m.MethodContent ,;
*!*							             		 m.BaseObjectType ,;
*!*							             		 m.OBJPARENT  ;
*!*							             		 )
*!*							             		 