อยากได้รายงานสมุนไพรแบบนี้ครับ ไม่ทราบว่าใครพอมีบ้างครับ
หรือช่วยทำรายงานตัวนี้หน่อยครับ รบกวน อาจารย์ HosXP ทุกท่านด้วยครับ
ขอบคุณครับ
รายงานที่ ขอมี 2 ตัวใช่ไหมครับ
code รายงานตัวที่ 1 เปลี่ยน icode เป็นรายการที่ต้องการนะครับ ส่วนอาชีพ
select
concat(pt.pname,pt.fname," ",pt.lname) as fullname,vn.vn,pt.hn,pt.cid,pt.sex,vn.pttype,pt.occupation,oc.name as occupation_name,
concat(pt.addrpart," หมู่ ",pt.moopart," ต..",t3.name," อ.",t2.name," จ.",t1.name) as fulladdressname,
op.an,op.icode,op.qty,pt.birthday,year(op.rxdate)-year(pt.birthday) as age,op.rxdate,op.order_no,nd.name,vn.pdx,dx0,op.sum_price,op.doctor
from opitemrece op
left outer join patient pt on pt.hn=op.hn
left outer join thaiaddress t1 on t1.chwpart=pt.chwpart and
t1.amppart="00" and t1.tmbpart="00"
left outer join thaiaddress t2 on t2.chwpart=pt.chwpart and
t2.amppart=pt.amppart and t2.tmbpart="00"
left outer join thaiaddress t3 on t3.chwpart=pt.chwpart and
t3.amppart=pt.amppart and t3.tmbpart=pt.tmbpart
left outer join nondrugitems nd on nd.icode=op.icode
left join occupation oc on pt.occupation=oc.occupation
left outer join vn_stat vn on vn.vn=op.vn
where op.rxdate between "2007-05-01" and "2007-06-30" and op.icode in ("
3000784","3000785","3000786","3000787","3000788")
group by op.rxtime
order by op.rxdate
ส่วนตัวที่ 2 (OPD) ก็คล้ายกัน โดยไป join ตาราง opdscreen ,icd10,doctor เพิ่ม
หรือ ใช้ variable ช่วย
เช่น ดึง cc
Value := GetSQLStringData('select cc as cc from opdscreen where vn="'+ DBPipeline['vn']+'"');
ดึง doctor
Value := GetSQLStringData('select name as dname from doctor where code="'+ DBPipeline['doctor']+'"');
ลองดูนะครับ
หัวข้อ: รายงานสมุนไพร (อ่าน 14027 ครั้ง)