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")