BMS-HOSxP Community
HOSxP => Report Exchange => ข้อความที่เริ่มโดย: โรงพยาบาลอัมพวา ที่ พฤศจิกายน 26, 2012, 11:09:47 AM
-
คือ ผม จะเพิ่มเลือกเวลา ก่อนเข้า รายงานเหมือนเลือกวันที่ ต้ิองเพิ่ม ต้องไหน อ่ะครับ
-
แก้จาก GetDateTimeDialog(date1, date2);
เป็น GetDateTimeRangeDialog(date1, date2);
ลองศึกษาจากตัวอย่างครับ
-
รอแก้แล้ว ครับ มันก็ยังขึ้น error อยู่ครับ
procedure GlobalOnCreate;
begin
stime:='02:30:00';
GetDateTimeRangeDialog(date1, date2);
bdate := FormatDateTime('yyyy-mm-dd',date1);
edate := FormatDateTime('yyyy-mm-dd',date2);
btime := FormatDateTime('hh:nn:ss',time1);
etime := FormatDateTime('hh:nn:ss',time2);
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 "'+bdate+'" and "'+edate+'" and s.vsttime between "'+btime+'" and "'+etime+'" ' +
' and o.main_dep="'+main_dep+'" and s.service6 is not null');
end;
-
btime := FormatDateTime('hh:nn:ss',date1);
etime := FormatDateTime('hh:nn:ss',date2);
-
btime := FormatDateTime('hh:nn:ss',date1);
etime := FormatDateTime('hh:nn:ss',date2);
แก้ไข เป็น date1,date2 ก็ยัง error
-
ลืม ลบ HN parameter เดิมที่ติดมากับตัวต้นฉบับ..กระมังครับ..
-
ขอบคุณครับอาจารย์ทุกท่าน