แก้อยู่นานไม่ได้สักที-ใบวางบิลผมแสดงมูลค่ารวมเป็น ****** คับ

[rawiwat12]

บิลที่ยอดเก็บหนี้เกิน 1 ล้านบาทน่ะครับจะแสดงยอด ******** ที่ช่องล่างขวาสุดของฟอร์ม คือจำนวนเงินรวม

ช่วยทีครับ
-------------------------------------------------------------------------------------------------------------------------------------------
* ARBIL.RLX - ãºÇÒ§ºÔÅ (BILLING SLIP)
*
[report frame]
*** ¼ÙéãªéÊÒÁÒöà»ÅÕè¹á»Å§á¡é䢕ä´éµÒÁµéͧ¡ÒÕ****************************************
Ti:: ~INIT
He:$E\NAME $E
He:~ADDR
He:~TEL $EãºÇÒ§ºÔÅ$E
He:
He: ÅÙ¡¤éÒ ~CUSCOD àÅ¢·ÕèãºÇÒ§ºÔÅ• ~BILNUM
He: ~CUSNAM
He: ~ADDR01 Çѹ·Õè ~BILDAT
He: ~ADDR02
He: ~ADDR03 à§×è͹䢡ÒêÓÃÐà§Ô¹ ~PAYCOND
He: ËÁÒÂà赯 ~REMARK
He:ïôôôôøôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôôôôôøôôôôôôôôôôôôôôôôôôôôôð
He:ó No.ó àÅ¢·Õè㺡ӡѺ ó Çѹ·Õè ó •Çѹ¤Ãº¡Ó˹´ ó ¨Ó¹Ç¹à§Ô¹ ó ªÓÃÐáÅéÇ ó à§Ô¹¤§¤éÒ§ ó
He:õôôôôùôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôôôö
Bo::
Ih:: ;1 artrn->bilnum arbil->bilnum
Ib: ~N ~IVCNUM ~IVCDAT ~DUEDAT ~NETAMT_I ~RCVAMT_I ~REMAMT_I ;1
Ih:: ;2 stcrd->DOCNUM artrn->DOCNUM
Ib: ~NN ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~NET_1 ;2
Bt:ó ó ó ó ó ó ó ó
Fo:õôôôô÷ôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôôôôôùôôôôôôôôôôôôôôôôôôôôôö
Su:ó~BAHT ÃÇÁà§Ô¹·Ñé§ÊÔé¹ ó ~NETAMT ó
Su:õôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô÷ôôôôôôôôôôôôôôôôôôôôôö
Su:ó ËÁÒÂà赯 ó
Su:ó ~HREM1 ó
Su:ó ~HREM2 ó
Su:ó ó
Su:ó ª×èͼÙéÃѺÇÒ§ºÔÅ••____________________ ã¹¹ÒÁ \NAME ó
Su:ó Çѹ·ÕèÃѺ•••••••___/___/___ ó
Su:ó Çѹ·Õè¹Ñ´ÃѺàªç¤••___/___/___ ª×èͼÙéÇÒ§ºÔÅ•____________________ ó
Su:ó ó
*Su:ó ¾ÔÁ¾ìâ´Â ~PRNBY Çѹ·Õè ~PRNDAT ~PRNTIM ¤ÃÑ駷Õè~PRNCNT ºÑ¹·Ö¡â´Â ~RECBY ó
Su:ñôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôò
[end frame]

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

[print options]
Top=0
Left=0
Tabs=4
Right=94
Lines=38
Output=Select, Printer, Screen, File,
File Name=ARBIL.TXT
Print Control=\018\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
File=stcrd
Alias=BB
Tag=stcrd5
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;seq1=0"
~NN: 0, "999", "seq1", "seq1=seq1+1"
~ARTICLE: 42, "", "article", "article=STCRD->STKCOD - '•' - STCRD->STKDES"
~QTY: 0, "qtyZ(7)", "STCRD->TRNQTY", ""
~TQUCOD: 9, "", "p_istab(STCRD->TQUCOD, 20,1,0)", ""
~UNITPR: 0, "priZ(10)", "STCRD->UNITPR", ""
~NET_1: 0, "ZZ,ZZZ,ZZZ.ZZ", "STCRD->TRNVAL", ""
~BILNUM: 0, "", "ARBIL->BILNUM", ""
~BILDAT: 0, "", "ARBIL->BILDAT", ""
~CUSCOD: 0, "", "ARBIL->CUSCOD", ""
~CUSNAM: 0, "", "cus_nam", "cus_nam = ARMAS->PRENAM - '•' - ARMAS->CUSNAM"
~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", ""
~NETAMT: 0, "99,999,999.99", "bilamt", "bilamt=IIF(STR(ARBIL->NETAMT,15,2) # STR(sumbil,15,2), 999999999999.99, ARBIL->NETAMT)"
~BAHT: 0, "", "t_baht(ARBIL->NETAMT)", ""

