ต้องการแสดงชื่อUSER ในเอกสาร

[twinkins]

ต้องการให้แสดงชื่อ USER ในเอกสารเวลาพิมพ์ ใบขายเงินเชื่อค่ะ

ปัจจุบัน

~EDT: 0, "", "edt_name", "edt_name = artrn->USERID",S

ชื่อที่ออกมา เป็นรหัสค่ะ อยากให้ออกเป็นชื่อค่ะ
ต้องแก้ยังไงคะ

[savek]

ลองแก้ไขแบบนี้ดูครับ

https://esg.co.th/esg/index.php?fi=no&p ... =134&lang=

[twinkins]

ไม่ขึ้น ERROR
และไม่มีข้อมูลออกมาค่ะ
https://ibb.co/hXkxcvN

[savek]

ขอดูคำสั่งที่แก้ไขเข้าไปทั้งหมดครับ

[twinkins]

File=SCUSER
Alias=S
Key=RECCOD
Index=aa
System=SECURE_PATH
Master file=ARTRN
Master-Related Field=USERID

[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~ADDR: 0, "", "p_addr()", ""
~TAXID: 0, "", "p_taxid()", ""
~TEL: 0, "", "p_telnum()", ""
~INIT: 0, "", "", "seq=0; sumamt0=0; sumamt1=0"
~TXT0: 0, "", "txt0", "txt0 = IIF( ARTRN->FLGVAT <> '1', ' ¨Ó¹Ç¹à§Ô¹', 'ÃÒ¤ÒÃÇÁÀÒÉÕ')",
*~TXT1: 0, "", "txt1", "txt1 = IIF( ARTRN->FLGVAT <> '1', '¨Ó¹Ç¹à§Ô¹ËÅѧËÑ¡ÊèǹŴ', '¨Ó¹Ç¹à§Ô¹ÃÇÁ·Ñé§ÊÔé¹ ')",
~TXT1: 0, "", "txt1", "txt1 = IIF( ARTRN->FLGVAT <> '1', '¨Ó¹Ç¹à§Ô¹ËÅѧËÑ¡ÁÑ´¨Ó ', '¨Ó¹Ç¹à§Ô¹ÃÇÁ·Ñé§ÊÔé¹ ')",
~TXT2: 0, "", "txt2", "txt2 = IIF( ARTRN->FLGVAT <> '1', '¨Ó¹Ç¹à§Ô¹ÃÇÁ·Ñé§ÊÔé¹', 'ÃÒ¤ÒÊÔ¹¤éÒ ')",
*~DOCNUM: 0, "", "doc_num", "doc_num=SUBSTR(ARTRN->DOCNUM, 3, "
~DOCNUM1: 0, "", "doc_num", "doc_num=SUBSTR(ARTRN->DOCNUM, 3, 10)"
~DOCNUM: 0, "", "ARTRN->DOCNUM", ""
~DOCDAT: 0, "", "ARTRN->DOCDAT", ""
~CUSCOD: 0, "", "ARTRN->CUSCOD", ""
~CUSNAM: 0, "", "cus_nam", "cus_nam = ARMAS->PRENAM - '•' - ARMAS->CUSNAM"
~ADDR01: 0, "", "ARMAS->ADDR01", ""
~ADDR02: 0, "", "ARMAS->ADDR02", ""
~ADDR03: 0, "", "addr_03", "addr_03 = ARMAS->ADDR03 - '•' - ARMAS->ZIPCOD"
~TELNUM: 0, "", "ARMAS->TELNUM", ""
~YOUREF: 0, "", "ARTRN->YOUREF", ""
*~SLMCOD: 55, "", "slm", "slm = OESLM->SLMNAM"
~SLMCOD: 55, "", "slm", "slm = ARTRN->SLMCOD-'-'-OESLM->SLMNAM"
~CR: 0, "ZZZ", "ARTRN->PAYTRM", ""
~DUEDAT: 0, "", "ARTRN->DUEDAT", ""
~DLVBY: 0, "", "p_istab( ARTRN->DLVBY, 41, 1, 40 )", ""
~AREA: 0, "", "p_istab( ARTRN->AREACOD, 40, 1, 40 )", ""
~SONUM: 0, "", "ARTRN->SONUM", ""
~SODAT: 0, "", "OESO->SODAT", ""
~FLGVAT: 0, "Y", "ARTRN->FLGVAT", ""
~AMOUNT: 0, "99,999,999.99", "ARTRN->AMOUNT", ""
~DISC: 0, "", "ARTRN->DISC", ""
~DISCAMT: 0, "99,999,999.99", "ARTRN->DISCAMT", ""
~AFTDISC: 0, "99,999,999.99", "ARTRN->AFTDISC", ""
~ADVNUM: 0, "", "ARTRN->ADVNUM", ""
~ADVAMT: 0, "99,999,999.99", "ARTRN->ADVAMT", ""
~TOTAL: 0, "99,999,999.99", "ARTRN->TOTAL", ""
~VAT: 0, "99.99", "ARTRN->VATRAT", ""
~VATAMT: 0, "99,999,999.99", "ARTRN->VATAMT", ""
~CHKAMT: 0, "99,999,999.99", "netamt", "netamt = IIF( ARTRN->FLGVAT <> '1', ARTRN->NETAMT, ARTRN->TOTAL - ARTRN->VATAMT)"
~BAHT: 0, "", "t_baht(ARTRN->NETAMT)" ""

~N: 0, "999", "seq", "seq=seq+1"
~ARTICLE: 0, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~STKCOD: 0, "", "STCRD->STKCOD", ""
~STKDES: 80, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "qtyZ(8)", "STCRD->TRNQTY", ""
~T: 3, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", ""

~UNITPR: 0, "priZ(10)", "STCRD->UNITPR", ""
~DISC_I: 0, "", "STCRD->DISC", ""
~NETAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
~MQTY: 0, "ZZ,ZZZ", "mqty", "mqty = STCRD->TRNQTY * STCRD->TFACTOR"
~MQUCOD: 0, "", "p_istab( STMAS->QUCOD, 20, 1, 0 )", "",

~NETAMT0: 0, "ZZ,ZZZ,ZZZ.ZZ", "amt0", "amt0=IIF(STCRD->VATCOD='0', STCRD->TRNVAL, 0); sumamt0 =sumamt0+amt0"
~NETAMT1: 0, "ZZ,ZZZ,ZZZ.ZZ", "amt1", "amt1=IIF(STCRD->VATCOD#'0', STCRD->TRNVAL, 0); sumamt1 =sumamt1+amt1"
~SUMAMT0: 0, "99,999,999.99", "sumamt0", ""
~SUMAMT1: 0, "99,999,999.99", "sumamt1", ""

~HREM1: 0, "", "p_hrem( A->DOCNUM,1,A->SONUM )", ""
~HREM2: 0, "", "p_hrem( A->DOCNUM,2,A->SONUM )", ""
~HREM3: 0, "", "p_hrem( A->DOCNUM,3,A->SONUM )", ""
~HREM4: 0, "", "p_hrem( A->DOCNUM,4,A->SONUM )", ""
~HREM5: 0, "", "p_hrem( A->DOCNUM,5,A->SONUM )", ""

~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( A->DEPCOD )", ""
~LOCAREA: 0, "", "STLOC->AREA", ""
~RDOCNUM: 0, "", "so", "so = SUBSTR( STCRD->RDOCNUM,1,12)"

~NETAMT: 0, "99,999,999.99", "ARTRN->NETAMT", ""
~AMTRATZ: 0, "99,999,999.99", "AMTRATZ", "AMTRATZ = ARTRN->AMTRAT0 - (ARTRN->AMTRAT0 * ARTRN->DISCAMT / ARTRN->AMOUNT)"
~AMTRATX: 0, "99,999,999.99", "AMTRATX", "AMTRATX = IIF(ARTRN->FLGVAT='1',ARTRN->TOTAL - AMTRATZ - ARTRN->VATAMT, ARTRN->TOTAL - AMTRATZ)"
*~V: 0, "", "VAT_SYM", "VAT_SYM = IIF(STCRD->VATCOD='0', ' ', 'V')"
~V: 0, "", "STCRD->VATCOD", ""
~SHIPTO: 0, "", "ARTRN->SHIPTO", ""
~S_ADDR01: 0, "", "ARSHIP->ADDR01", ""
~S_ADDR02: 0, "", "ARSHIP->ADDR02", ""
~S_ADDR03: 0, "", "addr_03", "addr_03 = ARSHIP->ADDR03 - '•' - ARSHIP->ZIPCOD"
~S_TELNUM: 0, "", "ARSHIP->TELNUM", ""

~PRNBY: 0, "", "p_userid()", ""
~PRNDAT: 0, "", "@d_prndat()", ""
~PRNTIM: 0, "", "s_prntim()", ""
~PRNCNT: 0, "999", "@n_prncnt()", ""
~RECBY: 0, "", "A->USERID", ""
~TAXIDA: 0, "", "ARMAS->TAXID", ""

*~EDT: 0, "", "edt_name", "edt_name = artrn->USERID",S
~EDT: 0, "", "edt_name", "edt_name = artrn->USERPRN",S

~USER: 0, "", "S->RECDES", ""

[savek]

ผมลองเอาคำสั่งข้างล่างนี้ ก๊อปปี้ไปแปะไว้ในส่วนของ [relate file]

File=SCUSER
Alias=S
Key=RECCOD
Index=aa
System=SECURE_PATH
Master file=ARTRN
Master-Related Field=USERID

และใส่บรรทัดคำสั่งนี้ในส่วนของ [data spec] บรรทัดสุดท้าย

~USER: 0, "", "S->RECDES", ""

ผลลัพธ์ก็ออกมาให้ถูกต้อง ดังนั้นต้องดูว่าคุณเอาตัวแปร ~USER ไปใส่ไว้ในบรรทัดไหน หรือมีคำสั่งอื่นๆ ในแบบฟอร์มที่ผิดพลาดอีกหรือไม่
ถ้ายังแก้ไขไม่ได้อีก ก๊อปปี้มาทั้งหน้าจอแก้ไขแบบฟอร์มเลยครับ

[twinkins]

* ARIVC.RN - ใบกำกับสินค้า•(INVOICE)
*
[report frame]
*** ผู้ใช้สามารถเปลี่ยนแปลงแก้ไข•ได้ตามต้องการ•********************************************
Ti:: ~INIT
He:
He:
He:
He: \027\074\030 ~CUSCOD IV~DOCNUM1
He: ~CUSNAM ~DOCDAT
He: ~ADDR01
He: ~ADDR02 ~CR ~DUEDAT
He: ~ADDR03
He: เลขประจำตัวผู้เสียภาษี•~TAXIDA ~SLMCOD
He: ~DLVBY ~AREA ~USER
He:
He:
He:
Bo::
Ih:: ;1 stcrd->docnum artrn->docnum
Ib: ~N ~STKDES ~QTY ~T ~UNITPR ~DISC_I ~NETAMT_I ;1
Ih:: ;2 artrnrm->docnum+artrnrm->seqnum stcrd->rdocnum
Ib: ~REMARK ;2
Ih:: ;3 artrnrm->docnum+artrnrm->seqnum stcrd->docnum+stcrd->seqnum
Ib: ~REMARK ;3
Fo:
Su: ~AMOUNT
Su: ~HREM1 ~DISC ~DISCAMT
Su: ~HREM2 ~CHKAMT
Su: ~HREM3 ~VAT % ~VATAMT
Su:\027\074\035 ~BAHT ~TOTAL
Su:
[end frame]

*** คำสั่งต่อจากนี้•ผู้ใช้ไม่ควรแก้ไข•****************************************

[print options]
Top=0
Left=0
Tabs=3
Right=100
Lines=34
Output=Select, Printer, Screen, File,
File Name=ARIVC.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=ON
Form=ON
Select Page=ON
Condition=OFF

[range of report]
From=CUR

[master file]
File=artrn
Alias=A
Tag=artrn1
System=DATA_PATH

[item file]
File=stcrd
Alias=B
Tag=stcrd5
System=DATA_PATH

File=artrnrm
Alias=C
Tag=artrnrm1
System=DATA_PATH

[relate file]
File=armas
Alias=R
Tag=armas1
System=DATA_PATH
Master file=artrn
Master-Related Field=CUSCOD

File=stmas
Alias=C
Tag=stmas1
System=DATA_PATH
Master file=stcrd
Master-Related Field=STKCOD

File=oeso
Alias=Y
Tag=oeso1
System=DATA_PATH
Master file=artrn
Master-Related Field=SONUM

File=stloc
Alias=L
Tag=stloc1
System=DATA_PATH
Master file=stcrd
Master-Related Field=STKCOD+LOCCOD

File=SCUSER
Alias=S
Key=RECCOD
Index=aa
System=SECURE_PATH
Master file=ARTRN
Master-Related Field=USERID


[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~ADDR: 0, "", "p_addr()", ""
~TAXID: 0, "", "p_taxid()", ""
~TEL: 0, "", "p_telnum()", ""
~INIT: 0, "", "", "seq=0; sumamt0=0; sumamt1=0"
~TXT0: 0, "", "txt0", "txt0 = IIF( ARTRN->FLGVAT <> '1', ' จำนวนเงิน', 'ราคารวมภาษี')",
*~TXT1: 0, "", "txt1", "txt1 = IIF( ARTRN->FLGVAT <> '1', 'จำนวนเงินหลังหักส่วนลด', 'จำนวนเงินรวมทั้งสิ้น ')",
~TXT1: 0, "", "txt1", "txt1 = IIF( ARTRN->FLGVAT <> '1', 'จำนวนเงินหลังหักมัดจำ ', 'จำนวนเงินรวมทั้งสิ้น ')",
~TXT2: 0, "", "txt2", "txt2 = IIF( ARTRN->FLGVAT <> '1', 'จำนวนเงินรวมทั้งสิ้น', 'ราคาสินค้า ')",
*~DOCNUM: 0, "", "doc_num", "doc_num=SUBSTR(ARTRN->DOCNUM, 3, "
~DOCNUM1: 0, "", "doc_num", "doc_num=SUBSTR(ARTRN->DOCNUM, 3, 10)"
~DOCNUM: 0, "", "ARTRN->DOCNUM", ""
~DOCDAT: 0, "", "ARTRN->DOCDAT", ""
~CUSCOD: 0, "", "ARTRN->CUSCOD", ""
~CUSNAM: 0, "", "cus_nam", "cus_nam = ARMAS->PRENAM - '•' - ARMAS->CUSNAM"
~ADDR01: 0, "", "ARMAS->ADDR01", ""
~ADDR02: 0, "", "ARMAS->ADDR02", ""
~ADDR03: 0, "", "addr_03", "addr_03 = ARMAS->ADDR03 - '•' - ARMAS->ZIPCOD"
~TELNUM: 0, "", "ARMAS->TELNUM", ""
~YOUREF: 0, "", "ARTRN->YOUREF", ""
*~SLMCOD: 55, "", "slm", "slm = OESLM->SLMNAM"
~SLMCOD: 55, "", "slm", "slm = ARTRN->SLMCOD-'-'-OESLM->SLMNAM"
~CR: 0, "ZZZ", "ARTRN->PAYTRM", ""
~DUEDAT: 0, "", "ARTRN->DUEDAT", ""
~DLVBY: 0, "", "p_istab( ARTRN->DLVBY, 41, 1, 40 )", ""
~AREA: 0, "", "p_istab( ARTRN->AREACOD, 40, 1, 40 )", ""
~SONUM: 0, "", "ARTRN->SONUM", ""
~SODAT: 0, "", "OESO->SODAT", ""
~FLGVAT: 0, "Y", "ARTRN->FLGVAT", ""
~AMOUNT: 0, "99,999,999.99", "ARTRN->AMOUNT", ""
~DISC: 0, "", "ARTRN->DISC", ""
~DISCAMT: 0, "99,999,999.99", "ARTRN->DISCAMT", ""
~AFTDISC: 0, "99,999,999.99", "ARTRN->AFTDISC", ""
~ADVNUM: 0, "", "ARTRN->ADVNUM", ""
~ADVAMT: 0, "99,999,999.99", "ARTRN->ADVAMT", ""
~TOTAL: 0, "99,999,999.99", "ARTRN->TOTAL", ""
~VAT: 0, "99.99", "ARTRN->VATRAT", ""
~VATAMT: 0, "99,999,999.99", "ARTRN->VATAMT", ""
~CHKAMT: 0, "99,999,999.99", "netamt", "netamt = IIF( ARTRN->FLGVAT <> '1', ARTRN->NETAMT, ARTRN->TOTAL - ARTRN->VATAMT)"
~BAHT: 0, "", "t_baht(ARTRN->NETAMT)" ""

~N: 0, "999", "seq", "seq=seq+1"
~ARTICLE: 0, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~STKCOD: 0, "", "STCRD->STKCOD", ""
~STKDES: 80, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "qtyZ(8)", "STCRD->TRNQTY", ""
~T: 3, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", ""

~UNITPR: 0, "priZ(10)", "STCRD->UNITPR", ""
~DISC_I: 0, "", "STCRD->DISC", ""
~NETAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
~MQTY: 0, "ZZ,ZZZ", "mqty", "mqty = STCRD->TRNQTY * STCRD->TFACTOR"
~MQUCOD: 0, "", "p_istab( STMAS->QUCOD, 20, 1, 0 )", "",

~NETAMT0: 0, "ZZ,ZZZ,ZZZ.ZZ", "amt0", "amt0=IIF(STCRD->VATCOD='0', STCRD->TRNVAL, 0); sumamt0 =sumamt0+amt0"
~NETAMT1: 0, "ZZ,ZZZ,ZZZ.ZZ", "amt1", "amt1=IIF(STCRD->VATCOD#'0', STCRD->TRNVAL, 0); sumamt1 =sumamt1+amt1"
~SUMAMT0: 0, "99,999,999.99", "sumamt0", ""
~SUMAMT1: 0, "99,999,999.99", "sumamt1", ""

~HREM1: 0, "", "p_hrem( A->DOCNUM,1,A->SONUM )", ""
~HREM2: 0, "", "p_hrem( A->DOCNUM,2,A->SONUM )", ""
~HREM3: 0, "", "p_hrem( A->DOCNUM,3,A->SONUM )", ""
~HREM4: 0, "", "p_hrem( A->DOCNUM,4,A->SONUM )", ""
~HREM5: 0, "", "p_hrem( A->DOCNUM,5,A->SONUM )", ""

~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( A->DEPCOD )", ""
~LOCAREA: 0, "", "STLOC->AREA", ""
~RDOCNUM: 0, "", "so", "so = SUBSTR( STCRD->RDOCNUM,1,12)"

~NETAMT: 0, "99,999,999.99", "ARTRN->NETAMT", ""
~AMTRATZ: 0, "99,999,999.99", "AMTRATZ", "AMTRATZ = ARTRN->AMTRAT0 - (ARTRN->AMTRAT0 * ARTRN->DISCAMT / ARTRN->AMOUNT)"
~AMTRATX: 0, "99,999,999.99", "AMTRATX", "AMTRATX = IIF(ARTRN->FLGVAT='1',ARTRN->TOTAL - AMTRATZ - ARTRN->VATAMT, ARTRN->TOTAL - AMTRATZ)"
*~V: 0, "", "VAT_SYM", "VAT_SYM = IIF(STCRD->VATCOD='0', ' ', 'V')"
~V: 0, "", "STCRD->VATCOD", ""
~SHIPTO: 0, "", "ARTRN->SHIPTO", ""
~S_ADDR01: 0, "", "ARSHIP->ADDR01", ""
~S_ADDR02: 0, "", "ARSHIP->ADDR02", ""
~S_ADDR03: 0, "", "addr_03", "addr_03 = ARSHIP->ADDR03 - '•' - ARSHIP->ZIPCOD"
~S_TELNUM: 0, "", "ARSHIP->TELNUM", ""

~PRNBY: 0, "", "p_userid()", ""
~PRNDAT: 0, "", "@d_prndat()", ""
~PRNTIM: 0, "", "s_prntim()", ""
~PRNCNT: 0, "999", "@n_prncnt()", ""
~RECBY: 0, "", "A->USERID", ""
~TAXIDA: 0, "", "ARMAS->TAXID", ""

~EDT: 0, "", "edt_name", "edt_name = artrn->USERPRN",S


~USER: 0, "", "S->RECDES", "

~DLVABBR: 0, "", "p_istab( ARTRN->DLVBY, 41, 0, 40 )", ""

[twinkins]

มันขึ้นว่า ไม่สามารถเปิดแฟ้ม ดัชนี aa

[savek]

ผมก๊อปปี้คำสั่งที่แปะไปทดสอบดู ชื่อผู้ใช้ก็ขึ้นให้ปกติ

ลองแก้ไขแบบนี้ดู

File=SCUSER
Alias=S
Key=RECCOD
Index=d:\aa
System=SECURE_PATH
Master file=ARTRN
Master-Related Field=USERID

ระบุไดร์ฟที่มีอยู่จริงในเครื่องเอาไว้ด้านหน้าคำว่า aa ( และต้องไม่ใช่ไดร์ฟ C: )

[twinkins]

ได้แล้วค่ะ ตัดบรรทัด Index ออก ก็แสดงผลได้เลยค่ะ

แต่ว่า ชื่อ บาง User มันออกมา เป็นชื่อเก่า ที่แก้ ออกไปแล้ว พอจะแก้ไขได้มั้ยคะ

[savek]

น่าจะเป็นเพราะไม่มีคำสั่ง index นะครับ ยังไงลองเพิ่มอย่างที่ผมแปะคำสั่งไว้ก่อนหน้านี้ คือ Index=D:\aa (เปลี่ยนจากไดร์ฟ D: เป็นไดร์ฟที่มีอยู่จริงในเครื่องของลูกค้า เช่น อาจจะเป็น Index=E:\aa)