สรุปรายงานขายทรัพย์สิน

[sayan]

ต้องการสร้างรายงานการขายทรัพย์สิน  โดยให้รายงานออกเฉพาะตัวที่มีการขายทรัพย์สินภายในปี
ต้องไปสร้างจากรายงานตัวไหนคะ และสร้างตัวแปรอย่างไร รบกวนด้วยค่ะ

[savek]

อาจจะเป็นรายงาน 5B1 และแก้ไขโดยเพิ่มบรรทัดนี้เข้าไปครับ

Query=FASCOD>='Fas1()'.AND.FASCOD<='Fas2()'
Query=.AND.FASGRP>='FasGrp1()'.AND.FASGRP<='FasGrp2()'
Query=.AND.DTOS(SALDAT)#'  '
Sort=FASGRP+FASCOD

[sayan]

ขอบคุณสำหรับคำแนะนำค่ะ แต่ลองแก้ไขตามรายการแล้วยังไม่ได้รายงานตามที่ต้องการ
เพราะเมื่อขอดูรายงานขึ้นข้อความว่า  "ไม่มีข้อมูลตามขอบเขตที่กำหนด" ค่ะ

[savek]

ลองใหม่ครับ กำหนดขอบเขตของงวดให้ครอบคลุมทุกงวดดูครับ

[sayan]

ลองใหม่เรียบร้อยแล้วค่ะ โดยเลือกดังนี้ค่ะ
1.รหัสทรัพย์สินแรก ถึง รหัสทรัพย์สินรายการสุดท้าย
2.หมวดทรัพย์สินแรก ถึง หมวดทรัพย์สินสุดท้าย
3.*ทุกแผนก
4.พิมพ์หมายเหตุ

แต่ก็ยังขึ้นว่าไม่มีขอบเขตตามที่กำหนด error no.9106 ค่ะ

[savek]

ถ้ากลับไปดูในเมนูบัญชี ข้อ B รายการทรัพย์สิน มีการใส่วันที่ขายทรัพย์สินเข้าไปแล้วใช่ไหมครับ เพราะเงื่อนไขที่ผมแจ้งไป จะตรวจสอบจากฟิลด์ข้อมูลนี้ โดยจะแสดงรหัสทรัพย์สินที่มีการใส่วันที่ขายเข้าไปแล้วเท่านั้นขึ้นมา

หากตรวจสอบแล้ว มีการป้อนวันที่ขายเอาไว้แล้ว ลองก๊อปปี้คำสั่งทั้งหมดจากหน้าแก้ไขรายงาน มาแปะไว้ในกระทู้นี้ละกันครับ

[sayan]

รบกวนด้วยนะคะ
* FAMAS1.RWT - Asset Listing Report
*
[report frame]
Ti::~INIT
He:\NAME                                                    `Page : \PAGE
He:$BAsset Listing Report$B                                `Date : \DATE
H1:Asset Group      [~F]  To  [~T]
H1:Asset Code        [~FROMAS        ]  To  [~TOAS          ]          Department ~DEP
He:\LINE
He:No.      Code            Description                                Serial          Pur.Date        Cost        Method  Life  Rate%
He:--- --------------- ---------------------------------------------  ---------------  ---------- ----------------  -------  ----- ------
Gh:$B~G - ~GRPNAM                                $B        ~CLR  ; 1 FASGRP
Bo:~N  ~FASCOD        ~FASDES                                        ~SERIAL          ~PURDAT    ~COSVAL          ~METHOD  ~LIFE ~RATE
Ih::                                        ;1 artrnrm->docnum+substr(artrnrm->seqnum,1,3)  famas->fascod
Ib:                        ~REMARK        ;1
Gf:                                                                                              ----------------  ; 1
Gf:                                                                                Total        $B~TOTCOS        $B
Su:                                                                                              ----------------
Su:                                                  Report Total ~GC  group ~TX    code        $B~GTCOS          $B
Su:                                                                                              ================
Su:>>>> End of Report <<<<
[end frame]

