กระทู้เมื่อเร็วๆ นี้

หน้า: 1 [2] 3 4 ... 10
11
Delphi / Pascal / Re: การใช้งานระบบ Script Program ใน HOSxP XE / PCU XE
« กระทู้ล่าสุด โดย TanKit เมื่อ มีนาคม 16, 2023, 15:34:26 PM »
ขอบพระคุณมากครับ อ.  ;D ;D
12
Report Exchange / Re: รายงานผู้ป่วยที่เจาะ lab hba1c
« กระทู้ล่าสุด โดย anugal เมื่อ มีนาคม 16, 2023, 13:39:13 PM »
 ;D สุดยอดคับ
13
Report Exchange / Re: จำนวนและร้อยละผู้ป่วยนอกที่ได้รับยา Warfarin
« กระทู้ล่าสุด โดย anugal เมื่อ มีนาคม 16, 2023, 11:34:33 AM »
 ;) สุดยอดมากคับ ขอบคุณมากๆ
14
แจ้งปัญหา / ขอความช่วยเหลือ / Re: บัญชี 1 แสดงรายชื่อในบ้านไม่ตรง
« กระทู้ล่าสุด โดย manoi เมื่อ มีนาคม 16, 2023, 11:20:42 AM »
ลองบันทึกข้อมูลบ้านซ้ำ แล้วดูว่าจำนวนคน update ถูกต้องหรือเปล่านะครับ
15
แจ้งปัญหา / ขอความช่วยเหลือ / บัญชี 1 แสดงรายชื่อในบ้านไม่ตรง
« กระทู้ล่าสุด โดย thachang เมื่อ มีนาคม 16, 2023, 09:27:53 AM »
รบสอบถามอาจารย์ทุกท่านครับ  กรณีบัญชี 1 แสดงรายชื่อในบ้าน ไม่ตรงกับจำนวนที่แจ้งว่าในบ้านนั้นมีกี่คน ต้องแก้ไขอย่างไร ตอนนี้ใช้ HOSxP V 3.66.1.10 ครับ
16
Delphi / Pascal / Re: การใช้งานระบบ Script Program ใน HOSxP XE / PCU XE
« กระทู้ล่าสุด โดย manoi เมื่อ มีนาคม 16, 2023, 07:06:32 AM »
ถัดไปมาดูปัญหาแรกที่หลายๆ ท่านเจอเวลานำ Script ไปใช้งาน ดูเหมือนว่า Script จะทำงานแล้วโปรแกรมไม่ทำงานต่อตาม Flow ปกติ อันนี้เนื่องมาจาก แต่เดิม การเรียกใช้งาน Script นั้นเป็นการเรียกใช้แบบไม่สนใจ result คือ ไม่ว่าจะบันทึกขัอมูลแบบไหนอย่างไร พอปิดหน้าจอ ก็ทำงานต่อ ซึ่งมันจะมีปัญหากับงานที่ต้องมีการยืนยัน หรือกรณีที่ต้องการให้ Script ทำการตรวจสอบข้อมูลตาม Logic ที่เขียนเอาไว้ ถ้าไม่ผ่าน ถือว่าทำงานต่อไปไม่ได้  ตอนนี้จึงมีการออกแบบว่า Script ที่เขียน ถ้าต้องการให้ระบบทำงานไปต่อได้หลังจาก Script ทำงานได้เสร็จสิ้นแล้ว ต้องกำหนดตัวแปรที่ชื่อว่า CurrentHostScriptOK ให้เป็น True ด้วย Statement นี้ครับ

โค๊ด: [Select]
   CurrentHostScriptOK := true;

ในตัวอย่างผมเขียนไว้ตรง event onClose ของ Form นะครับ

[ Guests cannot view attachments ]


ใน version ใหม่ มีการแก้ไขระบบให้ตรวจสอบสถานะของ Script ก่อนเรียกใช้งาน เพื่อให้สามารถ เปิด/ปิด ภายหลังได้ กรณี Script มีปัญหา ถ้าไม่ Check ตรงนี้ Script นี้จะไม่ถูกเรียกใช้งาน แต่จะกดปุ่ม Run ที่หน้าจอ ออกแบบได้ครับ

[ Guests cannot view attachments ]
17
Delphi / Pascal / การใช้งานระบบ Script Program ใน HOSxP XE / PCU XE
« กระทู้ล่าสุด โดย manoi เมื่อ มีนาคม 16, 2023, 06:21:02 AM »
สวัสดีครับทุกท่าน เหมือนกับผมจะห่างหายไปจาก Webboard นี้ไปนานมากๆ ตอนนี้ผมปรับ flow การทำงานในสำนักงานใหม่ ใช้ slack แทน และเชื่อมต่อระบบ นี้เข้ากับ webhook ของ slack แล้ว น่าจะไม่พลาดการแจ้งเตือนให้เข้ามาตอบในนี้ครับ

