[naty_prog]

hola amigos, les comento que yo tengo un problema con este mensaje. en mi sistema tengo la opcion de habilitar carreras que he eliminado,con sus planes y materias.el problema surge cuando quiero habilitarlos.este es el codigo del bitbtn para habilitar dichas carreras:

Código Delphi [-]
procedure TForm_carrera.BitBtn1Click(Sender: TObject);
begin
  inherited;
  DM.IBDataSet_carrera.Open;
 if (dm.IBDataSet_carrera.Active )then
   begin
    DM.IBDataSet_carrera.Locate('id_carrera',DM.IBQuery_carreraID_carrera.Value,[]);
    DM.IBDataSet_plan_estudio.Locate('id_pe',DM.IBQuery_plan_estudioID_PE.Value,[]);
    DM.IBDataSet_materia.Locate('id_materia',DM.IBQuery_materiaID_MATERIA.Value,[]);

    DM.IBDataSet_carrera.Edit;
    DM.IBDataSet_plan_estudio.Edit;
    DM.IBDataSet_materia.Edit;

    DM.IBDataSet_carreraESTADO.Value:=1;
    DM.IBDataSet_plan_estudioESTADO.Value:=1;
    DM.IBDataSet_materiaESTADO.Value:=1;

    DM.IBDataSet_carrera.Post;
    DM.IBDataSet_plan_estudio.Post;
    DM.IBDataSet_materia.Post;

    DM.IBTransaction_Sistema.CommitRetaining;
    DM.IBQuery_carrera.Close;
    DM.IBQuery_carrera.Open;
    DM.IBQuery_plan_estudio.Close;
    DM.IBQuery_plan_estudio.Open;
    DM.IBQuery_materia.Close;
    DM.IBQuery_materia.Open;

   end;
 end;

no se porqué, ni se me ocurre como puedo hacer para que el ibdataset_carrera, ibdataset_plan_estudio e ibdataset_materia, estén listos para poder habilitar los registros.

saludos!!!!