>> >>PUBLIC oCustomerLevel >>oCustomerLevel = CREATEOBJECT("cacustomerlevel") >>oCustomerLevel.CursorFill() >>Browse >>*-- Make some changes here >>*-- Those are sent inmediately to the SQL Server table! >>*-- I want to 'push' the changes with tableupdate() not sending them automatically. >>************************************************** >>*-- Class: cacustomerlevel (c:\documents and settings\mzambrano\my documents\campuscare 2007\vfpcode\aspdotnetstorefront.vcx) >>*-- ParentClass: cursoradapter >>*-- BaseClass: cursoradapter >>*-- Time Stamp: 10/11/07 05:47:00 PM >>* >>DEFINE CLASS cacustomerlevel AS cursoradapter >> >> >> Tag = "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=XXXXX;Data Source=YYYY;" >> Height = 22 >> Width = 23 >> SelectCmd = "select * from CustomerLevel" >> CursorSchema = "CUSTOMERLEVELID I, CUSTOMERLEVELGUID C(38), NAME M, LEVELDISCOUNTPERCENT Y, " + ; >> "LEVELDISCOUNTAMOUNT Y, LEVELHASFREESHIPPING I, LEVELALLOWSQUANTITYDISCOUNTS I, LEVELHASNOTAX I," + ; >> " LEVELALLOWSCOUPONS I, LEVELDISCOUNTSAPPLYTOEXTENDEDPRICES I, LEVELALLOWSPO I, DISPLAYORDER I," + ; >> " PARENTCUSTOMERLEVELID I, SENAME C(100), EXTENSIONDATA M, DELETED I, CREATEDON T, SKINID I, TEMPLATENAME C(50)" >> Alias = "curcustomerlevel" >> DataSourceType = "ADO" >> Flags = 0 >> FetchSize = -1 >> KeyFieldList = "CUSTOMERLEVELID" >> Tables = "CustomerLevel" >> >> >> >> UpdatableFieldList = "CUSTOMERLEVELGUID, NAME, LEVELDISCOUNTPERCENT, LEVELDISCOUNTAMOUNT, LEVELHASFREESHIPPING,"+; >> " LEVELALLOWSQUANTITYDISCOUNTS, LEVELHASNOTAX, LEVELALLOWSCOUPONS, LEVELDISCOUNTSAPPLYTOEXTENDEDPRICES," + ; >> " LEVELALLOWSPO, DISPLAYORDER, PARENTCUSTOMERLEVELID, SENAME, EXTENSIONDATA, DELETED, CREATEDON, SKINID," + ; >> " TEMPLATENAME" >> >> UpdateNameList = "CUSTOMERLEVELID CustomerLevel.CUSTOMERLEVELID, CUSTOMERLEVELGUID CustomerLevel.CUSTOMERLEVELGUID, " + ; >> "NAME CustomerLevel.NAME, LEVELDISCOUNTPERCENT CustomerLevel.LEVELDISCOUNTPERCENT, " + ; >> "LEVELDISCOUNTAMOUNT CustomerLevel.LEVELDISCOUNTAMOUNT, LEVELHASFREESHIPPING " + ; >> "CustomerLevel.LEVELHASFREESHIPPING, LEVELALLOWSQUANTITYDISCOUNTS " + ; >> "CustomerLevel.LEVELALLOWSQUANTITYDISCOUNTS, LEVELHASNOTAX CustomerLevel.LEVELHASNOTAX," + ; >> " LEVELALLOWSCOUPONS CustomerLevel.LEVELALLOWSCOUPONS, LEVELDISCOUNTSAPPLYTOEXTENDEDPRICES " + ; >> "CustomerLevel.LEVELDISCOUNTSAPPLYTOEXTENDEDPRICES, LEVELALLOWSPO CustomerLevel.LEVELALLOWSPO," + ; >> " DISPLAYORDER CustomerLevel.DISPLAYORDER, PARENTCUSTOMERLEVELID CustomerLevel.PARENTCUSTOMERLEVELID," + ; >> " SENAME CustomerLevel.SENAME, EXTENSIONDATA Address.EXTENSIONDATA, DELETED Address.DELETED, " + ; >> "CREATEDON Address.CREATEDON, SKINID CustomerLevel.SKINID, TEMPLATENAME CustomerLevel.TEMPLATENAME" >> >> Name = "cacustomerlevel" >> >> >> 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 loConnDataSource >> loConnDataSource = createobject('ADODB.Connection') >> ***<DataSource> >> loConnDataSource.ConnectionString = [Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;In] + ; >> [itial Catalog=AspDotNetStorefront;Data Source=mossfarm;] >> ***</DataSource> >> loConnDataSource.Open() >> This.DataSource = createobject('ADODB.RecordSet') >> >> THIS.DATASOURCE.CursorType = 3 && adOpenStatic >> >> This.DataSource.CursorLocation = 3 && adUseClient >> This.DataSource.LockType = 3 && adLockOptimistic >> This.DataSource.ActiveConnection = loConnDataSource >> *** 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 >> >> >> 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 >> >> >>ENDDEFINE >>* >>*-- EndDefine: cacustomerlevel >>************************************************** >>