BMS-HOSxP Community

HOSxP => แจ้งข้อผิดพลาดการทำงานของ HOSxP V3 => ข้อความที่เริ่มโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 07:00:34 AM

หัวข้อ: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 07:00:34 AM

SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้

  fvn:= GetGlobalValue('VN');  // vn รับได้ครับ

  // 2 ตัวนี้รับไม่ได้ครับ
    fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');

  showmessage('Current VN = '+fvn+'  , Computer Name = '+fcomputername+' , Department Code   = '+fdepartment);

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 09:30:08 AM

 ;D ;D ;D  ไม่มีใครใช้ Script ตัวนี้เลยหรอครับ

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: Apiruk_Jbhos ที่ กุมภาพันธ์ 19, 2010, 10:20:02 AM

ผมเคยคิดทีจะใช้นะครับ
// 2 ตัวนี้รับไม่ได้ครับ
    fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');
มันก็ได้นะครับ แต่ตอนนี้ไม่ได้ใช้แล้ว เพราะเขียนแล้วมันไม่ออกตามที่ต้องการ อาจจะเขียน
ผิดบ้างครับ แต่ ค่า ที่ ตย. VN ชื่อเครื่อง แผนก ออกนะครับไม่มีปัญหา ครับ

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 10:30:01 AM

อ้างจาก: Apiruk_Jbhos ที่ กุมภาพันธ์ 19, 2010, 10:20:02 AM

ผมเคยคิดทีจะใช้นะครับ
// 2 ตัวนี้รับไม่ได้ครับ
    fcomputername := GetGlobalValue('CURRENT_COMPUTER');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');
มันก็ได้นะครับ แต่ตอนนี้ไม่ได้ใช้แล้ว เพราะเขียนแล้วมันไม่ออกตามที่ต้องการ อาจจะเขียน
ผิดบ้างครับ แต่ ค่า ที่ ตย. VN ชื่อเครื่อง แผนก ออกนะครับไม่มีปัญหา ครับ

  ถ้าเป็น ตัว SYS_VN_PRE_SCRIPT  รับค่า  2 ตัวนี้ได้
     fcomputername := GetGlobalValue('CURRENT_COMPUTER');
     fdepartment := GetGlobalValue('CURRENT_DEPCODE');

    แต่ถ้าเป็น SYS_VN_SCRIPT  ไม่สามารถรับค่า 2 ตัวนี้ได้ ครับ คุณทดสอบตัวไหนครับ   ผมทดสอบ HOSxP 3.53.2.9c กับ 3.53.2.17c เป็นเหมือนกัน
 

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: Apiruk_Jbhos ที่ กุมภาพันธ์ 19, 2010, 10:41:42 AM

ขอถามครับ ว่า test จากไหนครับ Execute หรือ จาก การใช้งานจริง ครับ
แล้ว Code 2 ตัว เหมือนกันไหมครับ
เพราะ รูปที่ 2 คือ ตัวที่มาจาก SYS_VN_SCRIPT ครับ ในห้อง X-ray
แต่รูปแรก SYS_VN_PRE_SCRIPT ในห้องตรวจแพทย์ ครับ
แต่ก้ แน่ใจนะครับว่า มาจาก SYS_VN_SCRIPT เพราะดูจาก
showmessage('Example vn pre2 processing script'); มันเป็น SCRIPT ของมัน SYS_VN_SCRIPT
แต่ไม่เข้าใจว่า ทำไม่ในห้อง Xray  'CURRENT_DEPCODE' มันถึงขึ้น 019 ซึ่งมันเป็น Code ห้องตรวจ
เลยยังไม่ กล้าลองใช้งาน เพราะเคยถาม ที่อื่น เห็นว่าจะมี ปัญหา แต่ถ้าที่ไหน สามารถ ใช้ได้ดี กรุณา สอนบ้างนะครับ ....  :D

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 10:44:06 AM

 ;D  ใช้งานจริงครับ  ผม Test ทีละตัวนะครับ

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 10:48:32 AM

อ้างจาก: Apiruk_Jbhos ที่ กุมภาพันธ์ 19, 2010, 10:41:42 AM

ขอถามครับ ว่า test จากไหนครับ Execute หรือ จาก การใช้งานจริง ครับ
แล้ว Code 2 ตัว เหมือนกันไหมครับ

   ขอ Clear ปัญหานี้ใน  M  หน่อยครับ

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 10:50:55 AM

 ;D ;D  ลองทดสอบทีละ SCRIPT ดูครับว่ายังรับได้อยู๋ป่าวครับ

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: SrWooD ที่ กุมภาพันธ์ 19, 2010, 11:25:10 AM

งั้่นลองทดสอบแบบนี้ให้หน่อยครับว่าได้ป่าว

var fonlineid,fvn,fcomputername,fdepartment:string;
begin
  fonlineid:=get_onlineid;
  fvn:= GetGlobalValue('VN');
  fcomputername := getsqldata('select servername from onlineuser where onlineid="'+fonlineid+'"');
  fdepartment := getsqldata('select department from onlineuser where onlineid="'+fonlineid+'"');

  showmessage('OnlineID = '+fonlineid+' , Current VN = '+fvn+'  , ComputerName = '+fcomputername+' , Department  = '+fdepartment);
end;

ผมยังไม่ได้ทดสอบในระบบจริงนะครับ

 ;D ;D ;D

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: James011 ที่ กุมภาพันธ์ 19, 2010, 11:58:11 AM

 ;D ;D ;D ขอบคุณครับ คุณ SrWooD   ;D ;D ;D

หัวข้อ: Re: SYS_VN_SCRIPT มี BUG รึป่าวครับ ทำไมรับค่า Global บางตัว ไม่ได้
เริ่มหัวข้อโดย: thank ที่ กุมภาพันธ์ 19, 2010, 13:44:27 PM

Source code ของ "GetGlobalValue" อยู่ใน "MainU.pas" ครับ