Непонятная ошибка базы.(InterBase)

[Alginsky]

Есть программа Прокат автомобилей .Там в базе есть вкладка "Автомобили" и там есть три класса авто. 1. Для торжеств. 2. Для ритуальных услуг. 3. Специальный автотранспорт.
Так вот в класе "Для торжеств" добавлен две машина и я еще добавил одну просто так. А на других пусто. Но я добавил им тоже. Вот теперь в вкладке "Накладные" я продаю клиентам эти авто. Для этого я захожу в вкладку "Автомобили" и выбираю какой класс продать. Выбрал "Для торжеств" затем захожу в "Накладные" и присвою (продам ему, запишу на него) один из авто из класса "Для торжеств".
Все норм. Вот если выберу другой класс товара в вкладке "Автомобили" и хочу продать его он не находит автомобили хотя я там добавил автомобилей! Что за фигня так и не понял. Новые автомобили добавляются и можно их продать только в классе "Для торжеств". А на других только добавляется но не продается. Как понять. Помогите пожалуйста. кровь из носа. сроки сжимают
По скринщотам не поймете. Вот ссылка на видео программы. Посмотрите плииз http://upwap.ru/3035475

Если кто может помочь скину проект.

[Нурхан]

_______-__--
-_-_

[Yurk@]

судя с видео проблема решаема. показывай код котрый выбирает авто на форме с накладными - будем смотреть

[Alginsky]

вот код маленькой формы где выбираешь авто и количество.

procedure TSaleForm.FormShow(Sender: TObject);
var
ActiveRec:string[255];
begin
case Tag of
0: Caption:='Операция: Передача по накладной';
end;
if not(dtm.wares.Active) or (dtm.wares.RecordCount-1=0) then exit;
ActiveRec:=dtm.wares.FieldByName('W R_NAME').Value;
try
Edt1.Items.Clear;
if not (dtm.wares.Bof) then
dtm.wares.First;
with dtm.wares do
begin
while not Eof do
begin
Edt1.Items.Add(dtm.wares.FieldByNam e('WR_NAME').Value);
Next;
end;
end;
Edt1.Text:=ActiveRec;
Edt1.OnClick(Sender)
except
abort;
exit
end;
OKBtn.Enabled:=false;
end;

procedure TSaleForm.Edt1KeyPress(Sender: TObject; var Key: Char);
begin
abort;
Key:=#0;
exit
end;

procedure TSaleForm.Edt1Click(Sender: TObject);
begin
try
dtm.wares.Locate('WR_NAME',Edt1.Tex t,[]);
edt2.MaxValue:=dtm.wares.FieldByNam e('WR_COUNT').AsInteger;
if (Edt2.MaxValue=0) then
begin
Beep;
ShowMessage('Данный вид товара закончилась!');
Beep;
Close
end;
except
abort;
exit
end;
OKEn
end;

procedure TSaleForm.OKEn;
begin
if (Length(Edt1.Text)<1) or
(Edt2.Value=0) then
OKBtn.Enabled:=false
else OKBtn.Enabled:=true
end;

procedure TSaleForm.Edt1Change(Sender: TObject);
begin
OKEn
end;

procedure TSaleForm.edt2Click(Sender: TObject);
begin
OKEn
end;

procedure TSaleForm.edt2Change(Sender: TObject);
begin
OKEn
end;

end.