อยากทราบวิธีการใช้งาน mitutility .prg,.fxp , Report,label

[nufc]

อยากทราบวิธีการใช้งาน mitutility .prg,.fxp , Report,label ขอท่านผู้รู้ช่วยอธิบายวิธการใช้งานด้วยนะครับ

[sutthipongr]

อยากทราบวิธีการใช้งาน mitutility .prg,.fxp , Report,label ขอท่านผู้รู้ช่วยอธิบายวิธการใช้งานด้วยนะครับ

ไม่ค่อยรู้เท่าไร แต่ขอบตอบแบบนี้ครับ
คำถามนี่กว้างมากมายเลยครับ
1.mitutility นี่ น่าจะทราบแล้วไม่ใช่เหรอครับ
2.prg เป็น โปรแกรมที่เราบน foxpro ตั้งแต่ foxdos มาจนเป็น visaul fox
fxp คือ prg ที่ compile แล้ว(คือ foxpro ไม่ได้ run ตัว prg แต่ run fxp) เวลาจะแก้ไขก็แก้ไข prg แล้ว compile เป็น fxp

report เริ่มใช้ เมือเป็น visual fox ครับ คือแบบพิมพ์ต่างๆนั่นเอง
label คือ ชนิดนึงของ report แต่สามารถ ทำเป็น ดวง เป็น sticker ได้ ซึ่งก็คือ แบบพิมพ์ฉลากยาที่พิมพ์กับ thermal printer นั่นแหล่ะครับ


***การที่ mitnet สามารถใช้ได้หลาย OS ตั้งแต่ Dos จนถึง winXp นอกจากความสามารถของหมอสุมิตรแล้ว ก็เพราะคุณสมบัติที่ดีๆ ของ Foxpro ครับ
คำสั่งเท่าที่รู้เกือบ ทุกคำสั่งใน vfp สามารถใช้กับ ตารางของ foxpro dos ได้
(แต่อย่าใช้กับคำสั่งที่เปลี่ยนโครงสร้างตาราง)
นอกจากคำสั่ง fox แล้ว fox 2.6 dos มาจนถึง vfp ก็สามารถใช้ คำสั่ง sql ได้ด้วยครับ
ซึ่งอาจจะช่วยได้ในกรณี รายงานเฉพากิจ ต่างๆ (Ad hoc query) ได้ครับ และ sql ก็เ้ป็นคำสั่งที่ง่าย อยู่แล้ว ซึ่งทุกอย่างก็มีใน datdict หมดแล้วครับ
***

ในความเห็นผม ซึ่งแนวโน้มปัจจุบัน เรามักจะไปมองกัน แต่ vb vb.net หรือ delphi ฐานข้อมูลก็ Mysql sql server
แต่จริงๆแล้ว ในสถานการณ์ของเรา รพ.10 เตียง 30 หรือ 60 หรือ 90 เตียง เราสามารถใช้ mitnet ได้ เป็นอย่างดี และเราไม่จำเป็นต้องมีทีมงานที่ใหญ่โต ผู้ดูแล 1 คน หรือ 2 คน ก็ OK แล้ว
ระบบ file sharing สำหรับ เรายังไปได้อยู่ครับ
แต่จำเป็นที่จะต้องติดตาม mitnet และศึกษา mitnet ด้วยตัวเองเยอะหน่อยครับ
****
นอกจากนี้ เรื่อง hardware สำหรับ server คงเป็นโจทย์ใหญ่สำหรับ mitnet ตอนนี้ครับ

*****

ที่สำคัญสำหรับผู้ดูแลระบบปัจจะบันต้องรู้
DOS และ foxpro ไว้บ้างครับ

สำหรับ foxpro ไปอ่านที่นี่ก็ได้ ครับ มีคนเก่งๆ เพียบ

http://www.songkwae.com/foxboard/

[nufc]

เรียนถามคุณหมอเพิ่มเติมครับ ลองปรับแก้แล้วไม่ได้ครับ

