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

[James011]

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);

[James011]

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

[Apiruk_Jbhos]

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

[James011]

ผมเคยคิดทีจะใช้นะครับ
// 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 เป็นเหมือนกัน
 

[Apiruk_Jbhos]

ขอถามครับ ว่า 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 ห้องตรวจ
เลยยังไม่ กล้าลองใช้งาน เพราะเคยถาม ที่อื่น เห็นว่าจะมี ปัญหา แต่ถ้าที่ไหน สามารถ ใช้ได้ดี กรุณา สอนบ้างนะครับ .... 

[James011]

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

[James011]

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

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

[James011]

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

[SrWooD]

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

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;

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

 

[James011]

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

[thank]

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