เรียงลำดับเอกสารเวลาออกใบวางบิล

[CCP]

แก้ไขฟอร์มใบวางบิลให้แสดงเลขที่ PO ของลูกค้าด้วย โดยเอามาจากช่องอ้างอิงของ Invoice
ใบวางบิลแสดงเลขที่อ้างอิงดังกล่าวแล้ว (ตัวแปร ~YOUREF) แต่เอกสารยังเรียงตามลำดับเลขที่ Invoice อยู่ อยากทราบว่าจะแก้ให้เอกสารเรียงลำดับตาม ~YOUREF ได้มั้ยคะ?

[suchai]

ใช้เวลาแก้ไข 1.30 นาที นั่นหมายความว่า ต่อไป มีคีย์บอร์ดกับมือถือ สามารถแก้ฟอร์มง่ายๆ ภายในเวลา 3 สถานีรถไฟฟ้า BTS

บางครั้งการแก้ไขอะไรแปลกๆ ใหม่ๆ ประหลาดๆ ถึงว่าสิ ชอบไปขึ้นที่สถานีต้นทาง ปากน้ำ บางทีแก้ปัญหาเสร็จก็เอกมัยบ้าง ถ้ายากหน่อย ก็ไปหมอชิด และวกกลับมา อโศก คือ นั่งแก้ไขงานอยู่โต๊ะทำงาน เป็นเรื่องน่าเบื่อไปเสียแล้ว

แก้ไขฟอร์ม ในใบวางบิล ให้เรียงด้วย อะไรก็ไม่รู้ในช่องอ้างอิงของ IV

Ih:: ;1 artrn->bilnum arbil->bilnum
Ib: ~N ~IVCNUM ~YOUREFX ~IVCDAT ~DUEDAT ~NETAMT_I ~RCVAMT_I ~REMAMT_I ;1

[item file]
File=artrn
Alias=B
KEY=YOUREF
INDEX=C:\ARBILYOUR
FILTER=.NOT.DELETED()
System=DATA_PATH

~YOUREFX: 0, "", "ARTRN->YOUREF", ""

~YOUREFX คือสิ่งที่คุณต้องการ สำหรับผม คำว่า "ทำได้มั้ย" ไม่มีครับ มีแต่ว่า จะทำยังไง มีกี่ทางเลือก ทางไหนดีที่สุด Enjoy Express Game

[CCP]

[item file]
File=artrn
Alias=B
KEY=YOUREF
INDEX=C:\ARBILYOUR
FILTER=.NOT.DELETED()
System=DATA_PATH

ลอง copy ตรงนี้ไปใส่ และแก้ไข ~YOUREFX พอพิมพ์ทางหน้าจอดูข้อมูลไม่ขึ้นค่ะ ไม่ทราบว่าต้องแก้ไขยังไงบ้างคะ? พอดีไม่เข้าใจคำสั่ง INDEX ค่ะ

[suchai]

ลองเปลี่ยน INDEX=D:\ARBILYOUR เผื่อ WINDOWS ไม่ให้เขียนไดร์ฟ C ครับ

[CCP]

พอดีใช้ระบบ LAN ค่ะ ลองเปลี่ยนเป็นทั้ง D และ Z แล้วก็ยังไม่ขึ้นอะค่ะ

[suchai]

Ih:: ;1 artrn->bilnum arbil->bilnum
Ib: ~N ~IVCNUM ~YOUREFX ~IVCDAT ~DUEDAT ~NETAMT_I ~RCVAMT_I ~REMAMT_I ;1

[item file]
File=artrn
Alias=B
KEY=YOUREF
INDEX=C:\ARBILYOUR
FILTER=.NOT.DELETED()
System=DATA_PATH

~YOUREFX: 0, "", "ARTRN->YOUREF", ""

ส่วนที่เป็นสีแดง ครบหรือไม่

และใช้ INDEX=C:\ARBILYOUR ไม่ต้องไปถึง Z:\ เดี๋ยวข้อมูลล่ม

[CCP]

Ib: ~N ~YOUREFX ~IVCNUM ~IVCDAT ~DUEDAT ~AFTVAT_I ;1

[item file]
File=artrn
Alias=B
KEY=YOUREF
INDEX=C:\ARBILYOUR
FILTER=.NOT.DELETED()
System=DATA_PATH

~YOUREFX: 0, "", "ARTRN->YOUREF", ""


คิดว่าครบแล้วนะคะ

[CCP]

แบบฟอร์มตามนี้เลยค่ะ ตอนนี้ใส่ * ในส่วนที่แก้ไว้ก่อนเผื่อต้องใช้งานค่ะ

