BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: panus_t ที่ มิถุนายน 07, 2012, 16:01:50 PM

หัวข้อ: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: panus_t ที่ มิถุนายน 07, 2012, 16:01:50 PM

ตรงช่อง แพทย์ มันชอบเปลี่ยนไปตาม user ล่าสุดที่บันทึกครับ เช่นถ้า เภสัชกรพิมพ์ยาเพิ่มให้ก็จะเป็นชื่อเภสัชกร
และพิมพ์ออกใบสั่งยาว่าเป็นแพทย์ผู้ตรวจ ก็เลยจะให้ช่อง แพทย์ผุ้ควบคุม เป็นแพทย์ผู้ตวจในใบสั่งยาได้หรือเปล่าครับ  แพทย์ผุ้ควบคุม เก็บที่ฟิลด์ไหนครับ

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: kkko ที่ มิถุนายน 07, 2012, 16:27:47 PM

ovst_control_doctor หรือเปล่าไม่แน่ใจครับ

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: panus_t ที่ มิถุนายน 08, 2012, 11:17:20 AM

ขอบคุณครับ ตาราง ovst_control_doctor ถูกต้องแล้วครับ
รบกวนเซียน Report แก้ไขรายชื่อแพทย์ในใบสั่งยาให้หน่อยครับโดยมีเงื่อนไขดังนี้
ให้ตรวจสอบชื่อแพทย์จาก  ตาราง ovst_control_doctor ก่อน ถ้่าไม่มีถึงดึงชื่อแพทย์มาจาก ovst.doctor ถ้าไม่มีทั้ง 2 ตาราง ก็แสดงข้อความว่า ไม่ระบุ ก็ได้ครับ....

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: golf_win ที่ มิถุนายน 08, 2012, 11:40:28 AM

      if GetSQLIntegerData('select count(vn) as cc from ovst_control_doctor '+
      ' where vn="'+DBPipeline['vn']+'" ')>0 then
        Value := GetSQLStringData('select d.name from ovst_control_doctor o '+
        ' left outer join doctor d on d.code=o.doctor '+
        ' where d.position_id="1" and o.vn="'+DBPipeline['vn']+'" ')
       else
       if GetSQLIntegerData('select count(vn) as cc from ovst  '+
      ' where vn="'+DBPipeline['vn']+'" ')>0 then
        Value := GetSQLStringData('select d.name from ovst  o '+
        ' left outer join doctor d on d.code=o.doctor '+
        ' where d.position_id="1" and o.vn="'+DBPipeline['vn']+'" ')
       else
        Value := "ไม่ระบุ";

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: golf_win ที่ มิถุนายน 08, 2012, 13:59:31 PM

ท่านที่นำไปทดสอบบอกกลับด้วยครับว่าแสดงผลถูกต้องหรือไม่ครับ ??? ???

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: panus_t ที่ มิถุนายน 08, 2012, 14:39:21 PM

ขอโทษที่ครับที่ไม่ได้บอกผลการนำไปใช้เพราะ ยังไม่ได้ใช้เลยครับ เก็บแต่โค้ดไว้   ;D ;D ตอนนี้มีโอกาสได้ทดสอบแล้วแต่สงสัยใช้ไม่เป็น นำโค้ดไปไว้ไหนครับ ผมนำไปไว้ใน Variable ไม่ทราบถูกหรือเปล่า.. ;D ;D

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: golf_win ที่ มิถุนายน 08, 2012, 15:07:59 PM

อ้างจาก: panus_t ที่ มิถุนายน 08, 2012, 14:39:21 PM

ขอโทษที่ครับที่ไม่ได้บอกผลการนำไปใช้เพราะ ยังไม่ได้ใช้เลยครับ เก็บแต่โค้ดไว้   ;D ;D ตอนนี้มีโอกาสได้ทดสอบแล้วแต่สงสัยใช้ไม่เป็น นำโค้ดไปไว้ไหนครับ ผมนำไปไว้ใน Variable ไม่ทราบถูกหรือเปล่า.. ;D ;D

ถูกครับ อย่าลืมกด click ขวา compiles นะครับ

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: panus_t ที่ มิถุนายน 08, 2012, 15:13:55 PM

 compiles แล้วมี Error ตามรูปด้านบนครับ  ??? ???

หัวข้อ: Re: ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ
เริ่มหัวข้อโดย: golf_win ที่ มิถุนายน 08, 2012, 15:18:08 PM

ขอโทษครับ แก้ไขใหม่ครับ

if GetSQLIntegerData('select count(vn) as cc from ovst_control_doctor '+
      ' where vn="'+DBPipeline['vn']+'" ')>0 then
        Value := GetSQLStringData('select d.name from ovst_control_doctor o '+
        ' left outer join doctor d on d.code=o.doctor '+
        ' where d.position_id="1" and o.vn="'+DBPipeline['vn']+'" ')
       else
       if GetSQLIntegerData('select count(vn) as cc from ovst  '+
      ' where vn="'+DBPipeline['vn']+'" ')>0 then
        Value := GetSQLStringData('select d.name from ovst  o '+
        ' left outer join doctor d on d.code=o.doctor '+
        ' where d.position_id="1" and o.vn="'+DBPipeline['vn']+'" ')
       else
        Value := 'äÁèÃкØ';