//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