การสร้างรายงานด้วยเอง รายงาน 542

[siriwanlaya]

ต้องการสร้างรายงานแยกประเภท แบบรวมแผนก ข้อ 542 แต่เกิดข้อผิดพลาดตาม ไฟล์ 542 Report.pdf

ไม่มีการกำหนดตัวแปร XACCNUM ก่อนหน้านี้
นิพจน์การคำนวณ : 'x=IIF(p=1'$B'+xaccnum,'

ขอคำแนะการแก้ไขด้วยค่ะ

[savek]

ปกติตัวแปร xaccnum จะถูกประกาศค่าไว้ในบรรทัดข้างล่างนี้ (อยู่ในส่วนของ [data spec]) ครับ

~ACNUM: 0, "", "A->ACCNUM", "xaccnum = A->ACCNUM"

ดังนั้นอาจจะเป็นไปได้ว่ามีการลบตัวแปร ~ACNUM ในบรรทัดข้างล่างนี้ทิ้งไป หรือไปลบบรรทัดข้างบนในส่วนของ [data spec] ทิ้งครับ ทำให้โปรแกรมหาตัวแปรดังกล่าวนี้ไม่พบ

Bo:$B~ACNUM ~ACNAM $B ~BALANCE

[siriwanlaya]

จากการตรวจสอบพบ ตัวแปร ทั้งในส่วน data spec และ BO รบกวนช่วยตรวจสอบอีกครั้งว่าจุดใดผิดพลาด
* GLLEDDEP.RWT - General Ledger Listing (ẺÃÇÁá¼¹¡)
*
[report frame]
Ti::~INIT_VAR
He:\NAME `˹éÒ : \PAGE
He:$EÃÒ§ҹá¡»ÃÐàÀ··ÑèÇä»$E (ÃÇÁá¼¹¡)
He:Çѹ·Õè¨Ò¡ ~FROMDATE ¶Ö§ ~TODATE `Çѹ·Õè : \DATE
H1:àÅ¢·ÕèºÑ­ªÕ ~FROMACC ¶Ö§ ~TOACC àÅ×Í¡á¼¹¡ ~FROMDEP
He:\LINE
He: Çѹ·Õè ÊÁØ´ ãºÊӤѭ ¤Ó͸ԺÒ ഺԷ à¤Ã´Ôµ ʶҹРÂÍ´¤§àËÅ×Í
He:\LINE
He:~X ~Y (µèÍ)$B
* dd/mm/yy GEN GLxxxxxxxx xxxxxxxxx1xxxxxxxxx2xxxxxxxxx3xxxxxxxxx4xxxxxxxxx5 99,999,999,999.99 99,999,999,999.99 E 99,999,999,999.99
Gh:: ; 1 GLACC->ACCNUM
Bo::~BALFWD ~A1
Bo:$B~ACNUM ~ACNAM $B ~BALANCE
Ih:: ~INIT2 ;1 GLJNLIT->ACCNUM GLACC->ACCNUM
Ib:~VDATE ~MNE ~VOUCHER ~DESCRP ~DB_AMT ~CR_AMT ~S~BALANCE ~A2 ; 1
If: ----------------- ----------------- ; 1
If: ÃÇÁ $B~TOTDB ~TOTCR $B
Gf: ; 1
Gf:~F\FEED ; 1
Su: ----------------- -----------------
Su: ÃÇÁ·Ñé§ÊÔé¹ ~RS ÃÒ¡Òà ~TC ºÑ­ªÕ ~GTDB ~GTCR
Su: ================= =================
Su: ËÁÒÂà˵ؕ•ã¹ªèͧ•'ʶҹÐ'•¶éÒÁÕÍÑ¡ÉÕC•¨ÐËÁÒ¶֧ÇèÒ•à»ç¹ÃÒ¡Ò÷Õè¶Ù¡Â¡àÅÔ¡
Su: E•¨ÐËÁÒ¶֧ÇèÒ•à»ç¹ÃÒ¡Ò÷Õèá¡éä¢à¾ÔèÁàµÔÁ•ËÅѧ¨Ò¡¼èÒ¹ºÑ­ªÕáÅéÇ•(á¡éä¢áººÁÕÃèͧÃÍÂ)
Su:
Su:>>>> ¨ºÃÒ§ҹ <<<<
[end frame]

[print options]
Top=0
Right=136
Lines=41
Output=Select, Printer, Screen, File,
File Name=GLLEDGER.TXT
Select Paper=15_Inch, 8_Inch, Default
8_Inch=\027\033\004
15_Inch=\027\033\001
Query=ACCNUM>='Acc1()'.AND.ACCNUM<='Acc2()' .AND. GLACC->ACCTYP='0'

[master file]
File=GLACC
Alias=A
Tag=GLACC1
System=DATA_PATH

[item file]
File=GLJNLIT
Alias=J
***Tag=GLJNLIT2
Key=ACCNUM+DTOS(VOUDAT)+VOUCHER
Filter=.NOT.DELETED()
System=DATA_PATH

