แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - thecoy

หน้า: [1] 2 3 ... 24
1
คลิกขวาตรง subreport แต่ละตัว แล้วเลือก  shiferelative to
เช่น subreport1  เลือก subreport 
      subreport2   เลือก  subreport1  ประมาณนี้ครับ   
ไม่อยู่ว่าได้หรือเปล่า

ต้องรอ  พี่ขวด  :D

3
Report Exchange / กำหนดให้ข้อมูลอยู่แผ่นที่ 2
« เมื่อ: ธันวาคม 08, 2011, 22:20:30 PM »
เราสามารถกำหนดให้ข้อมูลที่เราต้องการ ออกในแผ่นที่สองได้หรือเปล่าครับ  ใน Report Designer เช่น
 form แรกรับกับ ใบ Doctor order  เราต้องการพิ่มพ์ครั้งเดี่ยว โดยกำหนด ให้ รายละเอียด แรกรับผู้ป่วย อยู่ในแผ่นแรก ส่วนรายการ  Doctor Order  ให้อยู่ในแผ่นที่สองเลย

4
แจ้งปัญหา / ขอความช่วยเหลือ / Re: เลข opdscreen_bp_id
« เมื่อ: ธันวาคม 01, 2011, 12:02:32 PM »
select * from serial

update serial set serial_no=(select max(opdscreen_bp_id) from opdscreen_bp) where name="opdscreen_bp_id"

รันทีละคำสั่งนะครับ


ค่าในตาราง opdscreen_bp_id ใน  opdscreen_bp
เท่ากัน  opdscreen_bp_id ใน ตาราง serial นะครับ

5
แจ้งปัญหา / ขอความช่วยเหลือ / เลข opdscreen_bp_id
« เมื่อ: ธันวาคม 01, 2011, 11:33:10 AM »
เลข opdscreen_bp_id  ในตาราง opdscreen_bp ไม่ขึ้นข้าม  จาก 1922  เป็น 1924 เป็ฯ 1926 ไม่ทราบว่าเป็นเพราะทำไรแบบบนี้ครับ หรือว่าต้่องคีย์หน้าจอไหนระหว่าง ปุ่ม pb ตรงหน้าจอซักประวัติ กับ คัดกรอง-> นั่งวัด bp ซ้ำ ไม่ทราบว่าไปเก็บในตารางเดี่ยวกันหรือเป่า 
ใช้  3.54.11.2

6
Development / Re: 3.54.11.29 version ที่รอคอย
« เมื่อ: พฤศจิกายน 29, 2011, 21:12:42 PM »
แต่พอ install แล้ว error ครับ สงสัยจะ download ไม่สมบูรณ์
เหมือนกันครับ

7
หลังจาก  Repair Table    ขึ้นความแบบนี้
hos.replicate_log repair info Read error for block at: 77824 (error: 5); Skipped
hos.replicate_log check error got error: 5 when reading datafile at record: 195
ไม่แน่ใจว่า จะเป็นอะไรหรือเปล่า  แต่ Daily Backup ได้แล้ว

8
ยินดีด้วยนะครับ

10
Networking / Re: ช่วยแก้ปัญหา pfsense ให้หน่อยครับ
« เมื่อ: ตุลาคม 13, 2011, 14:45:10 PM »
ของผมผ่านนะครับ  ใช้ 1.2.3

11
นอกเรื่อง / Trans KTB run window XP
« เมื่อ: ตุลาคม 10, 2011, 11:26:16 AM »
ใคร  run พอมีวิธี Run  โปรแกรมเงิืนเดือน กรุงไทย ใน windows xp ได้บ้างครับ ที่พิมพ์ออกเครื่อง print laser ได้ด้วย

