BMS-HOSxP Community
HOSxP => Development => ข้อความที่เริ่มโดย: doramon ที่ เมษายน 07, 2009, 15:35:58 PM
-
ทดสอบ SYS_VN_SCRIPT แจ้งเตือนเคยมาภายใน 7 วัน
-
ขอบคุณครับ
เดี๋ยวไปทดสอบก่อนครับ
;D ;D ;D
-
พรุ่งนี้ จะเอามาให้ ทดสอบอีกตัว
ส่งตรวจห้องบัตร
นำเข้า บัญชี 1 เลย
patient --- > person
-
ขอบคุณครับ ;D
-
ทดสอบ SYS_VN_SCRIPT แจ้งเตือนเคยมาภายใน 7 วัน
มันโหลด DFM ไม่เข้า....
APPEN เข้าใน Table doraemon ได้ แต่เวลาโหลด มาแต่ Script ส่วน DFM ไม่มา
-
พรุ่งนี้ จะเอามาให้ ทดสอบอีกตัว
ส่งตรวจห้องบัตร
นำเข้า บัญชี 1 เลย
patient --- > person
;D ;D ;D แบบนี้ถูกใจครับ ขอแบบเนียน ๆ เลยนะครับป๋าอ๊อด ;D ;D ;D
-
สุดเลยเลย ป๋าอ๊อด เนี่ย ;D :D ;D
-
ขอบคุณมากครับ อ.อ๊อด
-
อ.อ๊อดครับ ผมลืมแล้วว่าจะเอา Script เข้าไปใน hOSXP ได้อย่างไร ;D ;D ;D
-
มันโหลด DFM ไม่เข้า....
APPEN เข้าใน Table doraemon ได้ แต่เวลาโหลด มาแต่ Script ส่วน DFM ไม่มา
ไม่น่าจะมี Script DFM นะครับ เพราะทำงานผ่าน Procedure Main
;D ;D ;D
-
อ.อ๊อดครับ ผมลืมแล้วว่าจะเอา Script เข้าไปใน hOSXP ได้อย่างไร ;D ;D ;D
อ.อ๊อดครับ รู้วิธีนำเข้า Script แล้ว แต่ไม่สามารถใช้งานได้เป็นเหมือน อ.nuttavut บอกเลยครับ
ทดสอบ SYS_VN_SCRIPT แจ้งเตือนเคยมาภายใน 7 วัน
มันโหลด DFM ไม่เข้า....
APPEN เข้าใน Table doraemon ได้ แต่เวลาโหลด มาแต่ Script ส่วน DFM ไม่มา
-
มีปัญหาแล้ว ครับ
SYS_VN_SCRIPT ทำงานทุุกห้อง
เวลาบันทึก ทำให้คนใช้รู้สึกว่าช้า ( ก็ต้องทำงานเพิ่ม )
ต้องหยุดใช้งาน
ส่งสัยว่าต้องให้ อ.ชัยพร ทำระบบเลือกได้ว่าห้องไหนให้รันบ้าง
SYS_VN_SCRIPT_regis
SYS_VN_SCRIPT_doctor
SYS_VN_SCRIPT_drug
SYS_VN_SCRIPT_ipd
:'(
-
เห็นด้วยคับ อ.อ๊อด
-
เพิ่มตาราง depcode_vn_script_allow ให้แล้วครับใน 3.52.4.9
-
เพิ่มตาราง depcode_vn_script_allow ให้แล้วครับใน 3.52.4.9
ขอบคุณมากครับ
-
ผมลองปรับ ก็ไม่น่าจะช้านะครับ
แก้ไขเป็น แก้ไข 2 ที่ ก็ให้รัน แค่ตาราง vn_stat อันเดียวก็ไม่น่าจะช้านะครับ ถ้าใช้ show tables ละก็นานแน่ เพราะต้องดึงมาทุกตาราง
Procedure Main;
var tc,ts:tclientdataset; i:integer; hn1:string;
begin
tc:=tclientdataset.create(nil);
ts:=tclientdataset.create(nil);
//tc.data:=hosxp_getdataset('show tables');
tc.data:=hosxp_getdataset('show tables like "vn_stat"'); // ตรงนี้
while not tc.eof do
begin
ts.data:=hosxp_getdataset('select lastvisit from vn_stat where vn = "'+GetGlobalValue('VN')+'" order by vn desc');
i:=ts.fieldbyname('lastvisit').asstring;
if i < 8 then
begin
showmessage('7 DAY');
logmemo.lines.add('Change...'+tc.fields[0].asstring);
try
// hosxp_getdataset('alter table '+tc.fields[0].asstring+' character set tis620');
except end;
end;
//tc.next;
tc.close; // ตรงนี้ด้วย
end;
tc.free;
ts.free;
end;
end.
ขอบคุณครับ :) อ.MN