แก้ไขฟอร์มใบวางบิลให้แสดงรายการสินค้า,โปรแกรมบัญชี Express

[sawitreesasa]

แก้ไขฟอร์มใบวางบิล ให้ขึ้นรหันรหัสสินค้าทำดังไฟล์แนบแล้วไมม่ได้ค่ะ
* ARBIL.RN - ãºÇÒ§ºÔÅ (BILLING SLIP)
*
[report frame]
*** ¼ÙéãªéÊÒÁÒöà»ÅÕè¹á»Å§á¡é䢕ä´éµÒÁµéͧ¡ÒÕ****************************************
Ti:: ~INIT
He:
He:
He:
He:
He: ~CUSCOD ~BILNUM
He: ~CUSNAM
He: ~ADDR01 ~BILDAT
He: ~ADDR02
He: ~ADDR03 ~PAYCOND
He: ~REMARK
He:
He:
He:
Bo::
Ih:: ;1 artrn->bilnum arbil->bilnum
Ib: ~N ~IVCNUM ~IVCDAT ~DUEDAT ~NETAMT_I ~RCVAMT_I ~REMAMT_I ;1
Fo:
Su: ~BAHT ~NETAMT
Su:
Su:
Su: ~HREM1
Su: ~HREM2
Su:
Su:
Su:
Su:
Su:
*Su: ¾ÔÁ¾ìâ´Â ~PRNBY Çѹ·Õè ~PRNDAT ~PRNTIM ¤ÃÑ駷Õè~PRNCNT ºÑ¹·Ö¡â´Â ~RECBY
Su:
[end frame]

*** ¤ÓÊÑ觵èͨҡ¹Õ镼ÙéãªéäÁè¤ÇÃá¡é䢕****************************************

[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=38
Output=Select, Printer, Screen, File,
File Name=ARBIL.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=arbil
Alias=A
Tag=arbil1
System=DATA_PATH

[item file]
File=artrn
Alias=B
Tag=artrn4
System=DATA_PATH

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

[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; sumbil=0"
~BILNUM: 0, "", "ARBIL->BILNUM", ""
~BILDAT: 0, "", "ARBIL->BILDAT", ""
~CUSCOD: 0, "", "ARBIL->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", ""
~PAYCOND: 0, "", "ARBIL->PAYCOND", ""
~REMARK: 0, "", "ARBIL->REMARK", ""
~BILOUT: 0, "", "ARBIL->BILOUT", ""
~NETAMT: 0, "99,999,999.99", "bilamt", "bilamt=IIF(STR(ARBIL->NETAMT,15,2) # STR(sumbil,15,2), 999999999999.99, ARBIL->NETAMT)"
~BAHT: 0, "", "t_baht(ARBIL->NETAMT)", ""

~N: 0, "999", "seq", "seq=seq+1"
~IVCNUM: 0, "", "ARTRN->DOCNUM", ""
~IVCDAT: 0, "", "ARTRN->DOCDAT", ""
*~DUEDAT: 0, "", "ARTRN->DUEDAT", ""
~DUEDAT: 0, "", "DUE", "DUE=IIF(ARTRN->RECTYP='3',ARTRN->DUEDAT,CTOD(' '))"
~NETAMT_I: 0, "99,999,999.99", "ARTRN->NETAMT", ""
~RCVAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "ARTRN->RCVAMT", ""
~REMAMT_I: 0, "99,999,999.99", "rem", "rem = IIF(ARTRN->RECTYP='0'.or.ARTRN->RECTYP='5',ARTRN->REMAMT*-1,ARTRN->REMAMT); sumbil=sumbil+rem"

~BEFVAT_I: 0, "99,999,999.99", "befvat", "befvat = IIF(ARTRN->FLGVAT='1',ARTRN->NETAMT-ARTRN->VATAMT,ARTRN->TOTAL)"
~VATAMT_I: 0, "99,999,999.99", "ARTRN->VATAMT", ""
~AFTVAT_I: 0, "99,999,999.99", "net", "net = IIF(ARTRN->RECTYP='0'.or.ARTRN->RECTYP='5',ARTRN->NETAMT*-1,ARTRN->NETAMT); sumbil=sumbil+net"

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

~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( A->DEPCOD )", ""

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

[savek]

เพิ่มในส่วนของ [report frame] แบบนี้ครับ

Ih:: ;1 artrn->bilnum arbil->bilnum
Ib: ~N ~IVCNUM ~IVCDAT ~DUEDAT ~NETAMT_I ~RCVAMT_I ~REMAMT_I ~BEFVAT_I ~VATAMT_I ~AFTVAT_I ;1
Ih:: ;2 stcrd->docnum artrn->docnum
Ib: ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~NETAMT_I ;2

เพิ่มในส่วนของ [item file] แบบนี้ครับ

[item file]
File=artrn
Alias=B
Tag=artrn4
System=DATA_PATH

File=stcrd
Alias=B
Tag=stcrd5
System=DATA_PATH

ตรง [data spec] ให้เพิ่มเข้าไปต่อจากบรรทัดสุดท้ายแบบนี้ครับ

~ARTICLE: 42, "", "article", "article = STCRD->STKCOD - '•' - STCRD->STKDES"
~QTY: 0, "qtyZ(7)", "STCRD->TRNQTY", ""
~TQUCOD: 9, "", "p_istab( STCRD->TQUCOD, 20, 1, 0 )", ""
~UNITPR: 0, "priZ(10)", "STCRD->UNITPR", ""
~NETAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""