12
Development / Re: HOSxP v.3.54.10.4 มาแล้ว
« เมื่อ: ตุลาคม 05, 2011, 08:08:01 AM »
- ปรับปรุงระบบส่งข้อมูล 21 แฟ้ม หากมี Error ในบาง Record จะข้าม Record นั้นไป
- ปรับปรุงโปรแกรม BMSDWSyncAgent ให้สามารถทำงานกับ Protocol แบบเก่าได้ (RTC)
- ปรับปรุงระบบห้องผ่าตัด
- ปรับปรุงระบบ Sticker print server ใน HOSxP ให้พิมพ์ Sticker ยาฉีดตามจำนวนที่ระบุไว้กับวิธีการใช้ยา
- แก้ไข Error drug interaction editor
- แก้ไข Bug โปรแกรม hosxp_mysql_backup.exe แฟ้มที่สำรองบางแฟ้มไม่ถูกรวมไปใน zip file
- ปรับปรุงระบบ Restore ข้อมูล ให้อ่านข้อมูล backup ที่เป็น zip file จาก โปรแกรมสำรองข้อมูลตัวใหม่ได้

14
ผมได้ทำServer ใหม่ ตามขั้นตอนมาตลอด จนถึงการลง mysql โดยใช้เวอร์ตามรูป Screenshot-1 ได้ไม่มีปัญหา สั่ง Stop mysql ก็ได้ หลังจากนั้นได้ ไปลบ ld* ที่ var/lib/mysql แล้วลง my.cnf ที่ปรับใช้กับ RAM 4GB  ที่ etc แล้ว มาลอง Restart mysql  ปรากฏว่า ฟ้อง อย่างรูป   Screenshot ครับ ผมทำผิดตรงไหน หรือจะเป็นที่ my.cnf ครับ (ลองกับ CentOS 5.4 และ 5.5 ก็เป็นทั้งคู่ครับ)

rm ib* ออกก่อนครับที่ var/lib/mysql แล้วสั่ง service mysql start ครับว่า start ได้ไหม

ปล. mysql version ค่อนข้างเก่าแล้วนะครับ น่าจะเอาใหม่ ๆ มาใช้งานมากกว่าครับ
:D

15
ลองเอา log err mysql มาดูก็ได้ครับ  น่าจะอยู่ใน /var/lib/mysql/ hostname.err จำชื่อไม่ได้ครับประมาณนีื

16
เห็นด้วย  boot นานมากๆ :D

17
Delphi / Pascal / complie delphi แล้ว Error
« เมื่อ: กันยายน 20, 2011, 12:59:50 PM »
unable to create process



[20885408]{dbkdebugide100.bpl} Debug.TDebugger.DBKError (Line 11445, "Debug.pas" + 3) + $23
[20852DB1]{dbkdebugide100.bpl} DbkHelper.CheckRetVal (Line 268, "DbkHelper.pas" + 4) + $8
[20852D31]{dbkdebugide100.bpl} DbkHelper.ErrCode (Line 249, "DbkHelper.pas" + 1) + $2
[20877C62]{dbkdebugide100.bpl} Debug.TDebugKernel.CreateProcess (Line 5070, "Debug.pas" + 14) + $2
[20883115]{dbkdebugide100.bpl} Debug.TDebugger.DoCreateProcess (Line 10403, "Debug.pas" + 29) + $36
[20883228]{dbkdebugide100.bpl} Debug.TDebugger.CreateProcess (Line 10429, "Debug.pas" + 6) + $2B
[20883D6D]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 10869, "Debug.pas" + 50) + $2D
[208844FA]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 11120, "Debug.pas" + 70) + $37
[2087F40A]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 9001, "Debug.pas" + 0) + $2
[20A469E1]{coreide100.bpl} DebuggerMgr.TDebuggerMgr.Run (Line 1410, "DebuggerMgr.pas" + 4) + $F
[004164FF]{bds.exe     } AppMain.TAppBuilder.RunRun (Line 2844, "ui\AppMain.pas" + 0) + $7
[2004018B]{rtl100.bpl  } Classes.TBasicAction.Execute (Line 11081, "common\Classes.pas" + 3) + $7
[20151359]{vcl100.bpl  } ActnList.TContainedAction.Execute (Line 388, "ActnList.pas" + 1) + $2C
[201520BC]{vcl100.bpl  } ActnList.TCustomAction.Execute (Line 1000, "ActnList.pas" + 7) + $8
[20040057]{rtl100.bpl  } Classes.TBasicActionLink.Execute (Line 11010, "common\Classes.pas" + 2) + $7
[2013CA15]{vcl100.bpl  } Controls.TControl.Click (Line 5227, "Controls.pas" + 7) + $7
[2019BCF0]{vcl100.bpl  } ComCtrls.TToolButton.Click (Line 17003, "ComCtrls.pas" + 0) + $0
[2013CEA7]{vcl100.bpl  } Controls.TControl.WMLButtonUp (Line 5365, "Controls.pas" + 6) + $3E
[2013C527]{vcl100.bpl  } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
[2016410D]{vcl100.bpl  } Forms.TApplication.DispatchAction (Line 9023, "Forms.pas" + 9) + $A
[2013C1B4]{vcl100.bpl  } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C
[2013FEC6]{vcl100.bpl  } Controls.GetControlAtPos (Line 7095, "Controls.pas" + 4) + $73
[2013FF8E]{vcl100.bpl  } Controls.TWinControl.ControlAtPos (Line 7118, "Controls.pas" + 13) + $E
[2013C1B4]{vcl100.bpl  } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C
[20140199]{vcl100.bpl  } Controls.TWinControl.IsControlMouseMsg (Line 7182, "Controls.pas" + 15) + $1F
[20140561]{vcl100.bpl  } Controls.TWinControl.WndProc (Line 7269, "Controls.pas" + 76) + $6
[2019DD33]{vcl100.bpl  } ComCtrls.TToolBar.UpdateButtonState (Line 18148, "ComCtrls.pas" + 5) + $1C
[2019DD76]{vcl100.bpl  } ComCtrls.TToolBar.UpdateButtonStates (Line 18158, "ComCtrls.pas" + 3) + $4
[201A06A9]{vcl100.bpl  } ComCtrls.TToolBar.WndProc (Line 19588, "ComCtrls.pas" + 80) + $6
[1189422D]{cxLibraryD10.bpl} cxContainer.ApplicationGetMessageMsgHookProc + $95
[2013FDD0]{vcl100.bpl  } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[20040E4C]{rtl100.bpl  } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
[2004A2F4]{rtl100.bpl  } Contnrs.TObjectList.IndexOf (Line 300, "common\Contnrs.pas" + 0) + $0
[201625F0]{vcl100.bpl  } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
[2016262A]{vcl100.bpl  } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl  } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe     } bds.bds (Line 195, "" + 7) + $7