1. ผมดาวน์โหลด แบบพิมพ์ P_D-BAN.PRG และ .FXP มาแล้ว ผมนำแบบพิมพ์ไปวางไว้ที่ Mitutility และ home ของ user ผมลองสั่งพิมพ์จะได้ออกมาดังรูปครับ



ผมจะต้องปรับแก้ตรงไหนบ้างครับ

1. ตรง P_D-BAN.PRG

******************************************************************
* Ê觢éÍÁÙÅ ¾ÔÁ¾ì STICKER ÂÒ ãËé Mit Utility ẺÊÃéÒ§ CURSOR *
******************************************************************
* µÑÇá»Ã temno = àÅ¢·ÕèãºÊÑè§ÂÒ
* banref= ÅӴѺÂÒ
* _lang .f.=ä·Â .t.=english
* ËÁÒÂà赯 ¶éÒà»ç¹ thai ¨Ðãªé¢éÍÁÙŨÓà¾ÃÒТͧÂÒ ·Õè ; µÑÇ·Õè 1 áÅÐ 2
* ¶éÒà»ç¹ english ¨Ðãªé¢éÍÁÙŨÓà¾ÃÒТͧÂÒ ·Õè ; µÑÇ·Õè 3 áÅÐ 4
* 1.ãªé Esp2 code : chr(27)+chr(67)+chr(0)+chr(X) X = ¤ÇÒÁÂÒÇ¡ÃдÒÉà»ç¹¹ÔéÇ(¨Ó¹Ç¹àµçÁºÇ¡à·èÒ¹Ñé¹)
* 2.ãªé function ã¹ mit-net : p_long(X,Y,D) X = ¤ÇÒÁÂÒÇ¡ÃдÒÉà»ç¹¹ÔéÇ àªè¹ 2.5
* Y = ¤ÇÒÁÅÐàÍÕ´ ¶éÒäÁè¡Ó˹´ãËé¨Ðãªé¤èÒ 360
* D = äÇéãªé¡Ã³Õµéͧ¡ÒáÓ˹´à»ç¹àÈÉÊèǹ àªè¹ ÂÒÇ 4/3 ¹ÔéÇ(˹Öè§àÈÉ˹Öè§ÊèǹÊÒÁ)
* ¡Ó˹´à»ç¹ p_long(4,360,3)
******************************************************************
PARAMETERS C_date,C_name,C_DIRECTION,C_DOSE,N_AMOUNT,C_UNIT,C_LANGUE &&&sattahip 23/11/2002
PRIVATE HAVE,DATA1,DATA2,DATA3,DATA4,COMMENT1,COMMENT2,LLEN,NLINE,FSPACE,NLEN,a1,a2,b1,b2,NRET
STORE '' TO DATA1,DATA2,DATA3,DATA4,DATA5,DATA6,COMMENT1,COMMENT2
STORE 0 TO A1,A2,B1,B2
DATA1 = ALLTRIM(SUBTHAI(C_DIRECTION,1,34))
NLEN=LENTHAI(C_DIRECTION)
IF NLEN > 34
DATA2 = ALLTRIM(SUBTHAI(C_DIRECTION,35,34))
NLEN = NLEN-40
NLINE = 2
ELSE
DATA2 = ''
NLINE = 1
ENDIF
C_DOSE = ALLTRIM(C_DOSE)
HAVE = .F.
DO WHILE !EMPTY(C_DOSE)
FSPACE = AT(" ",C_DOSE)
IF FSPACE = 0
SUBDAT = C_DOSE+' '
C_DOSE =''
ELSE
SUBDAT = LEFT(C_DOSE,FSPACE)
C_DOSE=ALLTRIM(SUBSTR(C_DOSE,FSPACE+1))
ENDIF
SUBDESC = D_SIG(SUBDAT,C_LANGUE) &&à¾ÔèÁ parameter C_LANGUE ¾ÔÁ¾ìÀÒÉÒ E,T
IF INLIST(SUBDAT,"M ","N ","E ","B ","HS ","NN ").AND.!HAVE
NLINE = NLINE+1
C_VAR = 'DATA'+STR(NLINE,1,0)
&C_VAR= SUBDESC
NLEN = LENTHAI(SUBDESC)
HAVE = .T.
ELSE
IF NLEN+LENTHAI(SUBDESC) > 34
NLINE =NLINE+1
C_VAR ='DATA'+STR(NLINE,1,0)
&C_VAR= SUBDESC
NLEN =LENTHAI(SUBDESC)
ELSE
C_VAR ='DATA'+STR(NLINE,1,0)
&C_VAR= &C_VAR+SUBDESC
NLEN =NLEN+LENTHAI(SUBDESC)
ENDIF
ENDIF
ENDDO
***** COMMENT 2 lines *********************
A1=AT(";",J.TEXT)
B1=AT(";",J.TEXT,2)
IF A1 > 0
IF !EMPTY(C_LANGUE)
A2=AT(";",J.TEXT,3)
B2=AT(";",J.TEXT,4)
IF A2 > 0
A1=A2
A2=B1+1
B1=B2
B2=A1-A2-1
ELSE
A2=1
B2=A1-1
ENDIF
ELSE
A2=1
B2=A1-1
ENDIF
COMMENT1 = SUBSTR(J.TEXT,A2,B2)
NRET=RAT(CHR(13),COMMENT1)
IF NRET>0
COMMENT1=SUBSTR(COMMENT1,NRET+2,A1-3-NRET)
ENDIF
*******************
*NLINE =NLINE+1
NLINE = 5
*******************
C_VAR ='DATA'+STR(NLINE,1,0)
&C_VAR = ALLTRIM(COMMENT1)
IF B1>0
COMMENT2=SUBSTR(J.TEXT,A1+1,B1-A1-1)
NRET=RAT(CHR(13),COMMENT2)
IF NRET>0
COMMENT2=SUBSTR(COMMENT2,NRET+2,A1-3-NRET)
ENDIF
*********************
*NLINE =NLINE+1
NLINE = 6
*********************
C_VAR ='DATA'+STR(NLINE,1,0)
&C_VAR = ALLTRIM(COMMENT2)
ENDIF
ENDIF
*** Ê觢éÍÁÙÅÍ͡仾ÔÁ¾ì ·Ò§ Utility *********************
?? "EXC DRUGBANNER.LBX" &&ÊÑè§ãËé â»Ãá¡ÃÁ Utility run LABEL FROM ¹Õéãªé EXC à¾×èÍãËéÊÃéÒ§ cursor
? "DATE"+CHR(1)+C_date
? "NAME"+chr(1)+C_name
? 'AMOUNT'+CHR(1)+str(N_AMOUNT,6,0)
? 'UNIT'+CHR(1)+C_UNIT
? 'ITEM'+CHR(1)+banref
? 'HN'+CHR(1)+b_hn
? 'NO'+CHR(1)+temno
? 'DRUG'+CHR(1)+j.ban_name
FOR NLEN = 1 TO 6
C_VAR = 'DATA'+STR(NLEN,1,0)
? 'DATA'+STR(NLEN,1,0)+CHR(1)+&C_VAR
NEXT
EJECT PAGE
RETURN