ก่อนหน้านี้มี admin หลายท่านถามเข้ามาเรื่องการใช้งาน Script ไม่ว่าจะเป็น กิจจา / ป๊อป /  นาจ /... (ขออภัยครับผมจำได้ไม่หมด) ก็เลยคิดว่าเขียนไว้ตรงนี้น่าจะดีกว่า และจริงๆ แล้วผมน่าจะเคยเขียนอธิบายไว้ที่ไหนสักแห่งแล้ว ถือว่าเขียนใหม่แบบ Update Concept อีกรอบก็แล้วกันนะครับ

ระบบ Script สามารถเข้าไปทดสอบออกแบบ/เขียน code ได้ที่เมนู Tools -> Form Designer -> Form Designer ครับ

[ Guests cannot view attachments ]

การเขียน Script เขียนได้ 2 แบบครับ คือแบบที่เป็น Script (ไม่มี UI) และแบบที่เป็นหน้าจอแสดงขึ้นมาให้ผู้ใช้งานเห็น และสามารถรับ Input ข้อมูล เหมือนกับเขียนโปรแกรม มาดูขั้นตอนแบบสร้างเป็นฟอร์มซึ่งเป็นแบบที่ง่ายที่สุดก่อนนะครับ

เลือก New Form (ปุ่มมุมซ้ายบน สีปุ่มมันเหมือนจะไม่ active แต่ว่าสามารถกดได้ครับ จะแสดง popup menu ขึ้นมาให้เลือก)

[ Guests cannot view attachments ]

อย่างแรกที่ต้องทำคือตั้งชื่อ Form ครับ โดยชื่อ Form นี้จะถูกนำไปตั้งเป็นชื่อของ Script Module ในระบบให้ด้วย ถ้าจะเปลี่ยนชื่อ Script Module ต้องมาแก้ที่ชื่อ Form (ใน Instance ของ Application เดียวกัน ปกติจะไม่สามารถสร้าง form ชื่อเดียวกันขึ้นมาทำงานพร้อมๆ กันได้ ซึ่งปกติ Flow ของการ Run Script ก็ไม่น่าจะมีปัญหาอะไร เพราะว่า ระบบจะแสดง Form แบบ Modal ขึ้นมาเวลาเรียกใช้งานครับ)

[ Guests cannot view attachments ]

ตั้งชื่อ Form เสร็จแล้วก็ควรมากำหนด Default Font ของ Form ใหม่เพราะจะมีผลกับ component ที่จะวางลงไปใน Form ถ้าเป็น ณ ตอนนี้ Tahoma size 12 น่าจะเหมาะสมที่สุด

ในตัวอย่างผมวาง Button ลงไป 1 ตัว แล้ว Double Click ที่ Button เพื่อสร้าง Event OnClick ของ Button

[ Guests cannot view attachments ]

เสร็จแล้วก็มาตั้งชื่อ ของ Script Application ที่ Tab สุดท้าย แล้วกด Save ก็จะเสร็จสิ้นในการสร้าง Script ครับ

[ Guests cannot view attachments ]

click Run -> Script Run ก็จะเป็นการ Run Script ที่เราเขียนครับ


[ Guests cannot view attachments ]
18
นอกเรื่อง / test
« กระทู้ล่าสุด โดย admin เมื่อ มีนาคม 15, 2023, 08:46:00 AM »
1
2
3
19
               ทาง บริษัท บางกอก เมดิคอล ซอฟต์แวร์ จำกัด (BMS) ขอชี้แจง เรื่องรายละเอียด Package การเชื่อมต่อข้อมูลส่งตรวจ สำหรับบริษัทผู้พัฒนา Application Kiosk, บริษัทตัวแทนจำหน่าย Application Kiosk (บริษัท Kiosk)

ซึ่งมีรายละเอียดราคา Package การเชื่อมต่อข้อมูลส่งตรวจ กับโปรแกรม BMS-HOSxP และ BMS-HOSxP XE (ราคาต่อ Application Kiosk)

[ Guests cannot view attachments ]

เงื่อนไขและหมายเหตุเป็นไปตามที่บริษัทกำหนด ตามรายละเอียดเอกสารข้างต้นค่ะ

จึงเรียนมาเพื่อโปรดทราบ
20
ยินดีต้อนรับ / พบปัญหาการปัดเศษราคาในหน้าจอ ER
« กระทู้ล่าสุด โดย kungkung เมื่อ มีนาคม 14, 2023, 14:38:11 PM »
บันทึกค่ารักษาในหน้าจอ ER มีการปัดเศษราคา เช่น vaccine DT ราคา 39.50 บาท แต่ถ้าคีย์จากหน้าจอ ER จะปัดเป็น 40 บาท รวมถึงราคายาอื่น ๆ ที่เป็นเศษสตางค์ด้วย มีวิธีแก้ไขไม่ให้ปัดเศษไหมครับ (มีการตั้งค่าไม่ให้ปัดเศษแล้ว เอา ติ๊ก ออก)
หน้า: 1 [2] 3 4 ... 10