
Kod: Tümünü seç
begin
if (DBEdit14.Text<>'') then begin
while not dm2.sevdetaildataset1.Eof do
begin
if dm2.sevdetaildataset1.FieldByName('URETSON_FISNO').AsString=DBEdit14.Text then
begin
ShowMessage('Aynı fisno daha önce girilmiş');
ShowMessage('Lütfen önce URETSON_FISNOYU kontrol ediniz');
exit;
end;
dm2.sevkdetailquery1.Next;
end;