> > Cver_code=thisform.service.configuration.text5.Value > > SQLEXEC(gnConnHandle,'SELECT ser_code,ser_libelle,ser_nom,; > ser_creation,ser_numero,ser_domino,; > ser_etat,cli_code ; > FROM ; > service service ; > WHERE service.ser_code=?Cver_code','cursservice') > >CURSORSETPROP("Tables","service") >CURSORSETPROP("KeyFieldList","ser_code") >CURSORSETPROP("UpdatableFieldList",; "ser_libelle,ser_nom,ser_creation,ser_numero,"+; "ser_domino,ser_etat,cli_code","cursservice") >CURSORSETPROP("UpdateNameList","ser_libelle service.ser_libelle,"+; > "ser_nom service.ser_nom,"+; > "ser_creation service.ser_creation,"+; > "ser_numero service.ser_numero,"+; > "ser_domino service.ser_domino,"+; > "ser_etat service.ser_etat,"+; > "cli_code service.cli_code","cursservice") >CURSORSETPROP("SendUpdates",.T.,"cursservice") >CURSORSETPROP("WhereType",3,"cursservice") >CURSORSETPROP("BatchUpdateCount",5,"cursservice") >CURSORSETPROP("Buffering",5,"cursservice") > > > SELECT cursservice > REPLACE cursservice.ser_nom WITH thisform.service.configuration.text2.Value > REPLACE cursservice.ser_numero WITH thisform.service.configuration.text3.Value > REPLACE cursservice.ser_domino WITH thisform.service.configuration.text4.Value > REPLACE cursservice.ser_etat WITH thisform.service.configuration.combo1.Value > =TABLEUPDATE(.T.,.T.,"cursservice") > >Include ser_code in updatenamelist.