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