ผู้เขียน หัวข้อ: ถามเกี่ยวกับ GetPickupList  (อ่าน 5256 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ panus_t

  • Hero Member
  • *****
  • กระทู้: 2,368
  • Respect: +8
    • ดูรายละเอียด
ถามเกี่ยวกับ GetPickupList
« เมื่อ: ตุลาคม 12, 2011, 15:02:09 PM »
0
clinic:=GetPickupList('select name from clinic order by name');

ตรงนี้แสดงรายชื่อ Clinic ให้ผู้ใช้งานเลือก แล้วถ้าต้องการค่ารหัส clinic ที่ผู้ใช้เลือกทำไงครับ

ChangeReportSQL('select o.hn,o.vstdate,o.nextdate,o.nexttime,o.nexttime_end,o.clinic,c.name,o.depcode,k.department,o.doctor,d.name,o.app_user, '
+' concat(p.addrpart," ËÁÙè ",p.moopart," ",t.full_name) as addr,o.note '
+' from oapp o '
+' left outer join vn_stat v on v.vn=o.vn '
+' left outer join thaiaddress t on t.addressid=v.aid '
+' left outer join patient p on p.hn=o.hn '
+' left outer join clinic c on c.clinic=o.clinic '
+' left outer join kskdepartment k on k.depcode=o.depcode '
+' left outer join doctor d on d.code=o.doctor '
+' where o.nextdate between "'+ds1+'" and "'+ds2+'" and  o.clinic="018" ');
โรงพยาบาลเสิงสาง จ.นครราชสีมา (ขนาด  60  เตียง ปี2554)  ขึ้นระบบโดยทีมงาน BMS  เมื่อเดือนเมษายน 2551
ก่อนหน้านั้นขึ้นระบบเมื่อ 07/07/07 ฤกษ์ดี  Master Server  IBM System x3500M4  RAM ECC 24 GB. HardDisk SAS 450x3 GB. ServerRAID M1100 Series Zero RAID5  OS:CentOS 6.4  MySQLPercona : 5.5.30-30.1

ออฟไลน์ BMS-Inventory Team

  • Newbie
  • *
  • กระทู้: 12
  • Respect: 0
    • ดูรายละเอียด
Re: ถามเกี่ยวกับ GetPickupList
« ตอบกลับ #1 เมื่อ: ตุลาคม 12, 2011, 15:17:42 PM »
0
ถ้าต้องการแทนค่ารหัสคลินิคในคำสั่ง SQL ก็ต้องสร้างตัวแปรเพิ่มขึ้นมาอีก 1 ตัวเพื่อเอาไว้รับค่าที่เป็นรหัสคลินิคจากการเลือกของ user แล้วจึงนำตัวแปรนั้นไปแทนค่าในคำสั่งหลักค่ะ ตัวอย่างนะคะ

clinic:=GetPickupList('select name from clinic order by name');
code:=GetSQLStringData('select clinic from clinic where name="'+clinic+'"')

ChangeReportSQL('select o.hn,o.vstdate,o.nextdate,o.nexttime,o.nexttime_end,o.clinic,c.name,o.depcode,k.department,o.doctor,d.name,o.app_user, '
+' concat(p.addrpart," ËÁÙè ",p.moopart," ",t.full_name) as addr,o.note '
+' from oapp o '
+' left outer join vn_stat v on v.vn=o.vn '
+' left outer join thaiaddress t on t.addressid=v.aid '
+' left outer join patient p on p.hn=o.hn '
+' left outer join clinic c on c.clinic=o.clinic '
+' left outer join kskdepartment k on k.depcode=o.depcode '
+' left outer join doctor d on d.code=o.doctor '
+' where o.nextdate between "'+ds1+'" and "'+ds2+'" and  o.clinic="'+code+'" ');
BMS-Inventory Team
Bangkok Medical Software Co.,Ltd.
เลขที่ 2 ชั้นที่ 2 ซอยสุขสวัสดิ์ 33
ราษฎร์บูรณะ
กรุงเทพฯ
Thailand
10140

ติดต่อ:086-3364219

ออฟไลน์ panus_t

  • Hero Member
  • *****
  • กระทู้: 2,368
  • Respect: +8
    • ดูรายละเอียด
Re: ถามเกี่ยวกับ GetPickupList
« ตอบกลับ #2 เมื่อ: ตุลาคม 12, 2011, 15:43:38 PM »
0
รบกวนแก้ไขตัวรายงานให้หน่อยนะครับ เพราะ
ตอนนี้ผมย้ายคำสั่ง
ChangeReportSQL('select o.hn,concat(p.pname,p.fname," ",p.lname) as pt_name,o.vstdate,o.nextdate,o.nexttime,o.nexttime_end,o.clinic,c.name,o.depcode,k.department,o.doctor,d.name,o.app_user, '
+' concat(p.addrpart," หมู่ ",p.moopart," ",t.full_name) as addr,o.note '
+' from oapp o '
+' left outer join vn_stat v on v.vn=o.vn '
+' left outer join thaiaddress t on t.addressid=v.aid '
+' left outer join patient p on p.hn=o.hn '
+' left outer join clinic c on c.clinic=o.clinic '
+' left outer join kskdepartment k on k.depcode=o.depcode '
+' left outer join doctor d on d.code=o.doctor '
+' where o.nextdate between "'+ds1+'" and "'+ds2+'" and  o.clinic="'+clinic+'" ');

มาที่ช่อง SQL เป็น
select o.hn,concat(p.pname,p.fname," ",p.lname) as
pt_name,o.vstdate,o.nextdate,o.nexttime,o.nexttime_end,o.clinic,c.name,o.depcode,k.department,o.doctor,d.name,o.app_user,
concat(p.addrpart," ËÁÙè ",p.moopart," ",t.full_name) as addr,o.note
from oapp o
left outer join vn_stat v on v.vn=o.vn
left outer join thaiaddress t on t.addressid=v.aid
left outer join patient p on p.hn=o.hn
left outer join clinic c on c.clinic=o.clinic
left outer join kskdepartment k on k.depcode=o.depcode
left outer join doctor d on d.code=o.doctor
where o.nextdate between "2011-10-13" and "2011-10-13" and  o.clinic="018"

แทน select  "1" as cc

เพื่อที่ต้องการให้ข้อมูลที่ Select สามารถส่งออกเป็น Excel ได้ครับ
โรงพยาบาลเสิงสาง จ.นครราชสีมา (ขนาด  60  เตียง ปี2554)  ขึ้นระบบโดยทีมงาน BMS  เมื่อเดือนเมษายน 2551
ก่อนหน้านั้นขึ้นระบบเมื่อ 07/07/07 ฤกษ์ดี  Master Server  IBM System x3500M4  RAM ECC 24 GB. HardDisk SAS 450x3 GB. ServerRAID M1100 Series Zero RAID5  OS:CentOS 6.4  MySQLPercona : 5.5.30-30.1

ออฟไลน์ BMS-Inventory Team

  • Newbie
  • *
  • กระทู้: 12
  • Respect: 0
    • ดูรายละเอียด
Re: ถามเกี่ยวกับ GetPickupList
« ตอบกลับ #3 เมื่อ: ตุลาคม 12, 2011, 15:58:27 PM »
0
ทำไมไม่ลองส่งออกเป็น EXEL โดยใช้ print to file ล่ะคะ จะได้ไม่ต้องย้ายคำสั่ง
BMS-Inventory Team
Bangkok Medical Software Co.,Ltd.
เลขที่ 2 ชั้นที่ 2 ซอยสุขสวัสดิ์ 33
ราษฎร์บูรณะ
กรุงเทพฯ
Thailand
10140

ติดต่อ:086-3364219

ออฟไลน์ panus_t

  • Hero Member
  • *****
  • กระทู้: 2,368
  • Respect: +8
    • ดูรายละเอียด
Re: ถามเกี่ยวกับ GetPickupList
« ตอบกลับ #4 เมื่อ: ตุลาคม 12, 2011, 16:03:24 PM »
0
ทำไมไม่ลองส่งออกเป็น EXEL โดยใช้ print to file ล่ะคะ จะได้ไม่ต้องย้ายคำสั่ง

มันจะได้เฉพาะที่แสดงในตัวรายงานครับ ในคำสั่ง SQL ทั้งหมดมันมีมากกว่านั้น ครับ
โรงพยาบาลเสิงสาง จ.นครราชสีมา (ขนาด  60  เตียง ปี2554)  ขึ้นระบบโดยทีมงาน BMS  เมื่อเดือนเมษายน 2551
ก่อนหน้านั้นขึ้นระบบเมื่อ 07/07/07 ฤกษ์ดี  Master Server  IBM System x3500M4  RAM ECC 24 GB. HardDisk SAS 450x3 GB. ServerRAID M1100 Series Zero RAID5  OS:CentOS 6.4  MySQLPercona : 5.5.30-30.1

ออฟไลน์ BMS-Inventory Team

  • Newbie
  • *
  • กระทู้: 12
  • Respect: 0
    • ดูรายละเอียด
Re: ถามเกี่ยวกับ GetPickupList
« ตอบกลับ #5 เมื่อ: ตุลาคม 12, 2011, 16:18:05 PM »
0
แนะนำให้นำคำสั่งไปวางในแถบ Calc มากกว่าที่แถบ SQL นะคะ เนื่องจากว่าถ้าวางคำสั่งไปด้านนอก จะไม่สามารถใช้ function อื่นๆที่ต้องการได้
BMS-Inventory Team
Bangkok Medical Software Co.,Ltd.
เลขที่ 2 ชั้นที่ 2 ซอยสุขสวัสดิ์ 33
ราษฎร์บูรณะ
กรุงเทพฯ
Thailand
10140

ติดต่อ:086-3364219