>IF !TABLEUPDATE(0,.f.,"NominaPopular") >lcError='' >Aerror(arrCheck) >For ix=1 to 7 > lcError = lcError+trans( arrCheck [ix])+ chr(13) >Endfor >Messagebox(lcError,0,'Error def.') > WAIT WINDOW "NO SE pudo Actualiza La Tabla 1" > SQLROLLBACK(Thisform.Connhandle) > RETURN 0 >ELSE >Cetin
>>IF !TABLEUPDATE(0,.f.,"NominaPopular") >> WAIT WINDOW "NO SE pudo Actualiza La Tabla 1" >> SQLROLLBACK(Thisform.Connhandle) >> RETURN 0 >>ELSE >>>>
>>>>CURSORSETPROP("UpdateNameList",; >>>> "fldCodigoEmpleado tbNomina.fldCodigoEmpleado,; >>>> fldNumeroCta tbNomina.fldNumeroCta,; >>>> fldMonto tbNomina.fldMonto,; >>>> fldTipoRegistro tbNomina.fldTipoRegistro,; >>>> fldNombreEmp tbNomina.fldNombreEmp",; >>>> cNombreCursor) >>>>CURSORSETPROP("WhereType",3,cNombreCursor) >>>>>>>>
>>>>>SQLExec(lnHandle,'select * from dbo.authors','v_authors') >>>>>CursorSetProp('KeyFieldList','au_id','v_authors') >>>>>CursorSetProp('WhereType',1,'v_authors') >>>>>CursorSetProp('Tables','authors','v_authors') >>>>> >>>>>CursorSetProp("UpdateNameList", ; >>>>> "au_id authors.au_id,"+; >>>>> "au_lname authors.au_lname,"+; >>>>> "au_fname authors.au_fname,"+; >>>>> "contract authors.contract",'V_authors') >>>>> >>>>>CursorSetProp('UpdatableFieldList','au_fname,au_lname,contract','v_authors') >>>>>CursorSetProp('SendUpdates',.T.,'v_authors') >>>>>CursorSetProp('Buffering',5,'v_authors') >>>>>In updatenamelist fields appear in pairs, on the left is your fieldname and on the right basetable's fieldname. ie:
>>>>>SQLExec(lnHandle,'select FirstName as Fname, LastName as Lname'+; >>>>>' from ServerTable...', 'v_myview) >>>>> >>>>>CursorSetProp("UpdateNameList", ; >>>>> "Fname ServerTable.FirstName,"+; >>>>> "Lname ServerTable.LastName",'V_myView') >>>>>Cetin