โดย ANONG » ศุกร์ ก.ค. 19, 2013 5:29 pm
ลองทำตามแล้วค่ะ ทำอย่างไรก็ยังไม่ได้ รบกวนอีกครั้งนะคะ
ตอนแรกเขียน Program แบบนี้
He: วันที่ มูลค่าสินค้า VAT. รวมทั้งสิ้น
Gh:$B~SORDATE $B ;1 SODAT
Bo:~SORDATE ~VALAMT ~VATAMT ~NETAMT
Gf: รวม ~SORDTE $B~SUB1VAL ~SUB1VAT ~SUB1NET ~C_SUB1 $B ; 1
Gf: ;1
Su: -------------- ------------ -------------
Su:รวมทั้งสิ้น ~CC ใบ $B~TOTVAL ~TOTVAT ~TOTNET $B
Su: ============== ============ =============
Su:>>>> จบรายงาน <<<<
[end frame]
Query=DTOS(SODAT)>='Date1()'.AND.DTOS(SODAT)<='Date2()'
Query=.AND.SLMCOD>='Slm1()'.AND.SLMCOD<='Slm2()'
Query=.AND.CUSCOD>='Cus1()'.AND.CUSCOD<='Cus2()'.AND.SORECTYP='0'
Sort=DTOS(SODAT)+CUSCOD+SONUM
~VATAMT: 0, "99,999,999.99", "A->VATAMT", "sub1vat=sub1vat+A->VATAMT"
~VALAMT: 0, "999,999,999.99", "A->NETVAL", "sub1val=sub1val+A->NETVAL"
~NETAMT: 0, "999,999,999.99", "A->NETAMT", "sub1net=sub1net+A->NETAMT"
~SUB1VAT: 0, "99,999,999.99", "sub1vat", "totvat=totvat+sub1vat"
~SUB1VAL: 0, "999,999,999.99", "sub1val", "tot_val=tot_val+sub1val"
~SUB1NET: 0, "999,999,999.99", "sub1net", "totnet=totnet+sub1net"
~C_SUB1: 0, "", "", "sub1val=0; sub1vat=0; sub1net=0"
~TOTVAT: 0, "99,999,999.99", "totvat", ""
~TOTVAL: 0, "999,999,999.99", "tot_val", ""
~TOTNET: 0, "999,999,999.99", "totnet", ""
~SORDATE: 0, "", "so_date", "so_date=A->SODAT"
~SORDTE: 0, "", "so_date", ""
จะโชว์ข้อมูล
วันที่ มูลค่าสินค้า Vat รวมทั้งสิ้น
01/07/2013
01/07/2013 100.00 7.00 107.00
01/07/2013 100.00 7.00 107.00
01/07/2013 100.00 7.00 107.00
รวม 01/07/2013 300.00 21.00 321.00
02/07/2013
02/07/2013 100.00 7.00 107.00
02/07/2013 100.00 7.00 107.00
รวม 02/07/2013 200.00 14.00 214.00
-------- ------- ---------
รวมทั้งสิ้น 500.00 35.00 535.00
พอไป Mark ไม่ให้โชว์รายละเอียด
He: วันที่ มูลค่าสินค้า VAT. รวมทั้งสิ้น
Gh:$B~SORDATE $B ;1 SODAT
* Bo:~SORDATE ~VALAMT ~VATAMT ~NETAMT
Gf: รวม ~SORDTE $B~SUB1VAL ~SUB1VAT ~SUB1NET ~C_SUB1 $B ; 1
Gf: ;1
Su: -------------- ------------ -------------
Su:รวมทั้งสิ้น ~CC ใบ $B~TOTVAL ~TOTVAT ~TOTNET $B
Su: ============== ============ =============
Su:>>>> จบรายงาน <<<<
[end frame]
จะโชว์ข้อมูล
วันที่ มูลค่าสินค้า Vat รวมทั้งสิ้น
01/07/2013
รวม 01/07/2013 0 0 0
02/07/2013
รวม 02/07/2013 0 0 0
-------- ------- ---------
รวมทั้งสิ้น 0 0 0
รบกวนแนะนำด้วยนะคะ