var
Vcds,Ccds:TClientDataset;
Fdate:String;
begin
Vcds:=TClientDataset.Create(nil);
Ccds:=TClientDataset.Create(nil);
Vcds.Data:=HOSxP_Getdataset('select vstdate from vn_stat where vn="'+GetGlobalValue('VN')+'"');
Fdate:=Formatdatetime('yyyy-mm-dd',Vcds.FieldByName('vstdate').AsDatetime);
Ccds.Data:=HOSxP_Getdataset('select count(u.vn) as vnc from universal_head u'+
' left outer join vn_stat v on v.vn=u.vn'+
' where u.vn="'+GetGlobalValue('VN')+'" and v.vstdate="'+Fdate+'"'+
' group by u.hn,u.vn,v.vstdate');
if Ccds.FieldByName('vnc').AsInteger>0 then
begin
showmessage('Çѹ·Õè : '+Vcds.FieldByName('vstdate').AsString+' ¼Ùé»èÇÂä´éÃѺ¡ÒÃŧ·ÐàºÕ¹áÅéǤÃѺ');
end;
end;