[print options]
Top=0
Right=134
Lines=41
Output=Select, Printer, Screen, File,
File Name=FAMAS1.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=FASCOD>='Fas1()'.AND.FASCOD<='Fas2()'
Query=.AND.FASGRP>='FasGrp1()'.AND.FASGRP<='FasGrp2()'
Query=.AND.DTOS(SALDAT)#''
Sort=FASGRP+FASCOD

[master file]
File=FAMAS
Alias=F
Tag=FAMAS1
System=DATA_PATH

[item file]
File=artrnrm
Alias=C
Tag=artrnrm1
System=DATA_PATH

[data spec]
*          len  (0)default, (>0)cut, (<0)cut to new line
*~dat:      len,"pict",            "data",        "exp"
~INIT:      0,  "",                "",            "tx=0;gtcos=0;gc=0"
~CLR:      0,  "",                "",            "cnt=0;totcos=0"
~FROMAS:    0,  "",                "Fas1()",      ""
~TOAS:      0,  "",                "Fas2()",      ""
~F:        0,  "",                "FasGrp1()",    ""
~T:        0,  "",                "FasGrp2()",    ""
~DEP:      0,  "",                "Dep1()",      ""
~G:        0,  "",                "F->FASGRP",    "gc=gc+1;gname=@p_istab2(F->FASGRP,52,1)"
~GRPNAM:    0,  "",                "gname",        ""
~FASCOD:    0,  "",                "F->FASCOD",    ""
~FASDES:    0,  "",                "F->FASDES2",  ""
~SERIAL:    0,  "",                "F->SERIAL",    ""
~PURDAT:    0,  "dd/mm/yyyy",      "F->PURDAT",    "md=IIF(F->METHOD='0','Manual  ','Straight ')"
~COSVAL:    0,  "9,999,999,999.99", "F->COSVAL",    "totcos=totcos+F->COSVAL"
~TOTCOS:    0,  "9,999,999,999.99", "totcos",      "gtcos=gtcos+totcos"
~GTCOS:    0,  "9,999,999,999.99", "gtcos",        ""
~METHOD:    0,  "",                "md",          "md=IIF(F->METHOD='2','Declining',md)"
~LIFE:      0,  "999",              "F->LIFE",      ""
~RATE:      0,  "",                "F->RATE",      ""
~N:        0,  "999",              "cnt",          "cnt=cnt+1;tx=tx+1"
~RS:        0,  "999",              "cnt",          ""
~GC:        0,  "999",              "gc",          ""
~TX:        0,  "99,999",          "tx",          ""

~REMARK:    0,  "",                "ARTRNRM->REMARK",  ""
~HREM1:    0,  "",                "p_hrem( FAMAS->FASCOD,1 )",  ""
~HREM2:    0,  "",                "p_hrem( FAMAS->FASCOD,2 )",  ""
~HREM3:    0,  "",                "p_hrem( FAMAS->FASCOD,3 )",  ""
~HREM4:    0,  "",                "p_hrem( FAMAS->FASCOD,4 )",  ""
~HREM5:    0,  "",                "p_hrem( FAMAS->FASCOD,5 )",  ""
~HREM6:    0,  "",                "p_hrem( FAMAS->FASCOD,6 )",  ""
~HREM7:    0,  "",                "p_hrem( FAMAS->FASCOD,7 )",  ""
~HREM8:    0,  "",                "p_hrem( FAMAS->FASCOD,8 )",  ""
~HREM9:    0,  "",                "p_hrem( FAMAS->FASCOD,9 )",  ""
~HREM10:    0,  "",                "p_hrem( FAMAS->FASCOD,10 )",  ""

[savek]

ประโยคคำสั่งที่ผมให้แก้ไขนั้น ตรงเครื่องหมาย '' ต้องมีวรรคเหมือนตัวอย่างที่ผมให้ไปด้วยครับ ถ้าพิมพ์ติดกัน รายงานจะไม่แสดงผล

Query=.AND.DTOS(FAMAS->SALDAT)#'ตรงนี้ต้องเว้นวรรค'

[sayan]

แก้ไขแล้วได้รายงานตามที่ต้องการแล้วค่ะ ขอบคุณมากๆๆๆนะคะ