แก้ไขฟอร์มออกบิล ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน)
โพสต์แล้ว: จันทร์ ม.ค. 06, 2020 6:17 pmอยากถามแอดมินครับ
ปกติ ปริ้นบิล 1ใบ =1หน้า =เอกสาร1ชุด
อยากแก้ไขฟอร์มออกบิล
ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน) ทุกๆอย่าง เหมือนกัน
โดยที่ เอกสารชุดบนเป็น ต้นฉบับ ..... เอกสารชุดอันล่าง เป็นสำเนา
ตรงกลาง เอาไว้ให้ คัทเตอร์ตัด ฉีกเอาหน่ะครับ
ประหยัดกระดาษ ไม่ต้องปริ้น2ที ทำไงก็ได้ เบียดบรรทัดได้สุดๆ
ตอนนี้ปรับ ฟอร์มมา ยังงง เป็นแบบข้างล่าง
หรือ มีวิธีช่วยแนะนำด้วยครับ
และส่วนbodyตรงกลาง ช่องสินค้าที่ขาย อยากจะfix ไม่เกิน3บรรทัด ได้ไหม? เพราะปกติ ขายทีละ1ชิ้นอยู่แล้ว
===============================================
* ARCSH.RL - บิลเงินสด (CASH RECEIPT)
*
[report frame]
*** ผู้ใช้สามารถเปลี่ยนแปลงแก้ไข•ได้ตามต้องการ•****************************************
Ti:: ~INIT
He:\NAME•••••••••••••••••••••••••••••••••(สำนักงานใหญ่)•••••เลขประจำตัวผู้เสียภาษี•~TAXID
He:~ADDR •••••••••••••~TEL
He: •ใบเสร็จรับเงิน/ใบกำกับภาษีอย่างย่อ••••••••••••••••••••••RECEIPT•&•TAX•INVOICE•ABB.
He: •รหัสลูกค้า ~CUSCOD เลขที่เอกสาร••• ~DOCNUM
He: ~CUSNAM••••••••••••••••••••••••••••••••••••••••••••••••วันที่ •~DOCDAT
*He: ~ADDR01
*He: ~ADDR02••••••••••••••••~ADDR03
*He: โทร. ~TELNUM เลขที่ใบสั่งขาย ~SONUM ลวท.~SODAT
He: อ้างอิง ~YOUREF พนักงานขาย ~SLMCOD
*He: ขนส่งโดย ~DLVBY เขตการขาย ~AREA
He:------------------------------------------------- -------------- ----------- --------------
He: รหัสสินค้า/รายละเอียด จำนวน หน่วยละ •~TXT0
*He:------------------------------------------------- -------------- ----------- --------------
Bo::
Ih:: ;1 stcrd->docnum artrn->docnum
Ib:~ARTICLE ~QTY ~TQUCOD ~UNITPR ~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
*Ih: ;4 arrcpcq->rcpnum artrn->docnum
*Ih: ชำระโดยอื่น•ๆ•:-
*Ib: ~BY ~CHQNUM ~CHQDAT ~RCVAMT_Q ~AMOUNT_Q ~BNKCOD ;4
Bt:
Fo:------------------------------------------------- -------------- ----------- --------------
Su: หมายเหตุ ~HREM1 รวมเป็นเงิน ~AMOUNT
Su: ผู้ซื้อได้รับสินค้าตามรายการข้างบนนี้ไว้ถูกต้อง $_หัก$_ส่วนลด ~DISC ~DISCAMT
Su: และอยู่ในสภาพเรียบร้อยทุกประการ ราคาสินค้าก่อนVAT ~CHKAMT
Su: ~HREM4 จำนวนภาษีมูลค่าเพิ่ม ~VAT % ~VATAMT
Su: ~BAHT รวมทั้งสิ้น •••••• ~TOTAL
*Su: ~HREM5 ยอดหลังหักส่วนลด ~AFTDISC
*Su: ~HREM2 $_หัก$_เงินมัดจำ #~ADVNUM ~ADVAMT
*Su: ~HREM3
*Su: ~HREM4 สินค้ายกเว้นภาษีมูลค่าเพิ่ม ~AMTRATZ
*Su: ~HREM5 มูลค่าสินค้าอัตรา ~VAT % ~AMTRATX
*Su: จำนวนเงินภาษีมูลค่าเพิ่ม ~VATAMT
*Su: ~BAHT ~TXT1 ~NETAMT
Su:--------------------------------------------- ------------------- --------------------------
*Su: ได้รับสินค้าตามรายการข้างบนนี้ไว้ถูกต้อง• ~SLMCOD
*Su: และอยู่ในสภาพเรียบร้อยทุกประการ
Su: •••••••••ในนาม \NAME
Su: ผู้รับสินค้า•___________•วันที่•___/___/___ ผู้รับเงิน/ผู้รับมอบอำนาจ••_______________
*Su: พิมพ์โดย ~PRNBY วันที่ ~PRNDAT ~PRNTIM พิมพ์ครั้งที่~PRNCNT บันทึกโดย ~RECBY
*Su:--Lines=41------------------------------------------- -----------------------------------------------
Su:•••สิทธิ์ผู้บริโภค•:•ผู้ซื้อมีสิทธิ์ยกเลิกซื้อสินค้านี้ได้โดยแจ้งมายังบริษัทฯโดยตรง•ภายใน7วันนับจากวันที่ได้รับสินค้า•และบริษัทฯ
Su:•จะคืนเงินเต็มจำนวนตามใบเสร็จนี้•ภายใน15วันนับตั้งแต่วันที่แจ้งมา••••###•กรณีลูกค้าขอเปลี่ยนใบกำกับภาษีอย่างย่อฉบับนี้
Su:•เป็นใบกำกับภาษีแบบเต็มรูปแบบ•ผู้ซื้อก็ต้องแจ้งภายใน7วันหลังได้รับสินค้าเช่นกัน•มิฉะนั้นบริษัทฯไม่สามารถดำเนินการใดๆได้
Su:•---------------------------------------------------------------------------------------------
[end frame]
*** คำสั่งต่อจากนี้•ผู้ใช้ไม่ควรแก้ไข•****************************************
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=26
Output=Select, Printer, Screen, File,
File Name=ARCSH.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=OFF
*Form=ON
Select Page=OFF
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
File=arrcpcq
Alias=D
Tag=arrcpcq1
System=DATA_PATH
[relate file]
File=armas
Alias=R
Tag=armas1
System=DATA_PATH
Master file=artrn
Master-Related Field=CUSCOD
File=stmas
Alias=M
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
[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, "", "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: 27, "", "slm", "slm = ARTRN->SLMCOD-'-'-OESLM->SLMNAM"
~DLVBY: 0, "", "p_istab( ARTRN->DLVBY, 41, 1, 40 )", ""
~AREA: 27, "", "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: 42, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~STKCOD: 15, "", "STCRD->STKCOD", ""
~STKDES: 28, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "qtyZ(7)", "STCRD->TRNQTY", ""
~TQUCOD: 0, "", "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", ""
~SONUM_I: 0, "", "STCRD->RDOCNUM", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
~MQTY: 0, "qtyZ(7)", "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", ""
~BY: 0, "", "p_isrun( ARRCPCQ->CHQNUM, ZR, 1, 0)", ""
~CHQNUM: 0, "", "chqnum", "chqnum= substr(ARRCPCQ->CHQNUM,3,8)"
~CHQDAT: 0, "", "BKTRN->CHQDAT", ""
~BNKCOD: 0, "", "p_istab( BKTRN->BNKCOD, 01, 0, 0)", ""
~AMOUNT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->AMOUNT", ""
~REMAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->REMAMT", ""
~RCVAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "ARRCPCQ->RCVAMT", ""
*~HREM1: 0, "", "x1", "x1=@p_hrem( A->DOCNUM,1,A->SONUM ); x1=IIF(x1=' ',SUBSTR(ARMAS->PRENAM-'•'-ARMAS->CUSNAM,1,50),x1)"
*~HREM2: 0, "", "x2", "x2=@p_hrem( A->DOCNUM,2,A->SONUM ); x2=IIF(x2=' ',ARMAS->ADDR01,x2)"
*~HREM3: 0, "", "x3", "x3=@p_hrem( A->DOCNUM,3,A->SONUM ); x3=IIF(x3=' ',ARMAS->ADDR02,x3)"
*~HREM4: 0, "", "x4", "x4=@p_hrem( A->DOCNUM,4,A->SONUM ); x4=IIF(x4=' ',ARMAS->TELNUM,x4)"
*~HREM5: 0, "", "x5", "x5=@p_hrem( A->DOCNUM,5,A->SONUM ); x5=IIF(x5=' ',ARMAS->REMARK,x5)"
~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", ""
ปกติ ปริ้นบิล 1ใบ =1หน้า =เอกสาร1ชุด
อยากแก้ไขฟอร์มออกบิล
ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน) ทุกๆอย่าง เหมือนกัน
โดยที่ เอกสารชุดบนเป็น ต้นฉบับ ..... เอกสารชุดอันล่าง เป็นสำเนา
ตรงกลาง เอาไว้ให้ คัทเตอร์ตัด ฉีกเอาหน่ะครับ
ประหยัดกระดาษ ไม่ต้องปริ้น2ที ทำไงก็ได้ เบียดบรรทัดได้สุดๆ
ตอนนี้ปรับ ฟอร์มมา ยังงง เป็นแบบข้างล่าง
หรือ มีวิธีช่วยแนะนำด้วยครับ
และส่วนbodyตรงกลาง ช่องสินค้าที่ขาย อยากจะfix ไม่เกิน3บรรทัด ได้ไหม? เพราะปกติ ขายทีละ1ชิ้นอยู่แล้ว
===============================================
* ARCSH.RL - บิลเงินสด (CASH RECEIPT)
*
[report frame]
*** ผู้ใช้สามารถเปลี่ยนแปลงแก้ไข•ได้ตามต้องการ•****************************************
Ti:: ~INIT
He:\NAME•••••••••••••••••••••••••••••••••(สำนักงานใหญ่)•••••เลขประจำตัวผู้เสียภาษี•~TAXID
He:~ADDR •••••••••••••~TEL
He: •ใบเสร็จรับเงิน/ใบกำกับภาษีอย่างย่อ••••••••••••••••••••••RECEIPT•&•TAX•INVOICE•ABB.
He: •รหัสลูกค้า ~CUSCOD เลขที่เอกสาร••• ~DOCNUM
He: ~CUSNAM••••••••••••••••••••••••••••••••••••••••••••••••วันที่ •~DOCDAT
*He: ~ADDR01
*He: ~ADDR02••••••••••••••••~ADDR03
*He: โทร. ~TELNUM เลขที่ใบสั่งขาย ~SONUM ลวท.~SODAT
He: อ้างอิง ~YOUREF พนักงานขาย ~SLMCOD
*He: ขนส่งโดย ~DLVBY เขตการขาย ~AREA
He:------------------------------------------------- -------------- ----------- --------------
He: รหัสสินค้า/รายละเอียด จำนวน หน่วยละ •~TXT0
*He:------------------------------------------------- -------------- ----------- --------------
Bo::
Ih:: ;1 stcrd->docnum artrn->docnum
Ib:~ARTICLE ~QTY ~TQUCOD ~UNITPR ~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
*Ih: ;4 arrcpcq->rcpnum artrn->docnum
*Ih: ชำระโดยอื่น•ๆ•:-
*Ib: ~BY ~CHQNUM ~CHQDAT ~RCVAMT_Q ~AMOUNT_Q ~BNKCOD ;4
Bt:
Fo:------------------------------------------------- -------------- ----------- --------------
Su: หมายเหตุ ~HREM1 รวมเป็นเงิน ~AMOUNT
Su: ผู้ซื้อได้รับสินค้าตามรายการข้างบนนี้ไว้ถูกต้อง $_หัก$_ส่วนลด ~DISC ~DISCAMT
Su: และอยู่ในสภาพเรียบร้อยทุกประการ ราคาสินค้าก่อนVAT ~CHKAMT
Su: ~HREM4 จำนวนภาษีมูลค่าเพิ่ม ~VAT % ~VATAMT
Su: ~BAHT รวมทั้งสิ้น •••••• ~TOTAL
*Su: ~HREM5 ยอดหลังหักส่วนลด ~AFTDISC
*Su: ~HREM2 $_หัก$_เงินมัดจำ #~ADVNUM ~ADVAMT
*Su: ~HREM3
*Su: ~HREM4 สินค้ายกเว้นภาษีมูลค่าเพิ่ม ~AMTRATZ
*Su: ~HREM5 มูลค่าสินค้าอัตรา ~VAT % ~AMTRATX
*Su: จำนวนเงินภาษีมูลค่าเพิ่ม ~VATAMT
*Su: ~BAHT ~TXT1 ~NETAMT
Su:--------------------------------------------- ------------------- --------------------------
*Su: ได้รับสินค้าตามรายการข้างบนนี้ไว้ถูกต้อง• ~SLMCOD
*Su: และอยู่ในสภาพเรียบร้อยทุกประการ
Su: •••••••••ในนาม \NAME
Su: ผู้รับสินค้า•___________•วันที่•___/___/___ ผู้รับเงิน/ผู้รับมอบอำนาจ••_______________
*Su: พิมพ์โดย ~PRNBY วันที่ ~PRNDAT ~PRNTIM พิมพ์ครั้งที่~PRNCNT บันทึกโดย ~RECBY
*Su:--Lines=41------------------------------------------- -----------------------------------------------
Su:•••สิทธิ์ผู้บริโภค•:•ผู้ซื้อมีสิทธิ์ยกเลิกซื้อสินค้านี้ได้โดยแจ้งมายังบริษัทฯโดยตรง•ภายใน7วันนับจากวันที่ได้รับสินค้า•และบริษัทฯ
Su:•จะคืนเงินเต็มจำนวนตามใบเสร็จนี้•ภายใน15วันนับตั้งแต่วันที่แจ้งมา••••###•กรณีลูกค้าขอเปลี่ยนใบกำกับภาษีอย่างย่อฉบับนี้
Su:•เป็นใบกำกับภาษีแบบเต็มรูปแบบ•ผู้ซื้อก็ต้องแจ้งภายใน7วันหลังได้รับสินค้าเช่นกัน•มิฉะนั้นบริษัทฯไม่สามารถดำเนินการใดๆได้
Su:•---------------------------------------------------------------------------------------------
[end frame]
*** คำสั่งต่อจากนี้•ผู้ใช้ไม่ควรแก้ไข•****************************************
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=26
Output=Select, Printer, Screen, File,
File Name=ARCSH.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=OFF
*Form=ON
Select Page=OFF
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
File=arrcpcq
Alias=D
Tag=arrcpcq1
System=DATA_PATH
[relate file]
File=armas
Alias=R
Tag=armas1
System=DATA_PATH
Master file=artrn
Master-Related Field=CUSCOD
File=stmas
Alias=M
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
[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, "", "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: 27, "", "slm", "slm = ARTRN->SLMCOD-'-'-OESLM->SLMNAM"
~DLVBY: 0, "", "p_istab( ARTRN->DLVBY, 41, 1, 40 )", ""
~AREA: 27, "", "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: 42, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~STKCOD: 15, "", "STCRD->STKCOD", ""
~STKDES: 28, "", "STCRD->STKDES", ""
~L: 0, "", "STCRD->LOCCOD", ""
~QTY: 0, "qtyZ(7)", "STCRD->TRNQTY", ""
~TQUCOD: 0, "", "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", ""
~SONUM_I: 0, "", "STCRD->RDOCNUM", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""
~MQTY: 0, "qtyZ(7)", "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", ""
~BY: 0, "", "p_isrun( ARRCPCQ->CHQNUM, ZR, 1, 0)", ""
~CHQNUM: 0, "", "chqnum", "chqnum= substr(ARRCPCQ->CHQNUM,3,8)"
~CHQDAT: 0, "", "BKTRN->CHQDAT", ""
~BNKCOD: 0, "", "p_istab( BKTRN->BNKCOD, 01, 0, 0)", ""
~AMOUNT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->AMOUNT", ""
~REMAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "BKTRN->REMAMT", ""
~RCVAMT_Q: 0, "ZZ,ZZZ,ZZZ.ZZ", "ARRCPCQ->RCVAMT", ""
*~HREM1: 0, "", "x1", "x1=@p_hrem( A->DOCNUM,1,A->SONUM ); x1=IIF(x1=' ',SUBSTR(ARMAS->PRENAM-'•'-ARMAS->CUSNAM,1,50),x1)"
*~HREM2: 0, "", "x2", "x2=@p_hrem( A->DOCNUM,2,A->SONUM ); x2=IIF(x2=' ',ARMAS->ADDR01,x2)"
*~HREM3: 0, "", "x3", "x3=@p_hrem( A->DOCNUM,3,A->SONUM ); x3=IIF(x3=' ',ARMAS->ADDR02,x3)"
*~HREM4: 0, "", "x4", "x4=@p_hrem( A->DOCNUM,4,A->SONUM ); x4=IIF(x4=' ',ARMAS->TELNUM,x4)"
*~HREM5: 0, "", "x5", "x5=@p_hrem( A->DOCNUM,5,A->SONUM ); x5=IIF(x5=' ',ARMAS->REMARK,x5)"
~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", ""