BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: adisaksri ที่ กรกฎาคม 13, 2010, 13:25:24 PM

หัวข้อ: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: adisaksri ที่ กรกฎาคม 13, 2010, 13:25:24 PM

ทดลองเขียนรายงานจากความรู้basic reportของBMS
เอาไปใช้โดยไปแก้ icode ของยาaspirin
 :D

หัวข้อ: Re: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: ไม่เสียสละ ชัยชนะไม่เกิด ที่ กรกฎาคม 13, 2010, 14:04:24 PM

ไม่ทราบว่าช่องของการรับยาต้องการให้แสดงผลยังไงครับ

หัวข้อ: Re: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: adisaksri ที่ กรกฎาคม 13, 2010, 14:25:37 PM

ถ้าต้องการเขียนเพิ่มว่า 1=ได้รับ  0=ไม่ได้รับ ต้องเขียนคำสั่งเพิ่มตรงไหนและเขียนคำสั่งอย่างไรครับ :)

หัวข้อ: Re: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: udomchok ที่ กรกฎาคม 13, 2010, 14:39:51 PM

อ้างจาก: adisaksri ที่ กรกฎาคม 13, 2010, 14:25:37 PM

ถ้าต้องการเขียนเพิ่มว่า 1=ได้รับ  0=ไม่ได้รับ ต้องเขียนคำสั่งเพิ่มตรงไหนและเขียนคำสั่งอย่างไรครับ :)

ใช้ OnGetText ของค่าที่แสดงว่าได้รับหรือไม่ได้รับ
สมมุติค่าได้ที่ได้รับหรือไม่ได้รับอยู่ใน DBText1 นะครับ
ใส่

If DBText1 = 0 then
Text := 'ไม่ได้รับ'
else
If DBText1 = 1 then
Text := 'ได้รับ'
else
Text := 'ไม่ทราบ';

หัวข้อ: Re: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: ไม่เสียสละ ชัยชนะไม่เกิด ที่ กรกฎาคม 13, 2010, 15:08:49 PM

ขอบคุณครับพี่โก้
   ลองแก้ตามก่อนนะครับ

หัวข้อ: Re: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: adisaksri ที่ กรกฎาคม 13, 2010, 15:29:17 PM

กรณีเป็นVariable เขียนยังไง เอาไปแทรกตรงไหนครับ
begin

  Value := GetSQLIntegerData('select count(distinct hn) '+
           'from opitemrece '+
           'where hn="'+DBPipeline['hn']+'" '+
           'and icode in ("1520006","1000039","1000038")');

end;

หัวข้อ: Re: FREEreportผู้ป่วยหลอดเลือดสมองได้ยาต้านเกล็ดเลือด
เริ่มหัวข้อโดย: udomchok ที่ กรกฎาคม 13, 2010, 15:47:45 PM

ไปกำหนด OnGetText ของ Variable นั้น นะครับ