ที่หน้าห้องตรวจ แพทย์ผู้ควบคุม กับ แพทย์ ต่างกันอย่างไรครับ

[panus_t]

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

[kkko]

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

[panus_t]

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

[golf_win]

      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 := "ไม่ระบุ";

[golf_win]

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

[panus_t]

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

[golf_win]

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

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

[panus_t]

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

[golf_win]

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

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 := 'äÁèÃкØ';