สอบถามเรื่องรายงาน 711 ครับ

[ICT.PM1994]

จะขอสอบถามว่าในโค้ดนี้ เมื่อดึงเอ็กเซลล์ รายงานนี้วันที่เป็น dd/mm/yyyy จะเปลี่ยนให้เป็น dd/mm/yy ได้ยังไงครับ


* ARSALCUS.RWT - Sales Report by Customer, Stock Code, Invoice Date
*
[report frame]
Ti::~INIT
*He:\NAME ","","","","","","","","","","","","˹éÒ : \PAGE
*He:ÃÒ§ҹ»ÃÐÇѵԡÒâҕᡵÒÁÅÙ¡¤éÒ
*He:ÃËÑÊÅÙ¡¤éÒ ","","","~FROMCUS ¶Ö§ ~TOCUS ","","","","","","","","","Çѹ·Õè : \DATE
*H1:Çѹ·Õè¨Ò¡ ","","","~FROMDATE ¶Ö§ ~TODATE
*H1:ÃËÑÊÊÔ¹¤éÒ ","","","~FROMSTK ¶Ö§ ~TOSTK
*H1:¾¹Ñ¡§Ò¹¢Ò ","","","~FROMSLM ¶Ö§ ~TOSLM ","","","","","","","","","àÅ×Í¡á¼¹¡ ~FD
*He:\LINE
He:"ª×èÍÅÙ¡¤éÒ,"ࢵ¡ÒâÒÂ","¨Ñ§ËÇÑ´","ÊÔ¹¤éÒ","Çѹ·Õè","àÅ¢·ÕèàÍ¡ÊÒÃ","¨Ó¹Ç¹","˹èÇÂÅѧ/á¾ç¤/ªÔé¹","¤×¹","ÃÒ¤ÒµèÍ˹èÇÂ","VAT","ÊèǹŴ","ÃÇÁà§Ô¹","ÊèǹŴÃÇÁ","ÂÍ´¢ÒÂÊØ·¸Ô","ÍéÒ§ÍÔ§","¾¹Ñ¡§Ò¹¢ÒÂ
*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 ***
**: A B C D R E F G H I J K L M N O P Q
Gh:~CUSTOMER ~Area ~ADDR03 ~STOCKDES ~WHATREC ~DOCDAT ~DOCNUM ~QTY ~QU~R ~UNITPR ~V~DISC ~TRNVAL ~G_DISC ~NETVAL ~RDOCNUM ~SALESMAN••••••••••; 1 PEOPLE ; 2 STKCOD ; 3 DOCNUM 0 2
*Gh: ~STOCKDES ; 2 STKCOD
Gh::~WHATREC ; 3 DOCNUM 0 2
*Bo: ~DOCDAT ~DOCNUM ~QTY ~QU~R ~UNITPR ~V~DISC ~TRNVAL ~G_DISC ~NETVAL ~RDOCNUM ~LOSS
*Gf: ÃÇÁµÒÁ ~RECTYP ~SUMQTY ~QX ~SUMAMT ~SUMNET ~SUMQ~SUMC~SUMN ;3
*Gf: ~SUMQTY ~QX ~SUMAMT ~SUMNET ~SUMQ~SUMC~SUMN ;3
*Gf:","","",""," -----------","","","","",""," --------------",""," -------------- ;1
*Gf: ÃÇÁ ~CUSNAME ~SUBQTY ~QX ~SUBTOT ~SUBNET ~SUM_GRAND ;1
*Gf:","","",""," ===========","","","","",""," ==============",""," ==============
*Gf: ;1
*Su: ÃÇÁ·Ñé§ÊÔé¹ ~G_TOT ~G_NET
*Su:","","","","","","","","",""," ==============",""," ==============
Su:
Su:ËÁÒÂà˵Ø: ÃÒ¡ÒâÒ·ÕèÁÕà¤Ã×èͧËÁÒ•'***'•ÍÂÙè㹪èͧËÁÒÂà˵ؕ¤×Í•ÃÒ¡Ò÷ÕèÂÍ´¢ÒÂÊØ·¸ÔµèÓ¡Çèҵ鹷ع
Su: " ! ÍÂÙè˹éÒ˹èǹѺ••••¤×Í•ÃÒ¡Ò÷Õè»é͹ÍѵÃÒÊèǹµèÍ˹èÇÂËÅÑ¡äÁèà·èҡѺ•1
*Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]

[print options]
Top=0
Right=159
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, "", "", "sumqty=0;subqty=0;sumamt=0;sumnet=0;subtot=0;g_qty=0;g_tot=0;subnet=0;g_net=0"
~FROMCUS: 0, "", "Cus1()", ""
~TOCUS: 0, "", "Cus2()", ""
~FROMDATE: 0, "d•´´´•yyyy", "@date1()", ""
~TODATE: 0, "d•´´´•yyyy", "@date2()", ""
~FROMSTK: 0, "", "Stk1()", ""
~TOSTK: 0, "", "Stk2()", ""
~FROMSLM: 0, "", "Slm1()", ""
~TOSLM: 0, "", "Slm2()", ""
~FD: 0, "", "Dep1()", ""
~TD: 0, "", "Dep2()", ""