* ARBIL.RL - ãºÇÒ§ºÔÅ (BILLING SLIP)
*
[report frame]
*** ¼ÙéãªéÊÒÁÒöà»ÅÕè¹á»Å§á¡é䢕ä´éµÒÁµéͧ¡ÒÕ****************************************
Ti:: ~INIT
He:
He:^$B\NAME $B^
He:^~ADDR ^
He:^ â·ÃÈѾ·ì: ~TEL ^
He:\027\074\030^$B$EãºÇÒ§ºÔÅ$E$B^
He: $Bª×èÍÅÙ¡¤éÒ:$B ~CUSNAM àÅ¢·Õè• ~BILNUM
He: $B·ÕèÍÂÙè:$B ~ADDR01 Çѹ·Õè ~BILDAT
He: ~ADDR02
He: ~ADDR03
He: àÅ¢»ÃШӵÑǼÙéàÊÕÂÀÒÉÕ ~CUSTAXID
He:ïôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôð
He:ó $BÅӴѺ·Õè$B $BàÅ¢·Õè•PO$B $BàÅ¢·ÕèºÔÅ$B $BÇѹ·ÕèºÔÅ$B $BÇѹ¤Ãº¡Ó˹´$B $B¨Ó¹Ç¹à§Ô¹$B ó
He:ñôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôò
Bo::
Ih:: ;1 artrn->bilnum arbil->bilnum
Ib: ~N ~YOUREFX ~IVCNUM ~IVCDAT ~DUEDAT ~AFTVAT_I ;1
Bt:
Su: ÃÇÁ ~C_IVC ©ºÑº
Su:ïôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôð
Su:ó $B ~BAHT ÃÇÁà§Ô¹·Ñé§ÊÔé¹ ~NETAMT $Bó
Su:ñôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôò
Su: $BËÁÒÂà˵ؕ:$B ¡ÃسÒÊÑ觨èÒÂàªç¤ã¹¹ÒÁ•ºÃÔÉÑ·•¤Ø³âª•â»Ã´Ñ¤·ì•¨Ó¡Ñ´•à·èÒ¹Ñé¹
Su:
Su: ª×èͼÙéÃѺÇÒ§ºÔÅ••_________________ ¼ÙéÇÒ§ºÔÅ••_________________ ¼Ùé͹ØÁѵԕ•_________________
Su: Çѹ·ÕèÃѺ•••••••_________________ Çѹ·Õè•••••_________________ Çѹ·Õè••••_________________
Su: Çѹ·Õè¹Ñ´ÃѺàªç¤••_________________
Su:
*Su:ó ¾ÔÁ¾ìâ´Â ~PRNBY Çѹ·Õè ~PRNDAT ~PRNTIM ¤ÃÑ駷Õè~PRNCNT ºÑ¹·Ö¡â´Â ~RECBY ó
Su:
[end frame]

*** ¤ÓÊÑ觵èͨҡ¹Õ镼ÙéãªéäÁè¤ÇÃá¡é䢕****************************************

[print options]
Top=0
Left=0
Tabs=4
Right=90
Lines=45
Output=Select, Printer, Screen, File,
File Name=ARBIL.TXT
**Print Control=\027\033\001
Print Control=\027\033\000\027\103
Fix Summary Line=ON
Select Scope=OFF
*Form=ON
Select Page=OFF
Condition=OFF

[range of report]
From=CUR

[master file]
File=arbil
Alias=A
Tag=arbil1
System=DATA_PATH

[item file]
File=artrn
Alias=B
Tag=artrn4
System=DATA_PATH

*[item file]
*File=artrn
*Alias=B
*KEY=YOUREF
*INDEX=C:\ARBILYOUR
*FILTER=.NOT.DELETED()
*System=DATA_PATH

[relate file]
File=armas
Alias=R
Tag=armas1
System=DATA_PATH
Master file=arbil
Master-Related Field=CUSCOD

[data spec]
* len (0)default, (>0)cut, (<0)cut to new line
*~dat: len, "pict", "data", "exp"
~ADDR: 0, "", "p_addr()", ""
~TAXID: 0, "", "p_taxid()", ""
~TEL: 0, "", "p_telnum()", ""
~INIT: 0, "", "", "seq=0; sumbil=0; C_IVC=0"
~BILNUM: 0, "", "ARBIL->BILNUM", ""
~BILDAT: 0, "", "ARBIL->BILDAT", ""
~CUSCOD: 0, "", "ARBIL->CUSCOD", ""
~CUSNAM: 0, "", "cus_nam", "cus_nam = ARMAS->PRENAM - '•' - ARMAS->CUSNAM"
~CUSTAXID: 0, "", "ARMAS->TAXID", ""
~ADDR01: 0, "", "ARMAS->ADDR01", ""
~ADDR02: 0, "", "ARMAS->ADDR02", ""
~ADDR03: 0, "", "addr_03", "addr_03 = ARMAS->ADDR03 - '•' - ARMAS->ZIPCOD"
~TELNUM: 0, "", "ARMAS->TELNUM", ""
~PAYCOND: 0, "", "ARBIL->PAYCOND", ""
~REMARK: 0, "", "ARBIL->REMARK", ""
~BILOUT: 0, "", "ARBIL->BILOUT", ""

