อยากถามแอดมินครับ
ปกติ ปริ้นบิล 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หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน)
Moderator: Sutas, CO-Admin, Global Moderator
4 โพสต์
• หน้า 1 จากทั้งหมด 1
แก้ไขฟอร์มออกบิล ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน)
โดย VORAVIT_WIN » จันทร์ ม.ค. 06, 2020 6:17 pm
- VORAVIT_WIN
- Newbie
- โพสต์: 2
- ลงทะเบียนเมื่อ: จันทร์ ม.ค. 06, 2020 5:58 pm
Re: แก้ไขฟอร์มออกบิล ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน)
โดย savek » อังคาร ม.ค. 07, 2020 10:48 am
หลักการคือให้กำหนดจำนวนบรรทัดสำหรับครึ่งหน้ากระดาษ A4 ครับ เช่น กำหนด Lines=23 (อยู่ในส่วนของ [print option]) โดยพยายามลบบรรทัด He: หรือ Su: ที่ไม่ได้ใช้งานออกไปให้มากที่สุด
จากนั้นกำหนดคำสั่ง Copy=2 เข้าไปในส่วนของ [print options] เพื่อให้พิมพ์เอกสารเลขที่เดียวกันนี้ออกมา 2 ชุดจากการสั่งพิมพ์เพียงครั้งเดียวครับ
จากนั้นกำหนดคำสั่ง Copy=2 เข้าไปในส่วนของ [print options] เพื่อให้พิมพ์เอกสารเลขที่เดียวกันนี้ออกมา 2 ชุดจากการสั่งพิมพ์เพียงครั้งเดียวครับ
-
savek - Administrator
- โพสต์: 12463
- ลงทะเบียนเมื่อ: พฤหัสฯ. พ.ย. 15, 2007 11:04 am
Re: แก้ไขฟอร์มออกบิล ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน)
โดย VORAVIT_WIN » อังคาร ม.ค. 07, 2020 4:50 pm
ขอบคุณครับแอดมิน ใช้คำสั่ง copy=2 และลดจำนวนบรรทัด เหลือline23 เรียบร้อยแล้ว ใช้ได้
....แต่ยังไม่ตรงความต้องการ
เราสามารถบังคับ ให้ ปริ้นเอกสารทั้ง2ชุด .... ในกระดาษใบเดียวกัน (ในA4ใบเดียว) ได้หรือไม่
เพราะคำสั่ง copy=2 ที่แอดมินบอก พอลองทำแล้ว กดสั่งprint ครั้งเดียวจริง แต่เอกสาร ออกมา2ใบ
( โดยเอกสารแต่ละ ใบเหมือนกัน มีพื้นที่ว่าง ด้านล่างของแต่ละใบเยอะเท่ากัน)
================================================= ปัจจุบัน =======
* 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:------------รหัสสินค้า/รายละเอียด----------------- ---จำนวน--- --หน่วยละ--- --~TXT0 --
*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:---------------------------------------------ในนาม \NAME --------
*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=23
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
COPY=2
[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", ""
....แต่ยังไม่ตรงความต้องการ
เราสามารถบังคับ ให้ ปริ้นเอกสารทั้ง2ชุด .... ในกระดาษใบเดียวกัน (ในA4ใบเดียว) ได้หรือไม่
เพราะคำสั่ง copy=2 ที่แอดมินบอก พอลองทำแล้ว กดสั่งprint ครั้งเดียวจริง แต่เอกสาร ออกมา2ใบ
( โดยเอกสารแต่ละ ใบเหมือนกัน มีพื้นที่ว่าง ด้านล่างของแต่ละใบเยอะเท่ากัน)
================================================= ปัจจุบัน =======
* 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:------------รหัสสินค้า/รายละเอียด----------------- ---จำนวน--- --หน่วยละ--- --~TXT0 --
*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:---------------------------------------------ในนาม \NAME --------
*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=23
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
COPY=2
[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", ""
- VORAVIT_WIN
- Newbie
- โพสต์: 2
- ลงทะเบียนเมื่อ: จันทร์ ม.ค. 06, 2020 5:58 pm
Re: แก้ไขฟอร์มออกบิล ให้1หน้าA4 มีเอกสาร2ชุด(เลขที่เดียวกัน)
โดย savek » พุธ ม.ค. 08, 2020 8:39 am
ลองวัดความยาวกระดาษที่ใช้นะครับว่าถ้าครึ่งหน้ายาวประมาณเท่าไหร่ สมมติถ้ายาว 6 นิ้ว ให้ใส่คำสั่งกำหนดความยาวที่ด้านท้ายของคำสั่ง print control และเพิ่มบรรทัดคำสั่ง Feed After Print=OFF เข้าไปตามตัวอย่างข้างล่างนี้นะครับ
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=23
Output=Select, Printer, Screen, File,
File Name=ARCSH.TXT
Print Control=\027\033\001\027\067\000\006
Fix Summary Line=ON
Select Scope=OFF
*Form=ON
Select Page=OFF
Condition=OFF
Feed After Print=OFF
COPY=2
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=23
Output=Select, Printer, Screen, File,
File Name=ARCSH.TXT
Print Control=\027\033\001\027\067\000\006
Fix Summary Line=ON
Select Scope=OFF
*Form=ON
Select Page=OFF
Condition=OFF
Feed After Print=OFF
COPY=2
-
savek - Administrator
- โพสต์: 12463
- ลงทะเบียนเมื่อ: พฤหัสฯ. พ.ย. 15, 2007 11:04 am
4 โพสต์
• หน้า 1 จากทั้งหมด 1
ย้อนกลับไปยัง ถาม-ตอบปัญหาเกี่ยวกับโปรแกรม Express
ผู้ใช้งานขณะนี้
กำลังดูบอร์ดนี้: ไม่มีสมาชิกใหม่ และ บุคคลทั่วไป 17 ท่าน