restriccion al momento de hacer insert

[el_barto]

Hola foro:

Esta es la solucion que tengo para mi problemilla:

Código Delphi [-]
 
with ibdataset1 do begin 
  open; 
     while not Eof do 
    begin 
       if IBdataset1.FieldByName('flag_subcomp').AsInteger = 1 then 
        begin 
            unit1.var1 := ibdataset1.fieldbyname('item_subcomp').AsString; 
            unit1.var2 := ibdataset1.fieldbyname('codigo_comp').AsString; 
            // Ibdataset2.InsertSQL.Clear; 
            IBDataset2.Close; 
            IBdataset2.InsertSQL.Add('insert into prod_comp(codigo_prod, codigo_comp, item_subcomp, item_subprod) values('+Quotedstr(unit1.var3)+','+Quotedstr(unit1.var2)+','+Quotedstr(unit1.var1)+','+Quotedstr(uni  t1.var4)+')'); 
            IBDataset2.Open; 
            IBDataset2.Active:=true; 
            Next; 
        end 
      else 
          Next 
  end; 
    Ibdataset2.ApplyUpdates; 
    Ibtransaction1.Commit; 
    IBdataset2.Active := True; 
end;

que opinan????, tengo un problemilla y es que no me esta guardando sera que debo hacer algo mas??? o quitarle algo???, estoy usando IBDataset.

Recorro el ibdataset que es donde modifico flag y los que tengan en el campo flag 1 los guarda en el ibdataset2.