คือว่าทำไมตอนสรุปว่า ผ่าน หรือ ไม่ผ่าน ถึงไม่ตรงกับความเป็นจริงครับ (บางคนครับ) เวลาที่เก็บรายงานคือ 1 ชั่วโมง 30 นาที ครับ
แก้คำสั่งให้หน่อยครับ และถ้าครั้งต่อไปผมจะลดเวลาที่เก็บรายงาน คือ 1 ชั่วโมง 20 นาที ต้องแก้ตรงไหนครับ
procedure GlobalOnCreate;
begin
stime:='02:30:00';
แก้เป็น stime:='01:30:00' GetDateRangeDialog(date1, date2);
ds1:=formatdatetime('yyyy-mm-dd',date1);
ds2:=formatdatetime('yyyy-mm-dd',date2);
s_main_dep:= GetPickupList('select department from kskdepartment');
main_dep:= GetSQLStringData('select depcode from kskdepartment where department="'+s_main_dep+'" ');
ChangeReportSQL('select o.hn,p.pname,p.fname,p.lname,vs.age_y,k.department,p.moopart,p.tmbpart,op.bpd,op.bps,s.*,spclty.spclty,spclty.name as spclty_name,'+
' sec_to_time(time_to_sec(s.service6)-time_to_sec(o.vsttime)) as totaltime1 '+
' from ovst o '+
' left outer join patient p on p.hn = o.hn '+
' left outer join opdscreen op on op.vn = o.vn '+
' left outer join vn_stat vs on vs.vn = o.vn '+
' left outer join service_time s on s.vn =o.vn '+
{' left outer join kskdepartment k on k.depcode = o.cur_dep '+ }
' left outer join kskdepartment k on k.depcode = o.main_dep '+
' left outer join spclty on spclty.spclty = o.spclty '+
' where o.vstdate between "'+ds1+'" and "'+ds2+'" '+
' and o.main_dep="'+main_dep+'" and s.service6 is not null');
end;
และถ้าครั้งต่อไปผมจะลดเวลาที่เก็บรายงาน คือ 1 ชั่วโมง 20 นาที ต้องแก้ตรงไหนครับ
แก้เป็น stime:='01:20:00' 
หัวข้อ: ระยะเวลารอคอยแยกแผนก ตรงสรุป ไม่ตรงกัน (อ่าน 5865 ครั้ง)