ต้องการ Sum ยอดวมสินค้าในระบบ Express ต้องทำอย่างไรค่ะ

[on-anong]

ต้องการ Sum ยอดวมสินค้า IV ในระบบ Express ต้องทำอย่างไรค่ะ

Bo::
Ih::                    ;1 stcrd->docnum artrn->docnum
Ib: ~N    ~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


ต้องการให้ยอด สินค้า SUM สินค้ารวมว่ามีกี่ตัวค่ะ

[BBB_Lover]

เพิ่มและแก้ไขตามตัวอักษรสีแดงนะคะ **ใช้ได้ทั้งด้านซื้อและด้านขาย**

[report frame]
*** ผู้ใช้สามารถเปลี่ยนแปลงแก้ไขได้ตามต้องการ *************************************
Ti:: ~INIT
He:$E\NAME                                            $E
He:~ADDR


Bt:                                                                                                                 
Fo:
Su:                                        รวมจำนวน        ~SUMQTY                   
Su: หมายเหตุ                                                        รวมเป็นเงิน                        ~AMOUNT     
Su:  ~HREM1                                              หัก ส่วนลด        ~DISC      ~DISCAMT     



[end frame]
**** คำสั่งต่อไปนี้ผู้ใช้ไม่ควรแก้ไข **************************************************
[print options]
Top=0
Left=0