~DOCDAT: 0, "", "A->DOCDAT", "",E
~DOCNUM: 0, "", "A->DOCNUM", "",F
*~DOCNUM: 0, "", "doc_no", "doc_no = A->DOCNUM - '-' - A->SEQNUM",D
*~CUSTOMER: 0, "", "cus_nam", "cus_nam = B->CUSNAM - '•/' - A->PEOPLE; c_nam = A->PEOPLE"
~CUSTOMER: 0, "", "cus_nam", "cus_nam = B->PRENAM - '•' - B->CUSNAM; c_nam = B->CUSNAM" ,A
~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",D
~SALESMAN: 0, "", "slm_nam", "slm_nam = OESLM->SLMNAM - '•/' - A->SLMCOD" ,Q
~SLMNAME: 0, "", "slm_nam", ""
~SLMCOD: 0, "", "A->SLMCOD", ""
~Area: 0, "", "p_istab( ARTRN->AREACOD, 40, 1, 40 )", "" ,B
~ADDR03: 0, "", "addr_03", "addr_03 = Armas->ADDR03" ,C
*~QTY: 0, "qty(10)", "A->TRNQTY", "sumqty=sumqty+(A->TRNQTY*A->TFACTOR)",G
~QTY: 0, "qty(10)", "A->TRNQTY", "sumqty=sumqty+A->XTRNQTY",G
~QU: 0, "", "qu", "qu=IIF(A->TQUCOD=qu_cod .and. A->TFACTOR # 1, '!'+A->TQUCOD, ' '+A->TQUCOD)",H
~QX: 0, "", "qu_cod", "",
~R: 0, "", "ret", "ret=IIF(STCRD->POSOPR#'2',' ',IIF(STCRD->RETSTK='Y', ' Y', ' N'))", I
~UNITPR: 0, "pri(13)", "A->UNITPR", "",J
~V: 0, "", "ARTRN->FLGVAT", "",K
~DISC: 0, "", "A->DISC", "",L
~TRNVAL: 0, "999,999,999.99", "A->TRNVAL", "sumamt=sumamt+A->TRNVAL",M
~G_DISC: 0, "", "ARTRN->DISC", "",N
~NETVAL: 0, "999,999,999.99", "A->NETVAL", "sumnet=sumnet+A->NETVAL",O
~RDOCNUM: 0, "", "rdoc_no", "rdoc_no = IIF(RDOCNUM=' ',' ', SUBSTR(A->RDOCNUM,1,12) - '-' - SUBSTR(A->RDOCNUM,13,3))",P
~YOUREF: 0, "", "ARTRN->YOUREF", "",N

~LOSS: 0, "", "is_loss", "is_loss=IIF((X->RECTYP='1'.OR.X->RECTYP='3').AND.A->NETVAL < A->XTRNVAL, '***', ' ')",O
~XTRNVAL: 0, "999,999,999.99", "A->XTRNVAL", "",K

~WHATREC: 0, "", "", "rec_typ=IIF(X->RECTYP='3','㺡ӡѺ ',IIF(X->RECTYP='4','ãºà¾ÔèÁ˹Õé ',IIF(X->RECTYP='5','ãºÅ´Ë¹Õé ',IIF(X->RECTYP='1','ºÔÅà§Ô¹Ê´ ',IIF(X->RECTYP='7','ÃÒÂä´éÍ×蹕æ',' ')))))"
~RECTYP: 0, "", "rec_typ", ""
~SUMQTY: 0, "qty(13)", "sumqty", "sumqty=IIF(rec_typ='ãºÅ´Ë¹Õé', sumqty*-1, IIF(rec_typ='ãºà¾ÔèÁ˹Õé',0,sumqty))",E
~SUMAMT: 0, "999,999,999.99", "sumamt", "sumamt=IIF(rec_typ='ãºÅ´Ë¹Õé', sumamt*-1, sumamt)",K
~SUMNET: 0, "999,999,999.99", "sumnet", "sumnet=IIF(rec_typ='ãºÅ´Ë¹Õé', sumnet*-1, sumnet)",M
~SUMQ: 0, "", "", "subqty=subqty+sumqty; sumqty=0"
~SUMC: 0, "", "", "subtot=subtot+sumamt; sumamt=0"
~SUMN: 0, "", "", "subnet=subnet+sumnet; sumnet=0"
~SUBQTY: 0, "qty(13)", "subqty", "",E
~SUBTOT: 0, "999,999,999.99", "subtot", "",K
~SUBNET: 0, "999,999,999.99", "subnet", "",M
~SUM_GRAND: 0, "", "", "g_qty=g_qty+subqty; g_tot=g_tot+subtot; g_net=g_net+subnet; subqty=0;subtot=0; subnet=0"
~G_QTY: 0, "qty(13)", "g_qty", "",E
~G_TOT: 0, "999,999,999.99", "g_tot", "",K
~G_NET: 0, "999,999,999.99", "g_net", "",M

[ICT.PM1994]

ยังทำไม่ได้ครับ

[savek]

ลองเปลี่ยนจาก

~DOCDAT: 0, "", "A->DOCDAT", "",E

ให้เป็นแบบนี้ครับ

~DOCDAT: 0, "DD/MM/YY", "A->DOCDAT", "",E