~N: 0, "999", "seq", "seq=seq+1"
~IVCNUM: 0, "", "ARTRN->DOCNUM", ""
~IVCDAT: 0, "", "ARTRN->DOCDAT", ""
*~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)", ""

~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", ""

[ITIMz]

ให้อยู่ที่หน้าบิล BI นะครับแล้วกด F8+Esc ครับ

[rawiwat12]

ช่างเป็นจุดใต้ตำตอยิ่งนัก

อ้ายกระผมก็ว่าแก้ตามคู่มือจนมึนแล้ว

ขอบพระคุณมากครับ

[suchai]

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

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

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

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

ส่วนผมเอง ถนัดที่จะอยู่กับเจ้าของหรือฝ่ายบริหาร ก็จะมีเครื่องมือตรวจหรือกวาดมอง ความเป็นปกติและความสมเหตุสมผลขององค์กร ก็เขียนรายงานตรวจสอบข้อมูลว่า มีใบวางบิลไหนที่ยอดไม่สมเหตุสมผลกับยอดขายเชื่อ และวิเคราะห์ต่อไปว่า เป็นการแก้ไขในคนๆ เดียวกันหรือไม่ และในวันเดียวกันหรือไม่ หรือย้อนมาแก้ไขทีหลัง เพื่ออะไร ซึ่งเราสามารถใส่บทวิเคราะห์พฤติกรรมของการทำงานในลักษณะต่างๆได้ ทำให้เราเข้าใจบุคคลากรในองค์กรได้มากขึ้น โดยดูจากข้อมูลที่วิ่งไปวิ่งมา ว่า เป็นคนขยัน คนขี้เกียจ ประมาทเลินเล่อ เจ้าเลห์ หรือทำทุจริต

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

เห็นมีผู้กล่าวว่า ERP ระดับ A Class คือการพยากรณ์สถานการณ์ต่างๆ ได้ต่อเนื่องและเป็นไปตามจริง จริงๆ ยังมีปัญหาที่สูงว่า A Class เสียอีก คือ ไม่ว่าระบบจะเลิศเลอ เพอเฟร็กเพียงใด ก็ยังใช้คนคุมระบบอยู่ คนเราก็มีทั้งดีและไม่ดี มีทั้งฉลาดและไม่ฉลาด ถ้าเขียนโปรแกรมตรวจพฤติกรรมของคนอย่างเข้มงวด ระบบมันก็จะดีไปเอง อันนี้ไม่ใช่แนวคิด แต่ได้ลองทำมา 2-3 ปีแล้ว ถูกใจผมมาก คน 1000 คน ไม่รู้ว่าเราใช้วิธีอะไรตรวจจับ แค่มีคนที่เป็นผู้ตรวจสอบภายในที่เข้มงวดและซื่อตรง คอยมองรายงานชี้เป้าหมาย ข้อมูลที่ไหลเวียนอยู่มากมายมหาศาล ใครจะไปคิดว่าจะถูกเขียนให้ผูกโยงกลับไปกลับมาเหมือนตาข่ายฟ้าที่มองไม่เห็น พอมีอะไรผิดปกติ เราก็แค่ไปสอบถาม

ก็ไม่แปลกใจว่า ในโลกโซเชียล ไม่ว่า กล้อง การ์ดเครดิต facebook youtube email มันมีกลไลในการติดตามพฤติกรรมของพวกเราทุกคน คนที่คุมระบบจะเหมือนเทวดา ใครคุมโซเชียลได้ ก็เหมือนกับคุมพฤติกรรมของทุกคนเอาไว้ ส่วนผมแค่รู้ในทุกๆ เรื่องของข้อมูลในองค์กร ก็จะรู้ว่าแต่ละคนเป็นอย่างไร

มีเวลาว่าง ควรปลีกวิเวก ปิดเครื่อง เข้าป่า ไปหาธรรมชาติ น่าจะดีกว่า