[relate file]
File=GLBAL
Alias=B
Tag=GLBAL1
System=DATA_PATH
Master file=GLACC
Master-Related Field=ACCNUM
Relate Type=SCAN

File=GLJNL
Alias=H
Tag=GLJNL1
System=DATA_PATH
Master file=GLJNLIT
Master-Related Field=VOUCHER

[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len,"pict", "data", "exp"
~INIT_VAR: 0, "", "", "GTDB=0;GTCR=0;CNT=0;TAC=0;p=0; audit=@n_isAudit()"
~INIT2: 0, "", "", "TOTDB=0;TOTCR=0;p=1"
~FROMACC: 0, "", "Acc1()", ""
~TOACC: 0, "", "Acc2()", ""
~FROMDATE: 0, "d•´´´•»»»»", "@date1()", ""
~TODATE: 0, "d•´´´•»»»»", "@date2()", ""
~FROMDEP: 0, "", "Dep1()", ""
~PF: 0, "", "Period1()", ""
~PT: 0, "", "Period2()", ""
~BALFWD: 0, "", "amt", "BALANCE=@nBAL_LDX()"
***~ACNUM: 0, "", "A->ACCNUM", ""
~ACNUM: 0, "", "A->ACCNUM", "xaccnum = A->ACCNUM"
~DEP: 0, "", "J->DEPCOD", ""
~ACNAM: 0, "", "A->ACCNAM", "xaccnam = A->ACCNAM"
~VDATE: 0, "", "J->VOUDAT", "", 0, 1
~MNE: 0, "", "mne_jnl()", ""
~VOUCHER: 0, "", "J->VOUCHER", "DB_AMT=IIF(J->TRNTYP='0', J->AMOUNT, 0)"
~DESCRP: 0, "", "J->DESCRP", "CR_AMT=IIF(J->TRNTYP='1', J->AMOUNT, 0)"
~DB_AMT: 0, "ZZ,ZZZ,ZZZ,ZZZ.ZZ", "DB_AMT", "TOTDB=TOTDB+DB_AMT;BALANCE=BALANCE+DB_AMT"
~CR_AMT: 0, "ZZ,ZZZ,ZZZ,ZZZ.ZZ", "CR_AMT", "TOTCR=TOTCR+CR_AMT;BALANCE=BALANCE-CR_AMT"
~TOTDB: 0, "99,999,999,999.99", "TOTDB", "GTDB=GTDB+TOTDB;p=0"
~TOTCR: 0, "99,999,999,999.99", "TOTCR", "GTCR=GTCR+TOTCR"
~GTDB: 0, "99,999,999,999.99", "GTDB", ""
~GTCR: 0, "99,999,999,999.99", "GTCR", ""
~BALANCE: 0, "(99,999,999,999.99)", "BALANCE", ""
~A1: 0, "", "", "TAC=TAC+1"
~A2: 0, "", "", "CNT=CNT+1"
~RS: 0, "99,999", "CNT", ""
~TC: 0, "999", "TAC", ""
~S: 0, "", "POST", "POST=IIF(GLJNL->DOCSTAT='C','C',IIF(GLJNL->TRNSTAT='U','U',IIF(audit=1.AND.GLJNLIT->ADJUST='Y','E',' ')))"
***~X: 0, "", "x", "x=IIF(p=1,'$B'+B->ACCNUM,'} ')"
~X: 0, "", "x", "x=IIF(p=1,'$B'+xaccnum,'} ')"
~Y: 0, "", "xaccnam", ""
~L: 0, "", "x", "x=@p_all();x=IIF(x='Y','}',' ')"
~F: 0, "", "x", "x=@p_all();x=IIF(x='Y',' ','}')"

[savek]

ผมก๊อปปี้ชุดคำสั่งที่ให้มา ไปลองทดสอบพิมพ์ดู ก็ไม่พบ Error ใดๆ ครับ ยังอาจจะลองสั่งจัดเรียงข้อมูลทุกระบบดูสักครั้ง แล้วทดสอบพิมพ์ดูอีกทีครับ

[siriwanlaya]

ฟังชั่นที่พบปัญหาคือ สร้างรายงานใหม่ - รายงานแบบดั้งเดิม ISMODFIY,Y , รายงานแบบใหม่(ปรับฟอนต์ได้) ISMODFIY,N โดยใช้รายงาน542เป็นต้นฉบับแปลงมาเป็นรายงานแบบ 542.RWT , 542.RWX
ซึ่งรายงานแบบ542.RWT เรียกดูได้ ไม่มีปัญหาใด แต่รายงาน 542.RWX เกิดข้อผิดพลาด จากการไม่มีการกำหนดตัวแปร XACCNUM ก่อนหน้านี้ ค่ะ

[savek]

รบกวนโทร.เข้ามา เพื่อตรวจสอบไปพร้อมๆ กับเจ้าหน้าที่ฝ่ายบริการได้เลยนะครับ