DEFINE CLASS PriceWS AS Custom OLEPUBLIC isOpen= .F. cDir= "" oDS= .F. FUNCTION Init LOCAL oINI AS IniAccess OF PriceWS, ; cDir AS String SET CLASSLIB TO PriceWS SET DATE TO BRITISH SET RESOURCE OFF SET EXCLUSIVE OFF SET CPDIALOG OFF SET DELETED ON SET EXACT OFF SET SAFETY OFF SET REPROCESS TO 2 SECONDS this.oDS= CREATEOBJECT("Session") SET DATASESSION TO this.oDS.DataSessionID oINI= CREATEOBJECT("IniAccess") oINI.getinientry(@cDir, "MySection", "Dir", "MyIni.ini") m.cDir= ADDBS(m.cDir) IF !EMPTY(m.cDir) this.cDir = m.cDir this.isOpen= .T. USE (m.cDir + "MyTable.dbf") IN 0 SHARED ORDER MyOrder ENDIF ENDFUNC FUNCTION getString AS String RETURN "String" ENDFUNC ENDDEFINE