BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: sulaiman_hosxp ที่ ธันวาคม 08, 2010, 08:18:34 AM
-
ตามรูป ไม่ทราบว่ามันเกิดจากอะไรครับ ในส่วนของการลงทะเบียนใหม่ ในสิทธิการรักษาครับ วันที่ออกบัตร และวันที่หมดอายุ เปลี่ยนเป็นปัจจุบันแล้ว แล้วก็ ตรวจสอบที่ NHSO แล้ว แต่พอเวลาเราพริ้ม ออก จะเป็น 30-9-2552
-
คงต้องตรวจสอบชุดคำสั่งที่ใช้แสดงสิทธิในปก OPDCARD หรือ ใบสั่งยา ด้วยน่ะครับ..ว่าดึงมาจากตารางไหน
-
ครับ ปกติใช้ได้ครับ พึ่งเป็นเช้าวันนี้เองครับ ผมจะแนบไฟล์ให้ดูครับ
-
ตาราง pttypeno บาง HN จะมีข้อมูลสิทธิมากกว่า 1 record ครับ..
ถ้าจะใช้ข้อมูล อาจจะต้องเพิ่ม
Value := GetSQLdateData('select expiredate from pttypeno where hn="'+DBPipeline['hn']+'" order by expiredate desc limit 1 ');
กับ
Value := GetSQLdateData('select begindate from pttypeno where hn="'+DBPipeline['hn']+'" order by begindate desc limit 1 ');
ด้วยน่ะครับ
ใน
-
เพิ่มในส่วนใหนครับ
-
แก้ไขให้แล้ว...
ลองใช้อันนี้ดูครับ
-
แก้ไขให้แล้ว...
ลองใช้อันนี้ดูครับ
ผมลองใช้แล้วครับ ก็ยังเป็นอีกครับ สมมุติ หมดอายุ 31-12-2596 เวลาออก เป็นยังอีนๆ ครับ เป็นของปีนี้ครับ
ช่วยดูให้หน่อยครับท่าน
-
วันเริ่มใช้ แก้ไข เป็น
Value := GetSQLdateData('select begindate from ptcardno where hn="'+DBPipeline['hn']+'" and ptrightcode="'+DBPipeline['PtRightCode']+'"');
วันหมดอายุ แก้ไข เป็น
Value := GetSQLdateData('select expiredate from pttypeno where hn="'+DBPipeline['hn']+'" and ptrightcode="'+DBPipeline['PtRightCode']+'" ');
-
วันเริ่มใช้ แก้ไข เป็น
Value := GetSQLdateData('select begindate from ptcardno where hn="'+DBPipeline['hn']+'" and ptrightcode="'+DBPipeline['PtRightCode']+'"');
วันหมดอายุ แก้ไข เป็น
Value := GetSQLdateData('select expiredate from pttypeno where hn="'+DBPipeline['hn']+'" and ptrightcode="'+DBPipeline['PtRightCode']+'" ');
แล้วไม่เอา order by แถมไปด้วยล่ะ ;D ;D