โดย Chammie » อังคาร พ.ย. 22, 2022 11:37 am
ผมโทรให้แก้แล้ว รายตัวหนึ่ง ทำแล้วครับ ตัวนี้ตัวใหม่ ติด เค้าจะเก็บเงินผม แก้มากก็เก็บเงิน ขู่จนกลัวเลย หากเป็นนิวรีพอร์ต จ่ายได้ อันนี้รายงานเก่าอ่ะ
ตอนนี้นะ ผมทำ แบบนี้ มันออก แต่ยอดรวมไม่ออก ผมเข้าใจลอจิก พยายามแยกตัวแปรออกให้ชัดเจน ตัวรวมเนี้ยมันต้อรวามในตัวแสดงในโรลนั้น มันถึงออก แต่มันไม่ออก ลองเลื่อนลองดูนะครับ
He:\LINE
**: DD/MM/YY IVxxxxxxx1xx-xx 99,999.999 xx Y 99,999,999.99 9 xxxxxxxxx1999,999,999.99 xxxxxxxxx1999,999,999.99 XXXXXXXXXXXXX ***
Gh:~CUSTOMER ; 1 PEOPLE
*Gh: ~STOCKDES ; 2 STKCOD
Gh::~WHATREC ; 3 DOCNUM 0 2
Bo: ~DOCDAT ~DOCNUM ~RDOCNUM ~NETVAL ~CALVAT ~CALTRN
Gf: ÃÇÁµÒÁ ~CUSNAME ~SUBNET ~TOTVAT ~SUBTOT ~SUM_GRAND ;1
*Gf: ----------- ------------ -------------
*Gf: ÃÇÁ ~CUSNAME ~SUBNET ~SUBTOT
Gf: =========== ============ ============
Su: ÃÇÁ·Ñé§ÊÔé¹ ~G_NET ~G_VAT ~G_TOT
Su: =========== ============ ============
Su:ËÁÒÂà˵Ø: ÃÒ¡ÒâÒ·ÕèÁÕà¤Ã×èͧËÁÒ•'***'•ÍÂÙè㹪èͧËÁÒÂà˵ؕ¤×Í•ÃÒ¡Ò÷ÕèÂÍ´¢ÒÂÊØ·¸ÔµèÓ¡Çèҵ鹷ع
Su: " ! ÍÂÙè˹éÒ˹èǹѺ••••¤×Í•ÃÒ¡Ò÷Õè»é͹ÍѵÃÒÊèǹµèÍ˹èÇÂËÅÑ¡äÁèà·èҡѺ•1
Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]
[print options]
Top=0
Right=134
Lines=41
Output=Select, Printer, Screen, File,
File Name=ARSALCUS.TXT
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF
Select Paper=15_Inch, 8_Inch, Default
8_Inch=\027\033\004
15_Inch=\027\033\001
Query=DTOS(DOCDAT)>='Date1()'.AND.DTOS(DOCDAT)<='Date2()'
Query=.AND.PEOPLE>='Cus1()'.AND. PEOPLE<='Cus2()'
Query=.AND.STKCOD>='Stk1()'.AND. STKCOD<='Stk2()'
Query=.AND.SLMCOD>='Slm1()'.AND. SLMCOD<='Slm2()'
Query=.AND.PSTKCOD=' '
Query=.AND.(POSOPR='9'.OR.POSOPR='2'.OR.POSOPR='<'.OR.POSOPR='=')
*Sort=PEOPLE+STKCOD+SUBSTR(DOCNUM,1,2)+DTOS(DOCDAT)
[master file]
File=STCRD
Alias=A
Tag=STCRD7
System=DATA_PATH
[relate file]
File=ARMAS
Alias=B
Tag=ARMAS1
System=DATA_PATH
Master file=STCRD
Master-Related Field=PEOPLE
File=ARTRN
Alias=X
Tag=ARTRN1
System=DATA_PATH
Master file=STCRD
Master-Related Field=DOCNUM
File=STMAS
Alias=C
Tag=STMAS1
System=DATA_PATH
Master file=STCRD
Master-Related Field=STKCOD
File=OESLM
Alias=D
Tag=OESLM1
System=DATA_PATH
Master file=STCRD
Master-Related Field=SLMCOD
[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~INIT: 0, "", "", "g_vat=0;subtot=0;g_vat=0;g_tot=0;sumnet=0;subnet=0;g_net=0;calvat=0;trntot=0;trntot1=0;sumvat=0"
~FROMCUS: 0, "", "Cus1()", ""
~TOCUS: 0, "", "Cus2()", ""
~FROMDATE: 0, "d•´´´•»»»»", "@date1()", ""
~TODATE: 0, "d•´´´•»»»»", "@date2()", ""
~FROMSTK: 0, "", "Stk1()", ""
~TOSTK: 0, "", "Stk2()", ""
~FROMSLM: 0, "", "Slm1()", ""
~TOSLM: 0, "", "Slm2()", ""
~FD: 0, "", "Dep1()", ""
~TD: 0, "", "Dep2()", ""
~DOCDAT: 0, "", "A->DOCDAT", ""
~DOCNUM: 0, "", "doc_no", "doc_no = A->DOCNUM - '-' - A->SEQNUM"
~CUSTOMER: 0, "", "cus_nam", "cus_nam = B->CUSNAM - '•/' - A->PEOPLE; c_nam = A->PEOPLE"
~CUSNAME: 0, "", "c_nam", ""
~STOCKDES: 0, "", "stk_des", "stk_des = IIF(X->RECTYP='5',A->STKDES-'•/'-A->STKCOD,C->STKDES-'•/'-A->STKCOD); qu_cod=C->QUCOD"
~SALESMAN: 0, "", "slm_nam", "slm_nam = OESLM->SLMNAM - '•/' - A->SLMCOD"
~SLMNAME: 0, "", "slm_nam", ""
~SLMCOD: 0, "", "A->SLMCOD", ""
~R: 0, "", "ret", "ret=IIF(STCRD->POSOPR#'2',' ',IIF(STCRD->RETSTK='Y', ' Y', ' N'))"
~UNITPR: 0, "pri(13)", "A->UNITPR", ""
~V: 0, "", "ARTRN->FLGVAT", ""
~NETVAL: 0, "999,999,999.99", "A->NETVAL", "sumnet=sumnet+A->NETVAL"
~SUBNET: 0, "999,999,999.99", "sumnet", "
//====================================================================================================================
~CALVAT: 0, "999,999,999.99", "calvat", "calvat=(A->NETVAL*.07)" *** VAT แบบนี้ คอลัมน์ออก ยอดรวมไม่ออก
~VATX: 0, "999,999,999.99", "calvat", "sumvat=sumvat+(A->NETVAL*.07)"
~TOTVAT: 0, "999,999,999,99", "sumvat", ""
~CALTRN: 0, "999,999,999.99", "trntot", "trntot=A->NETVAL+(A->NETVAL*.07)" *** รวมช่อสุดท้าย แบบนี้ คอลัมน์ออก ยอดรวมไม่ออก
~TRNVAL: 0, "999,999,999.99", "trntot", "trntot1=trntot1+trntot"
~SUBTOT: 0, "999,999,999.99", "trntot1", ""
======================================================================================================================
~RDOCNUM: 0, "", "rdoc_no", "rdoc_no = IIF(RDOCNUM=' ',' ', SUBSTR(A->RDOCNUM,1,12) - '-' - SUBSTR(A->RDOCNUM,13,3))"
~YOUREF: 0, "", "ARTRN->YOUREF", ""
~XTRNVAL: 0, "999,999,999.99", "A->XTRNVAL", ""
~SUM_GRAND: 0, "", "", "g_tot=g_tot+subtot; g_net=g_net+sumnet; subqty=0;subtot=0;subnet=0;trntot1=0; sumnet=0;sumvat=0"
~G_TOT: 0, "999,999,999.99", "g_tot", ""
~G_NET: 0, "999,999,999.99", "g_net", ""
~G_VAT: 0, "999,999,999.99", "g_vat" ""