2. ที่ Form ตรง Drugbanner.lbx และ .LBT ผมเปลี่ยนชื่อเป็น P_D-BAN แล้วผมต้องแก้ตรงไหนเพิ่มเติมหรือป่าวครับ ขอบพระคุณล่วงหน้าครับ

มือใหม่

[mit]

เวลาจะพิมพ์งานต่างๆ mit-net จะเรียกใช้โปรแกรมในรูป .fxp( ซึ่ง compile มาจาก .prg ) ดังนั้นการที่หมอให้ .prg ไปก็ทำให้เราแก้ไขแบบพิมพ์ได้เองตามต้องการ จากนั้นก็ compile ด้วย foxpro 2.6 for dos (เท่านั้น) ก็จะได้ .fxp ไปใช้แทนตัวเดิม และหมอยังกำหนดให้ mit-net เรียกใช้ .fxp ที่อยู่ใน home directory,system directory และ internal ตามลำดับ ตรงนี้ทำให้เราสามารถกำหนดการพิมพ์งานเดียวกันแตกต่างกันได้ถึง3แบบถ้าจำเป็นเช่น ใบสั่งยาที่ห้องจ่ายยา ต่างจากห้องฟันและห้องเก็บเงินเป็นต้น ข้อมูลการพิมพ์จะส่งออกไปที่ช่องทางการพิมพ์ตามที่เรากำหนด เช่น LPT1,LPT2
แต่เนื่องจากปัจจุบันเราใช้ windows กันมากและมีเครื่องพิมพ์แบบ windows printer เช่น inkjet ทั้งหลายที่ไม่สามารถพิมพ์"ด้โดยตรงจาก dos หมอจึงทำให้ mitutility สามารถพิมพ์งานเหล่านั้นแทนเหมือนล่ามนะครับ โดยเพียงแค่กำหนดให้ mit-net พิมพ์งานออกทาง SPL1,SPL2,SPL3 และ SPL4 เท่านั้น mituitlity จะนำงานพิมพ์นั้นไปพิมพ์ออกทางเครื่องพิมพ์ที่เรากำหนดไว้ในการตั้งค่าเช่น SPL1 คือ CANNON on MANAGE1 (แชร์พรินเตอร์ที่เครื่องห้องบริหาร) เมื่อ mit-net พิมพ์งานออกมาที่ SPL1 งานที่เป็นกระดาษก็จะไปพิมพ์ออกที่ห้องบริหารเป็นต้น หน้าตางานพิมพ์ก็จะเหมือนที่ออกมาทาง เครื่องพิมพ์แบบ dot
อีกแนวคิดหนึ่ง หมอใช้แบบพิมพ์ของ mit-net เป็นตัวส่งข้อมูล(ไม่ใช้งานพิมพ์จริง)ให้ mitutility เช่น ใช่ P_ORDER.FXP (มีให้ download ทั้ง FXP และ PRG สามารถนำไปศึกษาและแก้ไขได้เอง)เป็นตังส่งข้อมูลของใบสั่งยาไปให้ mitutility เป็นตังนำข้อมูลนั้นๆ ไปใช้งาน ใช้ทำอะไรก็ได้ (กำหนดได้ในบรรทัดแรกหลังคำว่า RUN =) เบื้องต้นก็นำไปใช้พิมพ์ทางเครื่องพิมพ์นั่นแหล่ะโดย mitutility จะนำข้อมูลดังกล่าวไปพิมพ์ตามแบบฟอร์มของตัวเอง(มีให้ download เช่นกันสามารถนำไปแก้ไขรูปแบบได้เองทั้งสีสรรและหน้าตา ใส่รูปก็ได้เช่นในงานพิมพ์บัตรประจำตัว เมื่อแก้ไขแล้วก็นำมาวางไว้ที่ directory เดียวกับ mitutility) ดังนั้นจะเห็นว่าทางด้าน mit-net P_ORDER ไม่ใช่ตัวเดียวกันนะครับตังหนึ่งคือพิมพ์งานอีกตัวหนึ่งส่งข้อมูล เลือกใช้ได้ตามต้องการ เวลาใช้งานเรากำหนดให้พิมพ์ใบสั่งยาทาง SPL1 mit-net จะส่งขอ้มูลให้ mitutility mitutility จะนำข้อมูลไปเติมลงในฟอร์มแล้วพิมพืออกทางเครื่องพิมพ์ที่กำหนดในช่อง SPL1 มองแนวทางนี้แล้วจะเห็นว่าอาจใช้ช่องทางนี้ในการสั่งให้ mitutility ทำงานตามโปรแกรม(FORM) ที่ท่านสร้างขึ้นมาเองก็ได้นะครับเช่นส่ง FAX ไปเลยก็ได้