18
function CanAccess(AccessName: string): boolean;
var
  tc: tclientdataset;
begin
  flast_access_name := accessname;
  result := false;

  if getsqldata('select count(rightname) as cc from accessoperation ' +
    ' where rightname="' + accessname + '" ') = 0 then
  begin
    with kskdm.bcds1 do
    begin
      close;

      data := HOSxP_GetDataset('select * from accessoperation limit 0');

      append;
      fieldbyname('rightname').asstring := accessname;
      fieldbyname('accessname').asstring := 'Access_' + accessname;
      post;
      if changecount > 0 then
        HOSxP_UpdateDelta(delta, 'select * from accessoperation limit 0');

      close;
    end;

  end;

  kskdm.fcds.close;

  if getsqldata('select count(loginname) as cc from opduser') <= 0 then
  begin
    //kskdm.fcds.close;
    result := true;
    exit;
  end;
  kskdm.fcds.close;

  if not FUseExProvider then
  begin
    if sys_db = 'MySQL' then
      kskdm.fcds.data :=
        hosxp_getdataset('select accessright from opduser where loginname="'
        +
        flgn + '"')
    else
      kskdm.fcds.data :=
        hosxp_getdataset('select accessright from opduser where upper(loginname)="'
        +
        uppercase(flgn) + '"');
    kskdm.fcds.open;

    result := (pos(uppercase(string(accessname)),
      uppercase(kskdm.fcds.fieldbyname('accessright').asstring)) > 0) or
      (pos('[ADMIN]', uppercase(kskdm.fcds.fieldbyname('accessright').asstring))
      >
      0);

  end
  else
  begin
    tc := tclientdataset.create(nil);
    tc.data :=
      HOSxP_GetDataSet('select accessright from opduser where loginname=''' +
      flgn + '''');
    result := (pos(uppercase(string(accessname)),
      uppercase(tc.fieldbyname('accessright').asstring)) > 0) or
      (pos('[ADMIN]', uppercase(tc.fieldbyname('accessright').asstring)) >
      0);
    tc.free;

  end;

  //showmessage('Request -> '+AccessName+#13+
  //'Compare -> '+kskdm.fcds.fieldbyname('accessright').asstring);
  kskdm.fcds.close;

end;

19
กำลังพัฒนาระบบด้วย delphi ครับ  การกำหนดสิทธิ์ให้ผู้ใช้งานเข้าใช้แต่ละงานแต่ละเมนู ขอคำแนะนำหน่อยครับ
หรือมีตัวอย่างก็ดีครับ ;D
hosxp เก็บในตาราง opduser  filed  accessright   แล้วเรียกผ่าน function canaccess

20
HOSxP for iPhone / iPad / Re: HIS Mobile Web UPDATE 54.9.10.2 ! [PHP+MySQL+Jquery Mobile + HOSxP]
« เมื่อ: กันยายน 12, 2011, 11:22:43 AM »
ฝากคุณ dusit เรื่องสิทธิืการเข้าใช้งาน ของ user ด้วยครับ   :D

21
MySQL / Re: มันฟ้องว่า SQL error too namy connections
« เมื่อ: กันยายน 12, 2011, 11:18:36 AM »
มันเปงอารายครับ

มันเป็นอะไรครับ

ตอบ  ดูจำนวน เครื่องลูกข่ายว่ามีมากกว่าที่กำหนดค่าไว้ใน my.cnf หรือเปล่า
ดูตรงค่า max connection  ถ้าจะให้ดี post รูปด้วย :)

22
HOSxP for iPhone / iPad / Re: iHOSxP (JQueryMobile)
« เมื่อ: กันยายน 08, 2011, 21:27:16 PM »
อบรม intraweb มีให้ทำแบบนี้มั้ย   ;D

23
ผ่านทดลอง งานได้ 15,000 บาท เลย  :o

24
ไม่แน่ใจว่าประมาณนี้หรือเปล่านะครับ
 พนักงานราชการ ที่มีให้แต่ละโรงพยาบาลเิกิดจากตำแหน่งว่างจากลูกจ้างประจำที่เกษียรอายุหรือลาออก ทำให้เกิดตำแหน่งว่าง ซึ่งนโยบายใหม่เค้าไม่รับมาเป็นราชการแล้ว เ้ลยเกิดตำแหน่งพนักงานราชการเกิดมา ทีึ่นี้พอมีตำแหน่งว่างในโีรงพยาบาลเป็นพนักงานราชการ ทางสสจ.จะทำหนังสือมาแจ้งให้กับทางโรงพยาบาล ว่าทางโรงพยาบาลต้องการให้ตำแหน่งพนักงานราชการกับตำแหน่งไหน  ทีนี้ก็ขึ้นอยู่กับ คณะกรรมการบริหารโรงพยาบาลแล้วละครับว่าใ้ห้ตำแหน่งไหน บางที นักวิชาการคอมพิวเตอร์ การเงินและบัญชี เทนนิคการแพทย์  กายภาพ ขึ้นอยู่กันหลายปัจจัึยครับ  :D   พอได้ตำแหน่งที่ก็สสจ.ก็จะิเปิดสอบที่สสจ.อีกที่
ปล. ตามที่ผมเข้าใจประมาณนี้นะครับผิดถูกไม่แน่ใจ

26
มัวแต่ capture หน้าจอ เลยไม่ทัน Thecoy เลย
พี่หายดีแล้วนะครับ ;D

27
ระบบผู้ป่วยนอก -> ห้องตรวจโรค ->ออกรหัสอนุญาต รคส. :)

28
หายไวๆนะครับ เข้มแข็งจริงๆครับ  พี่โก้ รถพลิก ยังได้รูปมาได้อีก  :)

29
ทำกับ pfsense  ได้มัย ;D

30
ยกเ้ลิกใบ lab ก่อน

31
รพ.นี้คนเก่งเยอะนะครับ  ผอ. พี่่เดชา  คุณ อาร์ม   
ยินดีด้วยครับ :)

32
อยากได้ code
สถิติการรับบริการวันนี้  ที่อยู่หน้าเวบจัง  ;D ;D

และก็ code รายงานจัง
http://pthosp.net/20opd/10refer_opd.php สวยดีครับ
 
เด๋ววันจันทร์...จะดูให้ครับ.... :D :D

มารอครับพี่เกื้อของดูแนวทางเขียนหน่อย 

33
MySQL / Re: install MySQL error ครับ
« เมื่อ: กรกฎาคม 07, 2011, 16:01:31 PM »
ลองอ่านดูครับ http://hosxp.net/index.php?option=com_smf&topic=9286

34
Development / full Installer 3.54.7.6
« เมื่อ: กรกฎาคม 07, 2011, 00:24:23 AM »
full Installer 3.54.7.6 มาแล้ว
244 MB

35
Development / Re: HOSxP 3.54.07.06
« เมื่อ: กรกฎาคม 06, 2011, 21:10:03 PM »
ฝาก version stable ด้วยนะครับหลายเดือนแล้วไม่ออก ;D

36
ผมทำแบบพี่เกื้อว่าเมื้อกี่นี้เองครับ  ;D

37
เงินเดือน สวัสดิการ  Ot เป็นงัยครับ ;D

38
Delphi / Pascal / Re: error ตอนเข้า delphi 2007
« เมื่อ: มิถุนายน 30, 2011, 13:21:43 PM »
windows XP หรือว่า Windows 7   32bit   หรือ 64 bit ครับ   

มันยังลบไม่หมดครับ  มันอยู่ใน   user  windows ด้วยครับ 

ลบไม่หมดก็ไม่หายครับ


64  bit  ครับ  window  7

39
Delphi / Pascal / Re: error ตอนเข้า delphi 2007
« เมื่อ: มิถุนายน 30, 2011, 10:57:03 AM »
ลองแล้วครับ
ไม่หาย ลอง ทั้ง floder และ registry ตามที่ อ.ว่าแล้ว

ลองลง Windows ใหม่ดูหรือยังครับ  :P

หายแน่นอนครับ

40
Delphi / Pascal / Re: error ตอนเข้า delphi 2007
« เมื่อ: มิถุนายน 30, 2011, 10:17:31 AM »
ลองแล้วครับ
ไม่หาย ลอง ทั้ง floder และ registry ตามที่ อ.ว่าแล้ว

41
Delphi / Pascal / Re: error ตอนเข้า delphi 2007
« เมื่อ: มิถุนายน 30, 2011, 10:11:33 AM »
ขออนุญาตดันหน่อย   เห็นอ.manoi มาตอบกระทุ้ง ;D

42
Delphi / Pascal / Re: error ตอนเข้า delphi 2007
« เมื่อ: มิถุนายน 30, 2011, 07:31:45 AM »
เมือก่อนใช้ได้อยู๋ครับ  แต่ตอนนี้พอเข้าก็เป็นดังรูป

43
Delphi / Pascal / error ตอนเข้า delphi 2007
« เมื่อ: มิถุนายน 30, 2011, 01:36:07 AM »
ลงใหม่แล้วก็เป็นแบบเดิมครับ

44
Delphi / Pascal / Re: HOSxP-Mini ระบบงานเสริม HOSxP
« เมื่อ: มิถุนายน 27, 2011, 17:00:47 PM »
อยู่ในกระุทุ้งนี้หน้า   6  ครับ

45
Development / Re: แจก script แจ้งเตือน CrCl ที่ห้องตรวจ
« เมื่อ: มิถุนายน 23, 2011, 22:04:16 PM »
เร็วจริงๆท่าน pop :D

46
ว่าแล้วเห็น ชืออ.manoi มาpost ใน board คิดว่าคงต้องปล่อยของอะไรอีกแน่นอน มาเจอกระทุ้ง สมใจนึกจริงๆๆๆ
รอทดสอบด้วยคนครับ :D

47
drive c เต็มหรือเปล่า

48
เลือกใน system setting
กำหนดรูปแบบใบเสร็จ

49
เครื่อง client ที่รัน spec เท่าไรครับ

50
ผมสรุป ได้แล้วนะครับ 
ว่า 5.5.12 รับ replicate จาก 5.1.30 ไม่ได้ครับ
แต่ 5.1.30 ไป   mysql percona ได้ครับ หลังจากทดสอบมาหลายครั้ง ลอง linux ใหม่่ก็แล้ว เลยลองเปลี่ยน มาใช้ percona  5.xxxx replicate ผ่านครับ  :D

หน้า: [1] 2 3 ... 24