[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; totdr=0;totcr=0;sumqty=0"



~STKCOD:  15,      "",                "STCRD->STKCOD",    ""
~STKDES:  28,      "",                "STCRD->STKDES",    ""
~L:                0,      "",                  "STCRD->LOCCOD",    ""
~QTY:      0,      "qtyZ(7)",        "STCRD->TRNQTY",    "sumqty=sumqty+STCRD->TRNQTY"
~TQUCOD:    0,      "",                "p_istab( STCRD->TQUCOD,  20, 1, 0 )",      "",
~UNITPR:    0,      "priZ(10)",        "STCRD->UNITPR",    ""



~SUMQTY:    0,      "999,999.99",      "sumqty",          ""

[kibjung2527]

ต้องการ Sum ยอดวมสินค้า IV ในระบบ Express ต้องทำอย่างไรค่ะ

Bo::
Ih:: ;1 oesoit->sonum oeso->sonum
Ib: ~N ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~TRNVAL ;1
Ih:: ;2 artrnrm->docnum+artrnrm->seqnum oesoit->sonum+oesoit->seqnum
Ib: ~REMARK ;2
*Ih::~CLR ;3 stcrd->rdocnum oesoit->sonum+oesoit->seqnum
*Ib: ~DOCNUM ~DOCDAT ~TRNQTY ;3
If: ÃÇÁ ~SUMQ ;3


ตรงช่อง QTY อยากจะให้โชว์ ยอดรวม จำนวนสินค้าค่ะ

[kibjung2527]

ต้องการ Sum ยอดวมสินค้า SO ในระบบ Express ต้องทำอย่างไรค่ะ

Bo::
Ih:: ;1 oesoit->sonum oeso->sonum
Ib: ~N ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~TRNVAL ;1
Ih:: ;2 artrnrm->docnum+artrnrm->seqnum oesoit->sonum+oesoit->seqnum
Ib: ~REMARK ;2
*Ih::~CLR ;3 stcrd->rdocnum oesoit->sonum+oesoit->seqnum
*Ib: ~DOCNUM ~DOCDAT ~TRNQTY ;3
If: ÃÇÁ ~SUMQ ;3


ตรงช่อง QTY อยากจะให้โชว์ ยอดรวม จำนวนสินค้าค่ะ

[suchai]

*ยอดรวมสินค้าในเอกสาร IV ส่วนที่เพิ่มเติมเป็นส่วนสีแดง ใช้ตัวอย่างฟอร์มภาษาอังกฤษ วิธีเหมือนกัน RAYONG IT 06/07/2018
* ARIVC.RL - Sales/Tax Invoice
*
[report frame]
*** Modify this section as you need•*************************************
Ti:: ~INIT
He:$E\NAME $E
He:~ADDR
He:~TEL $ETax Invoice$E
He:Tax ID:•~TAXID ~P_ORGTXT ~P_ORGSTR
He:
He:Customer: ~CUSCOD ~BILLTO Invoice No. ~DOCNUM
He: ~CUSNAM
He: ~ADDR01 Date ~DOCDAT
He: ~ADDR02
He: ~ADDR03 Credit ~CR days Due Date ~DUEDAT
He: TaxID : ~TAXIDX ~ORG
He: Tel. ~TELNUM Sales Order# ~SONUM Date ~SODAT
He: Reference ~YOUREF Salesman ~SLMCOD
He: Ship-Via ~DLVBY Territory ~AREA
He:------------------------------------------------------------------------------------------------------------------------------------------
He: No. Item/Description Quantity Unit Price ~TXT0
He:------------------------------------------------------------------------------------------------------------------------------------------
Bo::
Ih:: ;1 stcrd->docnum artrn->docnum
Ib: ~N ~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
Bt:
Fo:-----------------------------------------------------------------------------------------------------------------------------------------
Su: ยอดรวมสินค้าท้ายบิล ~SUMQTY
Su: Remark: Subtotal ~AMOUNT
Su: ~HREM1 $_Less$_ Discount ~DISC ~DISCAMT
Su: ~HREM2 After Discount ~AFTDISC
Su: ~HREM3 $_Less$_ Deposit #~ADVNUM ~ADVAMT
Su: ~HREM4 ~TXT1 ~TOTAL
Su: ~HREM5 VAT Amount ~VAT % ~VATAMT
Su: ~BAHT ~TXT2 ~CHKAMT
*Su: ~HREM3
*Su: ~HREM4 Total Amount No VAT ~AMTRATZ
*Su: ~HREM5 Total Amount Rate ~VAT % ~AMTRATX
*Su: VAT Amount ~VATAMT
*Su: ~BAHT Total Invoice ~NETAMT
Su:------------------------------------------------------------------------------------------------------------------------------------------------
Su: Above mentioned goods in good order •
Su: and condition FOR \NAME
Su:
Su: Receiver ________________•Date•___/___/___ Authorized by•__________________
*Su: Print by ~PRNBY Date ~PRNDAT ~PRNTIM Print count ~PRNCNT Record by ~RECBY
Su:------------------------------------------------------------------------------------------------------------------------------------------------
[end frame]

*** Be careful to modify below section. (please study from user manual)•*****

[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; SUMQTY=0 "
~TXT0: 0, "", "txt0", "txt0 = IIF( ARTRN->FLGVAT <> '1', ' Amount ', ' Amount ')",
*~TXT1: 0, "", "txt1", "txt1 = IIF( ARTRN->FLGVAT <> '1', 'After Discount ', 'Total Invoice ')",
~TXT1: 0, "", "txt1", "txt1 = IIF( ARTRN->FLGVAT <> '1', 'After Deposit ', 'Total Invoice ')",
~TXT2: 0, "", "txt2", "txt2 = IIF( ARTRN->FLGVAT <> '1', 'Total Invoice ', 'Product Value ')",
*~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 - '•' - 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"
~CR: 0, "ZZZ", "ARTRN->PAYTRM", ""
*~DUEDAT: 0, "", "p_date( ARTRN->DUEDAT )", ""
~DUEDAT: 0, "", "ARTRN->DUEDAT", ""
~DLVBY: 0, "", "p_istab2( ARTRN->DLVBY, 41, 1, 40 )", ""
~AREA: 27, "", "p_istab2( 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, "", "e_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", "SUMQTY=SUMQTY+STCRD->TRNQTY"
~TQUCOD: 9, "", "p_istab2( 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, "ZZ,ZZZ", "mqty", "mqty = STCRD->TRNQTY * STCRD->TFACTOR"
~MQUCOD: 0, "", "p_istab2( 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, "", "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", ""

~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~BILLTO: 0, "", "A->BILLTO", "tax_id=@TAXID()"
~TAXIDX: 0, "", "tax_id", ""
*~ORG: 0, "", "org", "org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,' Head office ', 'Branch # ' -LTRIM(STR(A->ORGNUM,5,0))),' ')"
~ORG: 0, "", "org", "br=@p_orgnum_00009( A->ORGNUM ); org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,' Head office ', '•Branch # '-br),' ')"
~SEEKCUS: 0, "", "SeekCus()", ""

~SUMQTY: 0, "ZZZ,ZZZ.ZZ", "SUMQTY", ""

[suchai]

*ยอดรวมสินค้าในเอกสาร SO ส่วนที่เพิ่มเติมเป็นส่วนสีแดง ใช้ตัวอย่างฟอร์มภาษาอังกฤษ วิธีเหมือนกัน RAYONG IT 06/07/2018
* OESO.RL - Sales Order
*
[report frame]
*** Modify this section as you need•*************************************
Ti:: ~INIT
He:$E\NAME $E
He:~ADDR
He:~TEL $ESales Order$E
He:Tax ID:•~TAXID ~P_ORGTXT ~P_ORGSTR
He:
He: Customer ~CUSCOD ~BILLTO Sales Order# ~SONUM
He: ~CUSNAM
He: ~ADDR01 Date ~SODAT
He: ~ADDR02
He: ~ADDR03 Ship Date ~DLVDAT
He: TaxID ~TAXIDX ~ORG
He: Reference ~YOUREF Salesman ~SLMCOD
He: Ship-Via ~DLVBY Territory ~AREA
He:
He: No. Item/Description Quantity Unit Price ~TXT0
He:
Bo::
Ih:: ;1 oesoit->sonum oeso->sonum
Ib: ~N ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~TRNVAL ;1
Ih:: ;2 artrnrm->docnum+artrnrm->seqnum oesoit->sonum+oesoit->seqnum
Ib: ~REMARK ;2
*Ih::~CLR ;3 stcrd->rdocnum oesoit->sonum+oesoit->seqnum
*Ib: ~DOCNUM ~DOCDAT ~TRNQTY ;3
*If: Total ~SUMQ ;3
Bt:
Fo:
Su: ยอดรวมสินค้าท้ายบิล ~SUMQTY
Su: Remark Subtotal ~AMOUNT
Su: ~HREM1 $_Less$_ Discount ~DISC ~DISCAMT
Su: ~HREM2 ~TXT1 ~TOTAL
Su: ~HREM3 VAT Amount ~VAT % ~VATAMT
Su: ~BAHT ~TXT2 ~CHKAMT
*Su: ~HREM3
*Su: ~HREM4 Amount Rate 0.0 ~AMTRATZ
*Su: ~HREM5 Amount Rate ~VAT % ~AMTRATX
*Su: VAT ~VATAMT
*Su: ~BAHT Total Amount ~NETAMT
Su:
Su:
Su:
Su: ___________________ _____________________
Su: Prepared by Authorize Signature
*Su: Print by ~PRNBY Date ~PRNDAT ~PRNTIM Print count ~PRNCNT Record by ~RECBY
Su:
[end frame]

*** Be careful to modify below section. (please study from user manual)•*****

[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=41
Output=Select, Printer, Screen, File,
File Name=OESO.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=OFF
Select Page=OFF
Condition=OFF

[range of report]
From=CUR

[master file]
File=oeso
Alias=A
Tag=oeso1
System=DATA_PATH

[item file]
File=oesoit
Alias=B
Tag=oesoit1
System=DATA_PATH

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

File=stcrd
Alias=D
Tag=stcrd10
System=DATA_PATH

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

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

File=stloc
Alias=L
Tag=stloc1
System=DATA_PATH
Master file=oesoit
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; SUMQTY=0 "
~TXT0: 0, "", "txt0", "txt0 = IIF( OESO->FLGVAT <> '1', ' Amount ', ' Amount ')",
~TXT1: 0, "", "txt1", "txt1 = IIF( OESO->FLGVAT <> '1', 'After Discount', 'Total Amount ')",
~TXT2: 0, "", "txt2", "txt2 = IIF( OESO->FLGVAT <> '1', 'Total Amount ', 'Product Value ')",
~SONUM: 0, "", "OESO->SONUM", ""
~SODAT: 0, "", "OESO->SODAT", ""
~CUSCOD: 0, "", "OESO->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"
~YOUREF: 0, "", "OESO->YOUREF", ""
~SLMCOD: 27, "", "slm", "slm = OESO->SLMCOD-'-'-OESLM->SLMNAM"
~CR: 0, "ZZZ", "OESO->PAYTRM", ""
~DLVDAT: 0, "", "OESO->DLVDAT", ""
~DLVBY: 0, "", "p_istab2( OESO->DLVBY, 41, 1, 40 )", ""
~AREA: 27, "", "p_istab2( OESO->AREACOD, 40, 1, 40 )", ""
~FLGVAT: 0, "Y", "OESO->FLGVAT", ""
~AMOUNT: 0, "99,999,999.99", "OESO->AMOUNT", ""
~DISC: 0, "", "OESO->DISC", ""
~DISCAMT: 0, "99,999,999.99", "OESO->DISCAMT", ""
~TOTAL: 0, "99,999,999.99", "OESO->TOTAL", ""
~VAT: 0, "99.99", "OESO->VATRAT", ""
~VATAMT: 0, "99,999,999.99", "OESO->VATAMT", ""
~CHKAMT: 0, "99,999,999.99", "netamt", "netamt = IIF( OESO->FLGVAT <> '1', OESO->NETAMT, OESO->TOTAL - OESO->VATAMT)"
~BAHT: 0, "", "e_baht(OESO->NETAMT)" ""

~N: 0, "999", "seq", "seq=seq+1"
~ARTICLE: 42, "", "article", "article = OESOIT->STKCOD - '•' - OESOIT->STKDES"
~STKCOD: 15, "", "OESOIT->STKCOD", ""
~STKDES: 28, "", "OESOIT->STKDES", ""
~L: 0, "", "OESOIT->LOCCOD", ""
~QTY: 0, "qtyZ(7)", "OESOIT->ORDQTY", "SUMQTY=SUMQTY+OESOIT->ORDQTY"
~TQUCOD: 8, "", "p_istab2( OESOIT->TQUCOD, 20, 1, 0 )", ""
~UNITPR: 0, "priZ(10)", "OESOIT->UNITPR", ""
~DISC_I: 0, "", "OESOIT->DISC", ""
~TRNVAL: 0, "ZZ,ZZZ,ZZZ.ZZ", "OESOIT->TRNVAL", ""
~DLVDAT_I: 0, "", "OESOIT->DLVDAT", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""

*~HREM1: 0, "", "x1", "x1=@p_hrem( A->SONUM,1 ); x1=IIF(x1=' ',SUBSTR(ARMAS->PRENAM-'•'-ARMAS->CUSNAM,1,50),x1)"
*~HREM2: 0, "", "x2", "x2=@p_hrem( A->SONUM,2 ); x2=IIF(x2=' ',ARMAS->ADDR01,x2)"
*~HREM3: 0, "", "x3", "x3=@p_hrem( A->SONUM,3 ); x3=IIF(x3=' ',ARMAS->ADDR02,x3)"
*~HREM4: 0, "", "x4", "x4=@p_hrem( A->SONUM,4 ); x4=IIF(x4=' ',ARMAS->TELNUM,x4)"
*~HREM5: 0, "", "x5", "x5=@p_hrem( A->SONUM,5 ); x5=IIF(x5=' ',ARMAS->REMARK,x5)"

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

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

~NETAMT: 0, "99,999,999.99", "OESO->NETAMT", ""
~AMTRATZ: 0, "99,999,999.99", "AMTRATZ", "AMTRATZ = OESO->AMTRAT0 - (OESO->AMTRAT0 * OESO->DISCAMT / OESO->AMOUNT)"
~AMTRATX: 0, "99,999,999.99", "AMTRATX", "AMTRATX = IIF(OESO->FLGVAT='1',OESO->TOTAL - AMTRATZ - OESO->VATAMT, OESO->TOTAL - AMTRATZ)"
*~V: 0, "", "VAT_SYM", "VAT_SYM = IIF(OESOIT->VATCOD='0', ' ', 'V')"
~V: 0, "", "OESOIT->VATCOD", ""
~SHIPTO: 0, "", "OESO->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", ""

~CLR: 0, "", "", "sumq=0"
~DOCNUM: 0, "", "STCRD->DOCNUM", ""
~DOCDAT: 0, "", "STCRD->DOCDAT", ""
~TRNQTY: 0, "qty(10)", "STCRD->TRNQTY", "sumq=sumq+STCRD->TRNQTY"
~REMQTY: 0, "qtyZ(8)", "OESOIT->REMQTY", ""
~SUMQ: 0, "qty(10)", "sumq", ""

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

~P_ORGTXT: 0, "", "p_orgtxt()", ""
~P_ORG: 0, "", "p_orgnum()", ""
~P_ORGSTR: 0, "", "p_orgstr()", ""
~BILLTO: 0, "", "A->BILLTO", "tax_id=@TAXID()"
~TAXIDX: 0, "", "tax_id", ""
*~ORG: 0, "", "org", "org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,' Head office ', 'Branch # ' -LTRIM(STR(A->ORGNUM,5,0))),' ')"
~ORG: 0, "", "org", "br=@p_orgnum_00009( A->ORGNUM ); org=IIF(tax_id#' '.AND.A->ORGNUM>=0,IIF(A->ORGNUM=0,' Head office ', '•Branch # '-br),' ')"
~SEEKCUS: 0, "", "SeekCus()", ""

~SUMQTY: 0, "ZZZ,ZZZ.ZZ", "SUMQTY", ""

[kibjung2527]

Bo::
Ih:: ;1 oesoit->sonum oeso->sonum
Ib: ~N ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~TRNVAL ;1
Ih:: ;2 artrnrm->docnum+artrnrm->seqnum oesoit->sonum+oesoit->seqnum
Ib: ~REMARK ;2
*Ih::~CLR ;3 stcrd->rdocnum oesoit->sonum+oesoit->seqnum
*Ib: ~DOCNUM ~DOCDAT ~TRNQTY ;3
If: ÃÇÁ ~SUMQ ;3
Bt:ó ó ó ó ó ó
Fo:õôôôô÷ôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôùôôôôôôôôôôôôôôö
Su:ó ÂÍ´ÃÇÁ~SUMQTY ó ó
Su:õôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôö
Su:ó ËÁÒÂà赯 ÃÇÁà»ç¹à§Ô¹ ó~AMOUNT ó
Su:ó ~HREM1 $_ËÑ¡$_ÊèǹŴ ~DISC ó~DISCAMT ó
Su:ó ~HREM2 ~TXT1 ó~TOTAL ó
Su:ó ~HREM3 ¨Ó¹Ç¹ÀÒÉÕÁÙŤèÒà¾ÔèÁ ~VAT % ó~VATAMT ó
Su:ó~BAHT ~TXT2 ó~CHKAMT ó
*Su:ó ~HREM3 óôôôôôôôôôôôôôôó
*Su:ó ~HREM4 ÊÔ¹¤éÒ¡àÇé¹ÀÒÉÕÁÙŤèÒà¾ÔèÁ ó~AMTRATZ ó
*Su:ó ~HREM5 ÁÙŤèÒÊÔ¹¤éÒÍѵÃÒ ~VAT % ó~AMTRATX ó
*Su:ó ¨Ó¹Ç¹à§Ô¹ÀÒÉÕÁÙŤèÒà¾ÔèÁ ó~VATAMT ó
*Su:ó~BAHT ¨Ó¹Ç¹à§Ô¹ÃÇÁ·Ñé§ÊÔé¹ ó~NETAMT ó
Su:õôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôö
Su:ó ó
Su:ó ã¹¹ÒÁ \NAME ó
Su:ó ___________________ ó
Su:ó ¼ÙéÊÑ觢ÒÂÊÔ¹¤éÒ ¼ÙéÃѺÁͺÍÓ¹Ò¨••__________________ ó
*Su:ó ¾ÔÁ¾ìâ´Â ~PRNBY Çѹ·Õè ~PRNDAT ~PRNTIM ¾ÔÁ¾ì¤ÃÑ駷Õè~PRNCNT ºÑ¹·Ö¡â´Â ~RECBY ó
Su:ñôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôò
[end frame]

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

[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=41
Output=Select, Printer, Screen, File,
File Name=OESO.TXT
Print Control=\027\033\001
Fix Summary Line=ON
Select Scope=OFF
Select Page=OFF
Condition=OFF

[range of report]
From=CUR

[master file]
File=oeso
Alias=A
Tag=oeso1
System=DATA_PATH

[item file]
File=oesoit
Alias=B
Tag=oesoit1
System=DATA_PATH

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

File=stcrd
Alias=D
Tag=stcrd10
System=DATA_PATH

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

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

File=stloc
Alias=L
Tag=stloc1
System=DATA_PATH
Master file=oesoit
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; totdr=0;totcr=0;sumqty=0"
~TXT0: 0, "", "txt0", "txt0 = IIF( OESO->FLGVAT <> '1', ' ¨Ó¹Ç¹à§Ô¹', 'ÃÒ¤ÒÃÇÁÀÒÉÕ')",
~TXT1: 0, "", "txt1", "txt1 = IIF( OESO->FLGVAT <> '1', '¨Ó¹Ç¹à§Ô¹ËÅѧËÑ¡ÊèǹŴ', '¨Ó¹Ç¹à§Ô¹ÃÇÁ·Ñé§ÊÔé¹ ')",
~TXT2: 0, "", "txt2", "txt2 = IIF( OESO->FLGVAT <> '1', '¨Ó¹Ç¹à§Ô¹ÃÇÁ·Ñé§ÊÔé¹', 'ÃÒ¤ÒÊÔ¹¤éÒ ')",
~SONUM: 0, "", "OESO->SONUM", ""
~SODAT: 0, "", "OESO->SODAT", ""
~CUSCOD: 0, "", "OESO->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"
~YOUREF: 0, "", "OESO->YOUREF", ""
~SLMCOD: 27, "", "slm", "slm = OESO->SLMCOD-'-'-OESLM->SLMNAM"
~CR: 0, "ZZZ", "OESO->PAYTRM", ""
~DLVDAT: 0, "", "OESO->DLVDAT", ""
~DLVBY: 0, "", "p_istab( OESO->DLVBY, 41, 1, 40 )", ""
~AREA: 27, "", "p_istab( OESO->AREACOD, 40, 1, 40 )", ""
~FLGVAT: 0, "Y", "OESO->FLGVAT", ""
~AMOUNT: 0, "99,999,999.99", "OESO->AMOUNT", ""
~DISC: 0, "", "OESO->DISC", ""
~DISCAMT: 0, "99,999,999.99", "OESO->DISCAMT", ""
~TOTAL: 0, "99,999,999.99", "OESO->TOTAL", ""
~VAT: 0, "99.99", "OESO->VATRAT", ""
~VATAMT: 0, "99,999,999.99", "OESO->VATAMT", ""
~CHKAMT: 0, "99,999,999.99", "netamt", "netamt = IIF( OESO->FLGVAT <> '1', OESO->NETAMT, OESO->TOTAL - OESO->VATAMT)"
~BAHT: 0, "", "t_baht(OESO->NETAMT)" ""

~N: 0, "999", "seq", "seq=seq+1"
~ARTICLE: 42, "", "article", "article = OESOIT->STKCOD - '•' - OESOIT->STKDES"
~STKCOD: 15, "", "OESOIT->STKCOD", ""
~STKDES: 28, "", "OESOIT->STKDES", ""
~L: 0, "", "OESOIT->LOCCOD", ""
~QTY: 0, "qtyZ(7)", "OESOIT->ORDQTY", "sumqty=sumqty+STCRD->TRNQTY"
~TQUCOD: 8, "", "p_istab( OESOIT->TQUCOD, 20, 1, 0 )", ""
~UNITPR: 0, "priZ(10)", "OESOIT->UNITPR", ""
~DISC_I: 0, "", "OESOIT->DISC", ""
~TRNVAL: 0, "ZZ,ZZZ,ZZZ.ZZ", "OESOIT->TRNVAL", ""
~DLVDAT_I: 0, "", "OESOIT->DLVDAT", ""
~REMARK: 0, "", "ARTRNRM->REMARK", ""

*~HREM1: 0, "", "x1", "x1=@p_hrem( A->SONUM,1 ); x1=IIF(x1=' ',SUBSTR(ARMAS->PRENAM-'•'-ARMAS->CUSNAM,1,50),x1)"
*~HREM2: 0, "", "x2", "x2=@p_hrem( A->SONUM,2 ); x2=IIF(x2=' ',ARMAS->ADDR01,x2)"
*~HREM3: 0, "", "x3", "x3=@p_hrem( A->SONUM,3 ); x3=IIF(x3=' ',ARMAS->ADDR02,x3)"
*~HREM4: 0, "", "x4", "x4=@p_hrem( A->SONUM,4 ); x4=IIF(x4=' ',ARMAS->TELNUM,x4)"
*~HREM5: 0, "", "x5", "x5=@p_hrem( A->SONUM,5 ); x5=IIF(x5=' ',ARMAS->REMARK,x5)"

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

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

~NETAMT: 0, "99,999,999.99", "OESO->NETAMT", ""
~AMTRATZ: 0, "99,999,999.99", "AMTRATZ", "AMTRATZ = OESO->AMTRAT0 - (OESO->AMTRAT0 * OESO->DISCAMT / OESO->AMOUNT)"
~AMTRATX: 0, "99,999,999.99", "AMTRATX", "AMTRATX = IIF(OESO->FLGVAT='1',OESO->TOTAL - AMTRATZ - OESO->VATAMT, OESO->TOTAL - AMTRATZ)"
*~V: 0, "", "VAT_SYM", "VAT_SYM = IIF(OESOIT->VATCOD='0', ' ', 'V')"
~V: 0, "", "OESOIT->VATCOD", ""
~SHIPTO: 0, "", "OESO->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", ""

~CLR: 0, "", "", "sumq=0"
~DOCNUM: 0, "", "STCRD->DOCNUM", ""
~DOCDAT: 0, "", "STCRD->DOCDAT", ""
~TRNQTY: 0, "qty(10)", "STCRD->TRNQTY", "sumq=sumq+STCRD->TRNQTY"
~REMQTY: 0, "qtyZ(8)", "OESOIT->REMQTY", ""
~SUMQ: 0, "qty(10)", "sumq", ""

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

~SUMQTY: 0, "ZZZ,ZZZ.ZZ", "SUMQTY", ""