เพิ่ม
Ib: ~N ~ARTICLE ~NETAMT0 ~NETAMT1 ;1
เพิ่ม ที่ช่องรวมเงิน
Su: หมายเหตุ รวมเป็นเงิน ~SUMAMT0 ~SUMAMT1
ส่วนท้ายนี้ Copy ทั้งหมดวางทับเลยค่ะ (ระวังว่ามีการออกแบบรายงานเป็นพิเศษอยู่รึเปล่าด้วยนะคะ)
[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=41
Output=Select, Printer, Screen, File,
File Name=ARIVC.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
[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
[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,
"
~DOCNUM: 0, "", "ARTRN->DOCNUM", ""
*~DOCDAT: 0, "", "p_date( ARTRN->DOCDAT)", ""
~DOCDAT: 0, "", "ARTRN->DOCDAT", ""
~CUSCOD: 0, "", "ARTRN->CUSCOD", ""
~CUSNAM: 0, "", "cus_nam", "cus_nam = ARMAS->PRENAM - '
)
