>DEFINE CLASS cadealeropts AS cursoradapter_ > > > SelectCmd = "select DealerOpts.OptsID, NVL(DealerOpts.OptionID,?getOptionID) as OptionID, NVL(DealerOpts.MakeID, "+; "?getMakeID) as MakeID, Models.ModelID as ModelID, Models.MfgName, Models.Name as ModelName, "+; "Models.ModelNmbr as ModelNmbr, Models.ModelYear as ModelYear, DealerOpts.Retail, DealerOpts.Cost, "+; "DealerOpts.Costline, DealerOpts.Type as cType, DealerOpts.StdOption from DealerOpts "+ "RIGHT JOIN Models ON DealerOpts.ModelID = Models.ModelID and DealerOpts.OptionID = ?getOptionID and "+; "DealerOpts.MakeID = ?getMakeID where cast(Models.ModelID as varchar(12)) $ (?getModelIDs)" > CursorSchema = "OptsID I, OptionID I, MakeID I, ModelID I, MfgName C(40), ModelName C(65), "+; "ModelNmbr C(20), ModelYear C(40), Retail N(10, 2), Cost N(10, 2), Costline N(10, 2),"+; " cType C(12), StdOption L(1)" > Alias = "curdealeropts" > DataSourceType = "Native" > Flags = 0 > CompareMemo = .T. > FetchMemo = .F. > SendUpdates = .T. > KeyFieldList = "OPTSID" > Tables = "DealerOpts,Models" > UpdatableFieldList = "OPTSID, OPTIONID, MAKEID, MODELID, RETAIL, COST, COSTLINE, CTYPE, STDOPTION" > UpdateNameList = "OPTSID DealerOpts.OPTSID, OPTIONID DealerOpts.OPTIONID, MAKEID DealerOpts.MAKEID, :+; "MODELIDDealerOpts.MODELID, RETAIL DealerOpts.RETAIL, COST DealerOpts.COST, "+; "COSTLINE DealerOpts.COSTLINE, CTYPE DealerOpts.Type, STDOPTION DealerOpts.STDOPTION" > BreakOnError = .T. > UseCursorSchema = .T. > UseTransactions = .T. > Name = "cadealeropts" > > > PROCEDURE AutoOpen > *** Setup code: DO NOT REMOVE > if not pemstatus(This, '__VFPSetup', 5) > This.AddProperty('__VFPSetup', 1) > This.Init() > endif > *** End of Setup code: DO NOT REMOVE > ENDPROC > > > PROCEDURE Init > *** Setup code: DO NOT REMOVE > local llReturn > do case > case not pemstatus(This, '__VFPSetup', 5) > This.AddProperty('__VFPSetup', 0) > case This.__VFPSetup = 1 > This.__VFPSetup = 2 > case This.__VFPSetup = 2 > This.__VFPSetup = 0 > return > endcase > set multilocks on > llReturn = dodefault() > *** End of Setup code: DO NOT REMOVE > *** Select connection code: DO NOT REMOVE > > local lcDBC > lcDBC = 'W:\SSS\SMNA\DATA\MNA.DBC' > if dbused(lcDBC) > set database to (lcDBC) > else > open database (lcDBC) > endif > *** End of Select connection code: DO NOT REMOVE > > *** Setup code: DO NOT REMOVE > if This.__VFPSetup = 1 > This.__VFPSetup = 2 > endif > return llReturn > *** End of Setup code: DO NOT REMOVE > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: cadealeropts >************************************************** >