> >o=CREATEOBJECT('cursoradapter') >o.SelectCmd =; >'SELECT Dactauth.actauth_id, '+; >'Dactauth.actsect_id, '+; >'Dactauth.fund_id, '+; >'Dactauth.counsel_id, '+; >'Dactauth.date AS AuthorizationDate, '+; >'Dactauth.amount AS AuthorizationAmount, '+; >'Dactauth.allocamt AS AllocationAmount, '+; >'Dactauth.allocdate AS AllocationDate, '+; >'Dactauth.closed, '+; >'Dactauth.comments, '+; >'Dactauth.insdttm, '+; >'Dactauth.insuser_id, '+; >'Dactauth.upddttm, '+; >'Dactauth.upduser_id, '+; >'Dfund.fundno, '+; >'Dfund.fintype_id, '+; >'Dcounsel.bndconcd, '+; >'Dact.act, '+; >'Dactsect.sectname AS sectionname, '+; >'Dactsect.amount AS sectionamount, '+; >'Dact.act_id '+; >' FROM '+; >' kba_data!dact '+; >' INNER JOIN kba_data!dactsect '+; >' ON Dact.act_id = Dactsect.act_id '+; >' INNER JOIN kba_data!dactauth '+; >' ON Dactsect.actsect_id = Dactauth.actsect_id '+; >' INNER JOIN kba_data!dfund '+; >' ON Dfund.fund_id = Dactauth.fund_id '+; >' INNER JOIN kba_data!dcounsel '+; >' ON Dcounsel.counsel_id = Dactauth.counsel_id ' > >o.UpdatableFieldList =; >'actauth_id,'+; >'actsect_id,'+; >'fund_id,'+; >'counsel_id,'+; >'date, '+; >'amount, '+; >'allocamt, '+; >'allocdate,'+; >'closed,'+; >'comments,'+; >'insdttm,'+; >'insuser_id,'+; >'upddttm,'+; >'upduser_id' > > >o.UpdateNameList=; >'actauth_id Dactauth.actauth_id,'+; >'actsect_id Dactauth.actsect_id,'+; >'fund_id Dactauth.fund_id,'+; >'counsel_id Dactauth.counsel_id,'+; >'date Dactauth.date ,'+; >'amount Dactauth.amount ,'+; >'allocamt Dactauth.allocamt ,'+; >'allocdate Dactauth.allocdate ,'+; >'closed Dactauth.closed,'+; >'comments Dactauth.comments,'+; >'insdttm Dactauth.insdttm,'+; >'insuser_id Dactauth.insuser_id,'+; >'upddttm Dactauth.upddttm,'+; >'upduser_id Dactauth.upduser_id,'+; >'fundno Dfund.fundno,'+; >'fintype_id Dfund.fintype_id,'+; >'bndconcd Dcounsel.bndconcd,'+; >'act Dact.act,'+; >'sectname Dactsect.sectname ,'+; >'amount Dactsect.amount ,'+; >'act_id Dact.act_id' > > o.DataSourceType='NATIVE' > o.Alias="cc1" > o.Tables="dact,dactsect,dactauth,dfund,dcounsel" > o.KeyFieldList='ACTAUTH_ID' > o.BufferModeOverride=5 > o.AllowInsert=.t. > o.AllowDelete=.t. > o.AllowUpdate=.t. > >IF o.CursorFill() > >BROWSE > >ENDIF >>