define class table_parser as custom original_alias='' declare arrstru(1) declare arrdata(1) procedure init lparameters cAlias,cCondition local cAlias,cCondition this.prepare(cAlias,cCondition) procedure prepare lparameters cAlias,cCondition local cAlias,cc select (cAlias) this.original_alias = cAlias declare cc(1) =afields(cc) acopy(cc,this.arrstru) release cc select (cAlias) if type('cCondition') <> 'C' copy to array cc acopy(cc,this.arrdata) else if cCondition <> 'EMPTY' copy to array cc for &cCondition acopy(cc,this.arrdata) endif endif enddefine function inflate lparameters oTable,cAlias,cEmpty local oTable,cAlias,cEmpty local aa(1) local bb(1) =acopy(oTable.arrstru,aa) if type('cEmpty')= 'L' &¬ passed =acopy(oTable.arrdata,bb) endif create cursor &cAlias from array aa select (cAlias) if type('cEmpty')= 'L' &¬ passed append from array bb endif oTable=.f. return .t. function deflate lparameters cAlias,cCondition local cAlias,cCondition local oTable,cAlias,cCondition oTable=createobject('table_parser',cAlias,cCondition) return oTable- Problems: