แก้ไขรายงานเพิ่มเติม ประวัติการขาย 714

[ICT.PM1994]

ขอสอบถามในการแก้ไขรายงานเพิ่มเติม ประวัติการขาย 714 ให้ในรายงานแสดง ชื่อพนักงานขาย ต้องเพิ่มเติมอย่างไรครับ ขอบคุณครับ


*EX-70
* ARSALCUX.RWT - Sales Report by Customer, Stock Code, Invoice Date (with no movement customer)
*
[report frame]
Ti::~INIT
He:","\NAME `หน้า : \PAGE
He:","$Eรายงานประวัติการขาย•แยกตามลูกค้า•(พิมพ์ลูกค้าที่ไม่เคลื่อนไหวด้วย)$E
He:","รหัสลูกค้า ~FROMCUS ถึง ~TOCUS `วันที่ : \DATE
H1:","วันที่จาก ~FROMDATE ถึง ~TODATE
H1:","รหัสสินค้า ~FROMSTK ถึง ~TOSTK
H1:","พนักงานขาย ~FROMSLM ถึง ~TOSLM เลือกแผนก ~FD
*He:\LINE
*# B C D E F G H I J K L M N O P Q R
*He: ชื่อลูกค้า รหัสลูกค้า ชื่อสินค้า รหัสสินค้า วันที่ เลขที่เอกสาร จำนวน หน่วยนับ คืน ราคาต่อหน่วย VAT ส่วนลด รวมเงิน ส่วนลดรวม ยอดขายสุทธิ อ้างอิง หมายเหตุ
He: ~1B ~1C ~1D ~1E ~1F ~1G ~1H ~1I ~1J ~1K ~1L ~1M ~1N ~1O ~1P ~1Q ~1R
*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:$B~CUSTOMER ~CUSTOMER2 $B ~SALESMAN ; 1 ARMAS->CUSCOD
Gh: ~STOCKDES ~STOCKDES2 ; 2 STCRD->STKCOD
Gh::~WHATREC ; 3 STCRD->DOCNUM 0 2
Bo: ~DOCDAT ~DOCNUM ~QTY ~QU ~R ~UNITPR ~V ~DISC ~TRNVAL ~G_DISC ~NETVAL ~RDOCNUM ~LOSS
Gf: $B~1GFF ~RECTYP ~SUMQTY ~QX ~SUMAMT ~SUMNET $B~SUMQ~SUMC~SUMN ;3
*Gf: ----------- -------------- -------------- ;1
Gf: ~1LH ~1LN ~1LP ;1
Gf: ~2GFB ~CUSNAME $B~SUBQTY ~QX ~SUBTOT ~SUBNET $B~SUM_GRAND ;1
*Gf: =========== ============== ==============
Gf: ~6LH ~6LN ~6LP
Su: ~1SUB $B~G_TOT ~G_NET $B
*Su: ============== ==============
Su: ~7LN ~7LP
Su:","หมายเหตุ: รายการขายที่มีเครื่องหมาย•'***'•อยู่ในช่องหมายเหตุ•คือ•รายการที่ยอดขายสุทธิต่ำกว่าต้นทุน
Su:"," " ! อยู่หน้าหน่วยนับ••••คือ•รายการที่ป้อนอัตราส่วนต่อหน่วยหลักไม่เท่ากับ•1
Su:",">>>> จบรายงาน <<<<
[end frame]

[print options]
Top=0
Right=330
Lines=41
Output=Select, Printer, Screen, File,
File Name=714.CSV
DATE FORMAT=DD/MM/YYYY
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=CUSCOD>='Cus1()'.AND. CUSCOD<='Cus2()'
Sort=CUSCOD+STCRD->STKCOD+SUBSTR(STCRD->DOCNUM,1,2)+DTOS(STCRD->DOCDAT)

[master file]
File=ARMAS
Alias=B
Tag=ARMAS1
System=DATA_PATH

[relate file]
File=STCRD
Alias=A
System=DATA_PATH
Key=PEOPLE
Filter=.NOT.DELETED().AND.DTOS(DOCDAT)>='Date1()'.AND.DTOS(DOCDAT)<='Date2()'.AND.STKCOD>='Stk1()'.AND.STKCOD<='Stk2()'.AND.SLMCOD>='Slm1()'.AND.SLMCOD<='Slm2()'.AND.PSTKCOD=' '.AND.(POSOPR='9'.OR.POSOPR='2')
Master file=ARMAS
Master-Related Field=CUSCOD
Relate Type=SCAN

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•ดดด•ปปปป", "@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, "DD/MM/YYYY", "A->DOCDAT", "",F
*~DOCNUM: 0, "", "A->DOCNUM", ""
~DOCNUM: 0, "", "doc_no", "doc_no = A->DOCNUM - '-' - A->SEQNUM",G
~CUSTOMER: 0, "", "cus_nam", "cus_nam = B->CUSNAM; c_nam = B->CUSCOD-'•'",B
~CUSTOMER2: 0, "", "cus_nam2", "cus_nam2 = B->CUSCOD-'•'",C

~CUSNAME: 0, "", "c_nam", "",C
~STOCKDES: 0, "", "stk_des", "stk_des = IIF(X->RECTYP='5',A->STKDES,C->STKDES); qu_cod=C->QUCOD",D
~STOCKDES2: 0, "", "stk_des2", "stk_des2 = A->STKCOD-'•'",E

