//integer li_cantidad , id
//datetime v_fecha
//
//
//v_fecha = datetime (em_fnac.text)
//
//id = integer(sle_idpersonal.text)
//
////aqui verificamos si ya existe ese ID
//select count(*)
//into :li_cantidad
//from Personal
//where IdPersonal = :id;
//
//if li_cantidad > 0 then
////Ya existe el producto
//
// DECLARE ActualizarPersonal PROCEDURE FOR ActualizarPersonal
// @IdPersonal = :id,
//// @IdUsuario = :idu,
// @DNI = :sle_dni.text,
// @Nombre = :sle_nombre.text,
// @Apellidos = :sle_apellidos.text,
// @FNac = :v_fecha,
// @Fono = :sle_telefono.text,
// @Email = :sle_email.text,
// @Direccion = :sle_direccion.text ;
//Execute ActualizarPersonal;
//wf_verificasql( )
//messagebox ("Mensaje", "Datos Actualizados")
//else
//
////El ID no existe
//
// DECLARE InsertarPersonal PROCEDURE FOR InsertarPersonal
// @IdPersonal = :id,
//// @IdUsuario = :idu,
// @DNI = :sle_dni.text,
// @Nombre = :sle_nombre.text,
// @Apellidos = :sle_apellidos.text,
// @FNac = :v_fecha,
// @Fono = :sle_telefono.text,
// @Email = :sle_email.text,
// @Direccion = :sle_direccion.text ;
//Execute insertarPersonal;
//wf_verificasql( )
//messagebox ("Mensaje", "Personal Registrado")
//end if
//
//cb_modificar.enabled=true
//cb_eliminar.enabled=true
//cb_nuevo.enabled=true
//cb_salir.enabled=true
//cb_buscar.enabled=true
//cb_guardar.enabled=false
USO PB 9 CON SQL SERVE 2000