รายงาน 1A4

[suranee]

ในรางาน 1A4 ลูกหนี้คงค้างแบบละเอียด หากเราต้องการให้แสดงรายการสินค้าที่อยู่ใน invoice นั้นที่ยังค้างอยู่  อยากให้แสดงบรรทัดถัดไป จะเขียนคำสั่งอย่างไรคะ

[savek]

หมายถึงให้แสดงรายการสินค้าในบิลขายที่แสดงขึ้นมาในรายงานตัวนี้ใช่ไหมครับ แต่จะเป็นสินค้าทั้งหมดในบิลขายใบนั้นนะครับ คงไม่สามารถแยกได้ว่ารายการสินค้าใดบ้างที่ยังค้างชำระ เพราะยอดหนี้ที่ค้างชำระจะยึดตามเลขที่ใบกำกับ (บิลขาย) นะครับ

วิธีการให้เพิ่มส่วนที่เป็นสีแดงนี้เข้าไปครับ

Ih::                          ;1 ARRCPIT->DOCNUM A->DOCNUM
Ib:~PRN                      ~IT_RCPNUM  ~IT_RCVDAT    ~IT_RCVAMT    ~CHK ;1
Ih::                    ;2 stcrd->docnum artrn->docnum
Ib: ~N    ~ARTICLE                                  ~QTY    ~TQUCOD  ~UNITPR    ~NETAMT_I        ;2


[item file]
File=ARRCPIT
Alias=F
Tag=ARRCPIT2
System=DATA_PATH

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


~F:        0,  "",                "is_rcperr",    "is_rcperr=' '+IIF(A->RECTYP='9'.AND.A->DOCSTAT='R','!',' '); prn_remark=IIF(is_rcperr='!', ' ',prn_remark)"
~DOCNUM:    0,  "",                "A->DOCNUM",    "c_doc=c_doc+1;seq=0"
~DOCDAT:    0,  "",                "A->DOCDAT",    ""
~SLMCOD:    0,  "",                "A->SLMCOD",    ""


~GTOT5:        0,  "999,999,999.99",  "gtot5",        ""
~GTOT6:        0,  "999,999,999.99",  "gtot6",        ""
~GTOTAL:        0,  "9999,999,999.99",  "gtot",        ""

[color=red]~N:        0,      "999",              "seq",              "seq=seq+1"
~ARTICLE:  42,      "",                "article",          "article = STCRD->STKCOD - '

[suranee]

ได้แล้วค่ะ คุณ savek  ขอบคุณค่ะ

[suranee]

มาทำรายงานต่อแล้ว อยากรบกวนอีกนิดค่ะ คือต้องการยอดรวมของแต่ละ item สินค้า ซึ่งวางไว้ด้านขวาของรายงาน จะเขียนไงดีค่ะ ไปไม่ถูกค่ะ

* ARBALAGD.RWT - A/R Balance Aging Detail Report
*
[report frame]
Ti::~INIT ~INIT2 ~CLR_T
He:\NAME                                                    `˹éÒ    : \PAGE
He:$EÅ١˹Õ餤éÒẺÅÐàÍÕ´$E
He:³

[savek]

สมมติว่าจะรวมช่อง NETAMT_I ให้ทำลักษณะนี้ครับ

~NETAMT_I:  0,      "ZZ,ZZZ,ZZZ.ZZ",    "STCRD->TRNVAL",    "sumnet=sumnet+STCRD->TRNVAL"

จากนั้นสร้างตัวแปรขึ้นมาเพื่อใช้แสดงค่า sumnet ที่เป็นยอดรวมของจำนวนเงินค่าสินค้า

และล้างค่า sumnet ทุกครั้งที่ขึ้นบิลขายใบใหม่ โดยใส่คำสั่ง sumnet=0 ไว้ที่บรรทัดตัวแปร ~DOCNUM

[suranee]

ok ได้ในระดับหนึ่งแล้วค่ะ แต่เมื่อทดสอบพบว่า หากมีเอกสารใบที่ 2 ที่เป็นลูกค้าเดียวกัน กลับไม่ sum ให้ค่ะ คือยังเป็นยอดแรกอยู่  เช่นใบแรก 4800  ใบที่สองมี 4000  ยอด sum ยังเป็น 4800 ค่ะ

[suranee]

ได้แล้วค่ะ  วางผิดตำแหน่งไปนิด เลยไม่ sum ยอดให้

[suranee]

จากรายงานเดิม  รบกวนช่วยทำตัวที่มาของตัวแปรในช่อง กลุ่มA โดยขอตัวแปร บรรทัดรวมลูกค้า และบรรทัดรวมตามประเภทของลูกค้า ด้วยค่ะ  งง ทำต่อไม่ได้ค่ะ แต่ทำตัวแปรไว้แล้ว รบกวนคุณ savek ทำตัวอย่างเฉพาะ  ~AMBR01  และ ~S_AMBR01  ค่ะ ที่เหลือเดี๋ยวคัดลอกเองได้

* ARBALAGD.RWT - A/R Balance Aging Detail Report
*
[report frame]
Ti::~INIT ~INIT2 ~CLR_T
He:\NAME                                                    `˹éÒ    : \PAGE
He:$EÅ١˹Õ餤éÒẺÅÐàÍÕ´$E
He:³

[savek]

ตัวแปร ~S_AMBR01 ให้ทำในลักษณะเดียวกับ gambr01 ได้เลยครับ คือ สั่งให้มีการคำนวณค่าเก็บเอาไว้ในบรรทัดตัวแปร ~AMBR01

~AMBR01:  0,      "Z,ZZZ,ZZZ.ZZ",    "ambr01",          "ambr01=IIF(STCRD->DEPCOD='01',STCRD->TRNVAL+(STCRD->TRNVAL*7/100),0); s_ambr01=s_ambr01+ambr01; gambr01=gambr01+ambr01"

และเนื่องจากต้องรวมยอดใหม่ทุกครั้งทีขึ้นรหัสลูกค้ารายใหม่ ดังนั้นจึงต้องเคลียร์ค่า s_ambr01 ให้เป็น 0 ในบรรทัด Gh: ของรหัสลูกค้า ในลักษณะนี้ครับ

~CUSTOMER:  0,  "",                "cus_nam",      "cus_nam = ARMAS->CUSNAM - '

[suranee]

ได้แล้วค่ะ  แต่ขอวิธีอีกตัวค่ะ  ~T_AMBR01

[suranee]

ได้แล้วค่ะ ทำได้ครบแล้ว ขอบคุณ คุณ savek ค่ะ