ผู้เขียน หัวข้อ: ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ  (อ่าน 4174 ครั้ง)

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

ออฟไลน์ krapong2

  • Newbie
  • *
  • กระทู้: 26
  • Respect: 0
    • ดูรายละเอียด
    • https://www.facebook.com/natee.krapong
ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ
« เมื่อ: กันยายน 01, 2017, 14:21:18 PM »
0
ผมอยากได้แบบในรูปครับ รบกวนใส่ให้หน่อยครับ
นายศุภชัย นะที(กระป๋อง)
natee.krapong@gmail.com,nana-natee@hotmail.com
เบอร์โทร 0801301641
เจ้าพนักงานเครื่องคอมพิวเตอร์
โรงพยาบาลเทพรัตนเวชชานุกูล เฉลิมพระเกียรติ 60 พรรษา(แม่แจ่ม)
-----------------------------------------------------------------------
Master server
OS = centos 6.4   ram 4 G   SQL 5.1.39 percona
------------------------------------------------------------------------
ขึ้นระบบโดย อาจารย์วีระวัฒน์ ใจอินผล
วันที่ 1 มีนาคม 2551
------------------------------------------------------------------------

ออฟไลน์ เกื้อกูล ครับ..

  • Hero Member
  • *****
  • กระทู้: 12,611
  • Respect: +169
    • ดูรายละเอียด
    • โรงพยาบาลปากท่อ
Re: ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ
« ตอบกลับ #1 เมื่อ: กันยายน 04, 2017, 08:45:00 AM »
+3
ผมอยากได้แบบในรูปครับ รบกวนใส่ให้หน่อยครับ

ลอง join  oapp   ที่  vn ตรงกัน  แล้วนำ nextdate มาวางครับ..ใน SQL หลักที่ทำไว้..
Implement  HOSxP  Start 2548 ---> NOW!
Station : 130 Client   V.3 Version  3.67.1.XX
Server  : CENTOS  +MySQL maria 10.x.x

ออฟไลน์ golf_win

  • Hero Member
  • *****
  • กระทู้: 3,481
  • Respect: +112
    • ดูรายละเอียด
Re: ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ
« ตอบกลับ #2 เมื่อ: กันยายน 04, 2017, 10:25:33 AM »
+3
ลองใช้ Variable แบบนี้เป็นตัวอย่างครับ

if GetSQLStringData('select nextdate from oapp where vn="'+DBPipeline['vn']+'"')<>'' then
  Value := ''+GetSQLStringData('select o.nextdate from oapp o '+
  ' left outer join clinic c on c.clinic=o.clinic '+
  ' where vn="'+DBPipeline['vn'] +'" and c.chronic="Y"')
  +' '+GetSQLStringData('select concat("[ ",timestampdiff(day,o.vstdate,o.nextdate),"  Çѹ"," ]") as cc from oapp o '+
  'left outer join clinic c on c.clinic=o.clinic'+
  ' where vn="'+DBPipeline['vn'] +'" and c.chronic="Y" ')
  else
  Value := 'äÁèä´é¹Ñ´ËÁÒÂ';
โรงพยาบาลเจ็ดเสมียน จังหวัดราชบุรี
Start 19-1-51    35 station
HOSxP  3.59.5.18 Activate License
Tel. 032-305096-7 ต่อ 118
Web. http://csmhos.thaiddns.com:8080
         http://csmhos.thaieasydns.com:8080

ออฟไลน์ เกื้อกูล ครับ..

  • Hero Member
  • *****
  • กระทู้: 12,611
  • Respect: +169
    • ดูรายละเอียด
    • โรงพยาบาลปากท่อ
Re: ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ
« ตอบกลับ #3 เมื่อ: กันยายน 04, 2017, 11:02:44 AM »
0
ลองใช้ Variable แบบนี้เป็นตัวอย่างครับ

if GetSQLStringData('select nextdate from oapp where vn="'+DBPipeline['vn']+'"')<>'' then
  Value := ''+GetSQLStringData('select o.nextdate from oapp o '+
  ' left outer join clinic c on c.clinic=o.clinic '+
  ' where vn="'+DBPipeline['vn'] +'" and c.chronic="Y"')
  +' '+GetSQLStringData('select concat("[ ",timestampdiff(day,o.vstdate,o.nextdate),"  Çѹ"," ]") as cc from oapp o '+
  'left outer join clinic c on c.clinic=o.clinic'+
  ' where vn="'+DBPipeline['vn'] +'" and c.chronic="Y" ')
  else
  Value := 'äÁèä´é¹Ñ´ËÁÒÂ';

ลึกซื้งเลยครับ... บรรทัดสุดท้าย คือคำว่า อะไรครับ อ.กอล์ฟ...
Implement  HOSxP  Start 2548 ---> NOW!
Station : 130 Client   V.3 Version  3.67.1.XX
Server  : CENTOS  +MySQL maria 10.x.x

ออฟไลน์ udomchok

  • Hero Member
  • *****
  • กระทู้: 8,347
  • Respect: +589
    • ดูรายละเอียด
    • ร.พ.สมเด็จพระสังฆราช องค์ที่ 17
Re: ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ
« ตอบกลับ #4 เมื่อ: กันยายน 09, 2017, 02:35:40 AM »
0
  Value := 'äÁèä´é¹Ñ´ËÁÒÂ';

ลึกซื้งเลยครับ... บรรทัดสุดท้าย คือคำว่า อะไรครับ อ.กอล์ฟ...
ไม่ได้นัดหมาย
ทำด้วยหัวใจร.พ.สมเด็จพระสังฆราช องค์ที่ 17 อ.สองพี่น้อง จ.สุพรรณบุรี
อบรมโดย BMS Team เมื่อ พ.ย. 49 ขึ้นระบบห้องบัตรเมื่อ X'Mas 2007
2008 : X-Ray กายภาพบำบัด แพทย์แผนไทย กิจกรรมบำบัด OPD ตา
2009 : ทันตกรรม ห้องตรวจตา OPD (พยาบาลและห้องตรวจแพทย์บางห้อง)

ออฟไลน์ เกื้อกูล ครับ..

  • Hero Member
  • *****
  • กระทู้: 12,611
  • Respect: +169
    • ดูรายละเอียด
    • โรงพยาบาลปากท่อ
Re: ฟอร์มใบสั่งยา ใส่วันนัดยังไงครับ
« ตอบกลับ #5 เมื่อ: กันยายน 18, 2017, 09:07:37 AM »
0
  Value := 'äÁèä´é¹Ñ´ËÁÒÂ';

ลึกซื้งเลยครับ... บรรทัดสุดท้าย คือคำว่า อะไรครับ อ.กอล์ฟ...
ไม่ได้นัดหมาย

#เปลี่ยนชื่อจาก โก้  เป็น กอล์ฟ  แล้วหรือครับ
Implement  HOSxP  Start 2548 ---> NOW!
Station : 130 Client   V.3 Version  3.67.1.XX
Server  : CENTOS  +MySQL maria 10.x.x