~SALESMAN: 0, "", "slm_nam", "slm_nam = OESLM->SLMNAM - '•/' - A->SLMCOD"
~SLMNAME: 0, "", "slm_nam", ""
~SLMCOD: 0, "", "A->SLMCOD", ""
*~QTY: 0, "qty(10)", "A->TRNQTY", "sumqty=sumqty+(A->TRNQTY*A->TFACTOR)"
~QTY: 0, "qty(10)", "A->TRNQTY", "sumqty=sumqty+A->XTRNQTY",H
~QU: 0, "", "qu", "qu=IIF(A->TQUCOD=qu_cod .and. A->TFACTOR # 1, '!'+A->TQUCOD, ' '+A->TQUCOD)",I
~QX: 0, "", "qu_cod", "",I
~R: 0, "", "ret", "ret=IIF(STCRD->POSOPR#'2',' ',IIF(STCRD->RETSTK='Y', ' Y', ' N'))",J
~UNITPR: 0, "pri(14)", "A->UNITPR", "",K
~V: 0, "", "ARTRN->FLGVAT", "",L
~DISC: 0, "", "A->DISC", "",M
~TRNVAL: 0, "999,999,999.99", "A->TRNVAL", "sumamt=sumamt+A->TRNVAL",N
~G_DISC: 0, "", "ARTRN->DISC", "",O
~NETVAL: 0, "999,999,999.99", "A->NETVAL", "sumnet=sumnet+A->NETVAL",P
~RDOCNUM: 0, "", "rdoc_no", "rdoc_no = IIF(A->RDOCNUM=' ',' ', SUBSTR(A->RDOCNUM,1,12) - '-' - SUBSTR(A->RDOCNUM,13,3))",Q
~YOUREF: 0, "", "ARTRN->YOUREF", ""

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

~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", "",G
~SUMQTY: 0, "qty(13)", "sumqty", "sumqty=IIF(rec_typ='ใบลดหนี้', sumqty*-1, IIF(rec_typ='ใบเพิ่มหนี้',0,sumqty))",H
~SUMAMT: 0, "999,999,999.99", "sumamt", "sumamt=IIF(rec_typ='ใบลดหนี้', sumamt*-1, sumamt)",N
~SUMNET: 0, "999,999,999.99", "sumnet", "sumnet=IIF(rec_typ='ใบลดหนี้', sumnet*-1, sumnet)",P
~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", "",H
~SUBTOT: 0, "999,999,999.99", "subtot", "",N
~SUBNET: 0, "999,999,999.99", "subnet", "",P
~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", ""
~G_TOT: 0, "999,999,999.99", "g_tot", "",N
~G_NET: 0, "999,999,999.99", "g_net", "",P



***************************

** HE **
~1B: 0, "", "1B", "1B = 'ชื่อลูกค้า'",B
~1C: 0, "", "1C", "1C = 'รหัสลูกค้า'",C
~1D: 0, "", "1D", "1D = 'ชื่อสินค้า'",D
~1E: 0, "", "1E", "1E = 'รหัสสินค้า'",E
~1F: 0, "", "1F", "1F = 'วันที่'",F
~1G: 0, "", "1G", "1G = 'เลขที่เอกสาร'",G
~1H: 0, "", "1H", "1H = 'จำนวน'",H
~1I: 0, "", "1I", "1I = 'หน่วยนับ'",I
~1J: 0, "", "1J", "1J = 'คืน'",J
~1K: 0, "", "1K", "1K = 'ราคาต่อหน่อย'",K
~1L: 0, "", "1L", "1L = 'VAT'",L
~1M: 0, "", "1M", "1M = 'ส่วนลด'",M
~1N: 0, "", "1N", "1N = 'รวมเงิน'",N
~1O: 0, "", "1O", "1O = 'ส่วนลดรวม'",O
~1P: 0, "", "1P", "1P = 'ยอดขายสุทธิ'",P
~1Q: 0, "", "1Q", "1Q = 'อ้างอิง'",Q
~1R: 0, "", "1R", "1R = 'หมายเหตุ'",R

** GF **
~1GFF: 0, "", "1GFF", "1GFF = 'รวมตาม'",F

~2GFB: 0, "", "2GFB", "2GFB = 'รวม'",B

** SU **
~1SUB: 0, "", "1SUB", "1SUB = 'รวมทั้งสิ้น'",B

** LINE ให้ตรงกับ•คอลัมน์ด้านบน••(เส้นเดี่ยวใช้•1-6••เส้นคู่ใช้•6•เป็นต้นไป)•**
~1LH: 0, "", "1LH", "1LH = '--------------- '",H
~1LN: 0, "", "1LN", "1LN = '--------------- '",N
~1LP: 0, "", "1LP", "1LP = '--------------- '",P


~6LH: 0, "", "6LH", "6LH = '=============== '",H
~6LN: 0, "", "6LN", "6LN = '=============== '",N
~6LP: 0, "", "6LP", "6LP = '=============== '",P

~7LH: 0, "", "7LH", "7LH = '=============== '",H
~7LN: 0, "", "7LN", "7LN = '=============== '",N
~7LP: 0, "", "7LP", "7LP = '=============== '",P

[savek]

แสดงในทุกๆ บรรทัดของบิลขายใช่ไหมครับ ให้เพิ่มตัวแปร ~SALESMAN ในตำแหน่งที่ต้องการได้เลยครับ