BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: Aquilani ที่ กรกฎาคม 13, 2011, 09:16:41 AM

หัวข้อ: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: Aquilani ที่ กรกฎาคม 13, 2011, 09:16:41 AM
เวลาปริ้น sticker ออกมาเราสามารถทำให้ sticker ใบแรกของผู้ป่วยคนถัดไปแตกต่างได้ไหมครับพอมีวิธีไหม

ตัวอย่าง

sticker1
sticker1
sticker1
sticker1
sticker2
sticker2
sticker2
sticker2
sticker2
sticker3
sticker3
sticker3
sticker3
sticker3
sticker4
sticker4
sticker4
sticker4
sticker4
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: udomchok ที่ กรกฎาคม 13, 2011, 09:19:13 AM
ต้องการทำเพื่ออะไร มีวัตถุประสงค์อย่างไร
หน้าตาที่แตกต่างเป็นอย่างไรครับ
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: Aquilani ที่ กรกฎาคม 13, 2011, 09:40:33 AM
เพราะเวลาปริ้น sticker ออกมาหลายๆใบต้องการความเห็นความแตกต่างเพื่อให้ฉีก sticker ได้สะดวกรวดเร็วคือถ้าเห็นหัว sticker ใบถัดไปมีความแตกต่างก็จับมาฉีกลงตะกร้ารอจัดยาไว้เลยประมาณนี้ครับ
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: Manit ที่ กรกฎาคม 13, 2011, 09:47:40 AM
ปัจจุบันที่ใช้อยู่ sticker คนถัดไปก็มีความแตกต่างอยู่แล้วนี่ครับ โดยใบแรกของคนถัดไปจะมีเส้นยาวๆใต้ชื่อผู้ป่วยครับ  ;)
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: Aquilani ที่ กรกฎาคม 13, 2011, 09:57:33 AM
ลืมไปว่าตอนนี้ใช้แบบฟอร์มที่ออกแบบเองอาจจะแตกต่างกับ รพ.อื่นๆต้องขออภัยที่ให้รายละเอียดไม่ครบครับ ;D ;D ;D
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: udomchok ที่ กรกฎาคม 13, 2011, 11:03:16 AM
อ้างจาก: Aquilani ที่ กรกฎาคม 13, 2011, 09:57:33 AM
ลืมไปว่าตอนนี้ใช้แบบฟอร์มที่ออกแบบเองอาจจะแตกต่างกับ รพ.อื่นๆต้องขออภัยที่ให้รายละเอียดไม่ครบครับ ;D ;D ;D
ก็กำหนดได้ครับ ถ้าเป็นหน้าแรกให้มีสัญลักษณ์พิเศษแสดง
เขียน script กำกับนิดหนึ่ง
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: Aquilani ที่ กรกฎาคม 13, 2011, 11:18:03 AM
รบกวนขอตัวอย่าง script ได้ไหมครับอาจารย์ :-* :-* :-*
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: navyNP ที่ กรกฎาคม 13, 2011, 11:29:41 AM
ไม่ได้ใช้ใบ sticker summary หรือครับ
หัวข้อ: Re: Sticker ยาที่แตกต่าง
เริ่มหัวข้อโดย: armds ที่ กรกฎาคม 13, 2011, 12:12:55 PM
อ้างจาก: Aquilani ที่ กรกฎาคม 13, 2011, 11:18:03 AM
รบกวนขอตัวอย่าง script ได้ไหมครับอาจารย์ :-* :-* :-*
ลองเอาไปปรับใช้ดูนะครับ
เป็นแบบขีดเส้นใต้ไว้  ใบสุดท้ายครับ

var doctor_check :string;
begin
    doctor_check := GetSQLStringData('select d1.doctor_order_print_code   '+
       ' from doctor_order_print d1                                        '+
       ' where d1.vn="'+DBPipeline['vn']+'"  and print_server="'+DBPipeline['print_server']+'" and print_mode="2" order by item_no desc limit 1');
    if  DBPipeline['doctor_order_print_code'] = doctor_check then
    line1.visible := true
    else
    line1.visible := false;
end;


มีตัวอย่าง ฟอร์มชื่อ  FORM-Sticker-OPD-Detail--COMCENTER1

สีแดงเป็นชื่อเครื่องคอมฯ ที่จะพิมพ์ออกเฉพาะเครื่องนั้น ๆ นะครับ

ตัวอย่างครับ
http://www.mediafire.com/?5kzgyb89j23s5zy