ช่วยดูรายงานให้หน่อยครับ

[bbbas]

เป็นรายงานการใช้ยาทุกตัวของโรงพยาบาลครับ แต่ปัญหาคือยาบางตัวไม่มีข้อมูลครับ ทั้ง ๆ ที่ดูจากใบสั่งยาแล้วก็มีการสั่งใช้ครับ ไม่ทราบว่ารายงานต้องปรับตรงไหน หรือขอคำแนะนำ หรือที่ไหนมีฟอร์มรายงานแบบนี้ ผมขอความอนุเคราะห์ด้วยน่ะครับ
ตัวอย่างโค้ดครับ
GetDateRangeDialog(date1, date2);
     ds1:= FormatDatetime('yyyy-mm-dd', Date1);
     ds2:= FormatDatetime('yyyy-mm-dd', Date2);
     p1:= GetPickupList('select name from drugitems ');
     if p1 <>'' then
     begin
            p2:= GetSQLStringData('select icode from drugitems where name = "'+p1+'"');
           ChangeReportSQL('select o.hn,concat(p.pname,"",p.fname," ",p.lname) as fullname, '+
'du.code,o.qty as cc,(case when  o.an <> "" then "IPD" else "OPD" end) as type ,o.an,o.rxdate,p.cid from opitemrece o   '+
'left outer join drugitems d on d.icode = o.icode                            '+
'left outer join patient p on p.hn = o.hn                                      '+
'left outer join drugusage du on du.drugusage = o.drugusage                      '+
'where o.rxdate between "'+ds1+'" and "'+ds2+'"                                 '+
' and o.icode = "'+p2+'"    '+
' and o.qty > 0  '+
'order by o.rxdate ASC');
     end;

[golf_win]

พี่โก้ทำไว้เมื่อนานมาแล้วครับ