BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: golf_win ที่ กันยายน 17, 2011, 07:15:24 AM

หัวข้อ: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: golf_win ที่ กันยายน 17, 2011, 07:15:24 AM
if (DBPipeline['lab_items_code'] = '373') or (DBPipeline['lab_items_code'] = '501') then
    value := 'secret'
    else
    value := DBPipeline['lab_order_result']  ;

ทำได้ซะที  ;D ;D ให้ใช้ or ไปเรื่อยๆในรายการที่ต้องการปกปิดครับ
ปล.ใบ lab เอาของพี่โก้มาปรับแต่งเล็กน้อยให้เหมาะกับสภาพคล่องของโรงพยาบาล ขอบคุณพี่โก้มา ณ โอกาสนี้ด้วยครับ ;D ;D
หัวข้อ: Re: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: asawincyber ที่ กันยายน 17, 2011, 16:55:49 PM
ค่า LAB มีหลายค่าของผมก็เจอเหมือนกัน อ.golf_win ขอบคุณมากเลยครับ
หัวข้อ: Re: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: udomchok ที่ กันยายน 17, 2011, 23:44:07 PM
procedure txtLabResultOnGetText(var Text: String);
begin

{  If GetLabVisible(DBPipeline['lab_items_code'])='Y' then
    Text := Text
  else
    Text := 'ปกปิด';}
  If ((DBPipeline['lab_items_code']=369) or (DBPipeline['lab_items_code']=370) or (DBPipeline['lab_items_code']=371)
     or (DBPipeline['lab_items_code']=373) or (DBPipeline['lab_items_code']=374) or (DBPipeline['lab_items_code']=375)) and
    (UpperCase(Text) = 'POSITIVE') then
    Text := '*รอผลยืนยัน*'
  else
    Text := Text;

end;
หัวข้อ: Re: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: udomchok ที่ กันยายน 17, 2011, 23:45:00 PM
ปล.ใบ lab เอาของพี่โก้มาปรับแต่งเล็กน้อยให้เหมาะกับสภาพคล่องของโรงพยาบาล ขอบคุณพี่โก้มา ณ โอกาสนี้ด้วยครับ ;D ;D
มิน่าล่ะ หน้าตาใบ LAB ถึงออกมาสวยงาม  ;D ;D ;D ;D
หัวข้อ: Re: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: Terminator2015 ที่ กันยายน 18, 2011, 10:03:40 AM
 ;D แจกตัวรายงานขึ้นมาด้วยสิครับ อิอิ
หัวข้อ: Re: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: thannawe ที่ กันยายน 18, 2011, 11:20:11 AM
ของเค้าดีจริงๆ ;D
หัวข้อ: Re: คำสั่ง if ปกปิดผล lab ใน labreport1
เริ่มหัวข้อโดย: udomchok ที่ กันยายน 18, 2011, 11:40:06 AM
;D แจกตัวรายงานขึ้นมาด้วยสิครับ อิอิ
ผมเคย post ไปแล้วนะครับ
เดี๋ยวเอามาให้อีกทีก็ได้ครับ ไปประยุกต์ใช้กันนะครับ