AsString :=DM.TovarTable2.FieldByName(laquo;key_tovararaquo;).AsString;.XranenieTable.FieldByName(laquo;countraquo;).AsInteger :=StrToInt (Edit1.Text) ;. XranenieTable.Post;:=false; .Xranenie2Table.First; DM.Xranenie2Table.FieldByName ( key_group ). AsInteger=DM.GroupTovarTable.FieldByName ( key_group ). AsInteger then:=true; .Xranenie2Table.NextDM.Xranenie2Table.Eof; not flag then.Xranenie2Table.Insert; .Xranenie2Table.FieldByName ( key_filial ). AsInteger:=DM.Xranenie1Table.FieldByName(laquo;key_filialraquo;).AsInteger;.Xranenie2Table.FieldByName(laquo;key_groupraquo;).AsInteger :=DM.GroupTovarTable.FieldByName(laquo;key_groupraquo;).AsInteger;.Xranenie2Table.Post;;;;;TXranenieForm.BitBtn2Click(Sender: TObject);
begin;.