~N: 0, "999", "seq", "seq=seq+1"
*~YOUREF: 0, "", "ARTRN->YOUREF", ""
~YOUREFX: 0, "", "ARTRN->YOUREF", ""
~IVCNUM: 0, "", "ARTRN->DOCNUM", "C_IVC=C_IVC+1"
~IVCDAT: 0, "", "ARTRN->DOCDAT", ""
~C_IVC: 0, "99,999", "C_IVC", ""
*~DUEDAT: 0, "", "ARTRN->DUEDAT", ""
~DUEDAT: 0, "", "DUE", "DUE=IIF(ARTRN->RECTYP='3',ARTRN->DUEDAT,CTOD(' '))"
~NETAMT_I: 0, "99,999,999.99", "ARTRN->NETAMT", ""
~RCVAMT_I: 0, "ZZ,ZZZ,ZZZ.ZZ", "ARTRN->RCVAMT", ""
*~REMAMT_I: 0, "99,999,999.99", "rem", "rem = IIF(ARTRN->RECTYP='0'.or.ARTRN->RECTYP='5',ARTRN->REMAMT*-1,ARTRN->REMAMT); sumbil=sumbil+rem"
~BEFVAT_I: 0, "99,999,999.99", "befvat", "befvat = IIF(ARTRN->FLGVAT='1',ARTRN->NETAMT-ARTRN->VATAMT,ARTRN->TOTAL)"
~VATAMT_I: 0, "99,999,999.99", "ARTRN->VATAMT", ""
~AFTVAT_I: 0, "99,999,999.99", "net", "net = IIF(ARTRN->RECTYP='0'.or.ARTRN->RECTYP='5',ARTRN->NETAMT*-1,ARTRN->NETAMT); sumbil=sumbil+net"
~HREM1: 0, "", "p_hrem(A->BILNUM, 1)", ""
~HREM2: 0, "", "p_hrem(A->BILNUM, 2)", ""
~HREM3: 0, "", "p_hrem(A->BILNUM, 3)", ""
~HREM4: 0, "", "p_hrem(A->BILNUM, 4)", ""
~HREM5: 0, "", "p_hrem(A->BILNUM, 5)", ""
~SUMB: 0, "", "sumbil", ""
~NETAMT: 0, "99,999,999.99", "bilamt", "bilamt=IIF(STR(ARBIL->NETAMT,20,2) # STR(sumbil,20,2), 9999999999999.99, ARBIL->NETAMT)"
~BAHT: 0, "", "t_baht(ARBIL->NETAMT)", ""
~DEP: 0, "", "A->DEPCOD", ""
~P_ISDEP: 0, "", "p_isdep( A->DEPCOD )", ""

~PRNBY: 0, "", "p_userid()", ""
~PRNDAT: 0, "", "@d_prndat()", ""
~PRNTIM: 0, "", "s_prntim()", ""
~PRNCNT: 0, "999", "@n_prncnt()", ""
~RECBY: 0, "", "A->USERID", ""

[suchai]

*[item file]
*File=artrn
*Alias=B
*KEY=YOUREF
*INDEX=C:\ARBILYOUR
*FILTER=.NOT.DELETED()
*System=DATA_PATH

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

ที่ผมแนะนำ ก็ไม่ได้ใส่เครื่องหมาย * เพราะต้องการให้เกิดเหตุการณ์ เรียงตามช่องอ้างอิง

[CCP]

ตามที่ได้บอกไว้ตอนต้นคอมเมนท์เลยค่ะ

แบบฟอร์มตามนี้เลยค่ะ ตอนนี้ใส่ * ในส่วนที่แก้ไว้ก่อนเผื่อต้องใช้งานค่ะ

ตอนนี้คำสั่งที่คุณ Suchai ให้มาทำให้รายการไม่แสดงผล แต่บริษัทยังต้องปฎิบัติงานต่อ จึงใส่ * หน้าบรรทัดที่แก้ และใช้คำสั่งเดิมของทางระบบไปก่อน
แต่ตอนที่ทดสอบเอา * หน้าบรรทัดที่แก้ออก และใส่ * หน้าบรรทัดคำสั่งเดิมของระบบแทน รายการไม่แสดงผลค่ะ

[suchai]

คงต้องหลังไมค์ หรือข้อความทาง Mail suchai9@yahoo.co.th

คงมีอะไรที่ทำให้โปรแกรมเขียน Index ไม่ได้