Garanti kontrol yapma

[Ertuğrul2025]

Hayırlı günler formda stok ve seri numarası grince daha önce gelip gelmediğini görüyorum ve
aşağıdaki kod ile geliş tarihini ve garanti bitiş tarihini karşılaştırıp E13'e 'GARANTİSİ DEVAM EDİYOR'
veya '-' yazdırıyorum.
Hataya sebep olan ise stok ve seri girince daha önce gelmemiş ise kayıt görünmüyor. Böylelikle Edit4
boş olduğu için komut hata veriyor.
İstediğim stok ve seri kontrolünde daha önce gelmemiş ise E13.text:= '-' yazsın hata vermesin.

procedure TForm1.Button3Click(Sender: TObject);
var
Tarih1, Tarih2 : TDate;
begin
Tarih1:= StrToDate(E11.text); // İlk tarih değer
Tarih2:= StrToDate(Edit4.Text); // İkinci tarih değer
if (Tarih2 - Tarih1)>0 then
E13.text:= 'GARANTİSİ DEVAM EDİYOR' ;
Edit3.Text:=ADOQuery_GarantiB1.Text;
Edit4.Text:=ADOQuery_GarantiGarantiBitis.Text;
begin
if (Tarih2 - Tarih1)<0 then
E13.text:= '-' ;

[ertank]

Merhaba,

Filtreyi açtıktan sonra

Kod: Tümünü seç

if ADOQuery_Garanti.RecordCount > 0 then
begin
...
end;

Şeklinde bir kontrol ekleyebilirsiniz.

[Ertuğrul2025]

Merhaba,

Filtreyi açtıktan sonra

Kod: Tümünü seç

if ADOQuery_Garanti.RecordCount > 0 then
begin
...
end;

Şeklinde bir kontrol ekleyebilirsiniz.

Teşekkür ediyorum hocam