دو سری جنس از یک نوع

[javan2754]

سلام. من دو سری جنس از یک نوع برای انبار خریده ام. یکی 10 تا و دیگری 20 تا. حالا یک مشتری 25 تا از این نوع می خواد. چیکار باید بکنم. اگه میشه با کد توضیح بدید. چون ممکنه متوجه نشم چطوری مثلا اگه با هم جمع کنم. چطوری؟ باید سرچ کنم؟
توی برنامم اگه درخواست کمتر از یک سری جنس باشه که جواب میده ولی اگه بیشتر باشه کم نیمکنه (از هیچکدوم) . چرا؟
کد برنامه (صفحه نمایش کد رو پیدا نکردم)
[LEFT]

DataMoD.ADOTableStore.FindField('Select * From TStore Where Min(EDate) AND IDDs = ' + txtDsID.Text);
if DataMoD.ADOTableStore.FieldValues['DSome'] > txtDSome.Text then
Begin
DataMoD.ADOTableStore.Edit;
DataMoD.ADOTableStore.FieldByName('DSome').AsStrin g := IntToStr(DataMoD.ADOTableStore.FieldByName('DSome' ).AsInteger - StrToInt(txtDSome.Text));
DataMoD.ADOTableStore.Post;
End
Else
Begin
While DataMoD.ADOTableStore.FieldValues['DSome'] > txtDSome.Text do
Begin
DataMoD.ADOTableStore.FieldByName('DSome').AsStrin g := IntToStr(DataMoD.ADOTableStore.FieldByName('DSome' ).AsInteger - StrToInt(txtDSome.Text));
BStr := DataMoD.ADOTableStore.FieldByName('DSome').AsInteg er;
DataMoD.ADOTableStore.Delete;
DataMoD.ADOTableStore.FindField('Select * From TStore Where Min(EDate) AND IDDs = ' + txtDsID.Text);
DataMoD.ADOTableStore.FieldByName('DSome').AsInteg er := DataMoD.ADOTableStore.FieldByName('DSome').AsInteg er + BStr;
End
End;