Express 5 ใบตรวจสอบวงเงินสินเชื่อ โชว์เงินมัดจำได้มั๊ยครับ

[callmepong]

ไม่ทราบว่า ใบตรวจสอบวงเงินสินเชื่อ (Alt+P) ในรายละเอียดสินค้า
ถ้าอยากให้ โชว์เงินมัดจำด้วยจะทำได้หรือเปล่า ปกติจะโชว์เฉพาะ
ใบกำกับคงค้าง แล้วก็ใบสั่งขายค้างส่ง แต่ถ้าอยากให้โชว์เงินมัดจำด้วย
จะได้หรือเปล่า แล้วก็ต้องทำอย่างไรบ้างครับ
ขอบคุณครับ

[Beckham]

ถ้าทำให้สแดงรายการเงินมัดจำรับ เป็นส่วนหนึ่งในใบตรวจสอบสินเชื่อ มีคนนึงทำได้แน่นอนครับ
เนื่องจาก เงินมัดจำรับ อยู่ในฐานข้อมูลเดียวกับใบกำกับคงค้าง (ARTRN) ต่างกันเพียงแค่ RECTYP
ของเอกสาร....ถ้าจะให้ออกในรายงาน Express เลยลองติดต่อคุณ Suchai ครับ 100% ทำได้แน่นอนครับ.... ฟันธง

[callmepong]

ในรายละเอียดลูกค้าครับ ผมพิมพ์ผิด
ขอโทษทีครับ

[Beckham]

อ่านปุ๊บก็รู้ตั้งแต่แรกแล้วล๊ะครับ ว่าพิมพ์ผิด เลยช่วยบอกให้ไงครับ ว่าทำได้....ฟันธงครับ

ว่าแต่คุณอาซัน...ไมหมู่นี้ดุจังเยย

[callmepong]

ดีใจครับ ที่คุณ Becham ฟันธงว่าได้
แต่จะดีใจมากกว่าครับ ถ้าได้วิธีทำด้วย
ยังไงรบกวนด้วยครับ
ขอบคุณมากครับ

[Beckham]

ลองติดต่อผู้เชี่ยวชาญด้านทำรายงาน ที่อีเมล์ suchai9@yahoo.co.th ครับ
แต่เรียนไว้นิดนึงก่อนครับ ว่าทำรายงานมีค่าใช้จ่ายนิดหน่อย ตามแต่ศรัทธา
เนื่องจากคุณสุชัยจะนำรายได้ทั้งหมดไปบริจาคให้มูลนิธิต่าง ๆ

ส่วนผมไม่นิยมทำรายงานในโปรแกรม Express เนื่องจากทำแล้วมันไม่ได้ดังใจนึก
เหมือนใช้โปรแกรม Visual Fox เขียนรายงานเอาเองข้างนอกดีกว่า ได้ตามที่ตั้งใจ
แถมได้ไฟล์ออกมาเป็น Excel เลย ไม่ต้องมานั่งถอด Text File เวียนหัว....

ลองดูครับ คุณสุชัย แน่นอนที่สุดแล้ว ขออนุโมทนา แด่กุลศลกรรมที่ได้ทำครั้งนี้ด้วยครับ....

[callmepong]

อ้าว....board นี้ ไม่ใช่ board ที่ให้พนักงาน Express มาตอบคำถามลูกค้าเหรอครับ
หรือว่าผมเข้าใจผิดไปเอง

[ppitaksu]

ปนๆกันครับ มีทั้งพวก พนักงาน และ พวก พักงาน (ว่างบ้างไม่ว่างบ้าง ก็แวะเวียน มาสร้างกุศล ยังไงก็ขอให้ผลบุญนี้จงมีแด่ผู้สร้างและผู้คนทั้งหลายด้วยกันทั้งหมดทั้งสิ้น) อยากให้โลกรู้ว่ายังมีคนใจกว้างอีกเยอะ There's something money can't buy!

[ppitaksu]

[quote="Beckham"]
ถ้าทำให้สแดงรายการเงินมัดจำรับ เป็นส่วนหนึ่งในใบตรวจสอบสินเชื่อ มีคนนึงทำได้แน่นอนครับ
เนื่องจาก เงินมัดจำรับ อยู่ในฐานข้อมูลเดียวกับใบกำกับคงค้าง (ARTRN) ต่างกันเพียงแค่ RECTYP
ของเอกสาร....ถ้าจะให้ออกในรายงาน Express เลยลองติดต่อคุณ Suchai ครับ 100% ทำได้แน่นอนครับ.... ฟันธง
[/quote]

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

[suchai]

อืม..อีก 3 เดือนก็จะครบอายุ 1 ปีของกระทู้นี้ ผมลองกลับมาอ่านในหลายๆ เหตุผล โดยเฉพาะอันสุดท้ายของคุณ ppitaksu
ก็เป็นว่า ช่วงสงกรานต์ นอกจากจะเที่ยวไปทำบุญตามวัดต่างๆ แล้ว จะใช้เวลาว่างในวันหยุด เพิ่ม เงินมัดจำรับ เข้าไปด้วย
เสร็จเมื่อไหร่จะแจ้งให้ทราบอีกที และสามารถดาวโหลดรายงาน ได้ที่   www.rayongit.co.th

ถ้าจะกล่าวถึงรายงาน จะมีอยู่ 2 ลักษณะคือ
1.รายงานทั่วไป ที่นำเอาข้อมูลขึ้นมาแสดงตรงๆ ไม่มีเงื่อนไขอะไร อย่างนี้ไม่ยาก บอกวิธีได้เลย
2.รายงานที่ต้องสร้างสูตร สร้างเงื่อนไข สร้างการแสดงผลใหม่ สร้างข้อมูลลักษณะใหม่ๆ อย่างนี้ถือว่ายาก
  และที่ยากที่สุดคือ ตอนตรวจตัวเลข ว่าไม่มีเงื่อนไขใดๆ หลุดไปที่จะทำให้ข้อมูลไม่สมบูรณ์เต็ม 100%

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

[suchai]

เสร็จเรียบร้อย สามารถไป Download ได้ที่     www.rayongit.co.th
ชื่อ 'ตรวจวงเงินเชื่อ-เงินมัดจำ' จะได้ไฟล์ชื่อ  ARMASCRE.ZIP เมื่อแตกไฟล์ออกมาจะได้ ARMASCRE.RR1
ไฟล์นี้เป็น แบบทดสอบ ฟอร์มที่ 1  ให้สร้างแบบทดสอบฟอร์มที่ 1 ก่อน แล้ว Copy ไฟล์นี้ไปทับในที่เก็บข้อมูล
แล้วลองพิมพ์แบบทดสอบ ข้อ 3 เลือกฟอร์มที่ 1    เมื่อใช้ได้แล้วก็ไปทำข้อ 4 นำแบบทดสอบไปทับข้อ 1 (ฟอร์มจริง)

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

สุดท้าย ผมไม่ได้คำนวณสรุปให้ เพราะ ดูๆ แล้วมันจะยุ่งเกินไป เป็นว่า คงของเดิมๆ เอาไว้ แต่แสดงในส่วนของเงินมัดจำเพิ่มให้เท่านั้น

[suchai]

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

                                                            จีงเรียนมาเพื่อทราบ                                                                                     
                                                                                      ผู้แก้ไข

[suchai]

Final ครับ สามารถเข้าไป download  'ตรวจวงเงินเชื่อ-เงินมัดจำ2' ได้ที่   www.rayongit.co.th
สิ่งที่แก้ไขจากภาคแรก
1.หากไม่มีเงินมัดจำ จะไม่แสดงหัวข้อเงินมัดจำขึ้นมา
2.หากมีการนำเงินมัดจำไปตัดกับ IV  จะแสดงเฉพาะส่วนของเงินมัดจำคงเหลือทั้งหมด
3.ยกเลิกเงื่อนไขการแสดงเฉพาะ เงินมัดจำ-เงินสด (เพราะไม่สามารถบอกสถานะเงินมัดจำคงเหลือได้)

ในการเขียนรายงานภาคแรก ผมได้ * เพื่อเป็นร่องรอยแก้ผู้จะศึกษา เนื่องจาก การกำหนดเงื่อนไข IIF มีความซ้ำซ้อนกับ Filter ของ ARTRNX ซึ่งทำให้เกิดความฟุ่มเฟือย หรือ เทคนิค ~XX ก็ไม่ได้ใช้ เฉพาะจะเกิดการรบกวนกับคำสั่ง Ih: ให้แสดงผลอยู่เสมอ สิ่งเหล่านี้ หลายๆ ท่านอ่านแล้วจะรู้สึก งง ว่าอะไรก็ไม่รู้ ก็ขอให้ปล่อย ให้วางลงซะ อย่าไปสนใจ

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

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

[ppitaksu]

ขอบคุณที่ให้แนวทาง ถือเป็นวิทยาทาน ได้บุ๊ญได้บุญ  ไหนๆก็ไหนๆ ผมได้ลองใช้แล้วเห็นว่าดีเลยอยากยกมาไว้ที่น่ีเลย เผื่อแผ่เพื่อนร่วมทาง(ผู้ใช้โปรแกรมเดียวกัน) อยากให้ลองนำไปใช้ดู หากมีข้อผิดพลาดโปรดแนะนำและแก้ไข ถ้าใช้ได้ดี ก็ยินดีด้วย ถ้าชอบใจ อยากบอกให้รู้ว่าใช้ได้ดีก็เขียนโปสการ์ดส่งมาติชมได้ (ส่งถึง ppitaksu 44/2-4 ม.5 ต.ท่าช้าง อ.เมือง จ.จันทบุรี 22000) อยากได้โปสการ์ดสวยๆไว้ดูเล่น 
* ARMASCRE.RL -- พิมพ์ใบตรวจสอบวงเงินสินเชื่อ
*
[report frame]
Ti::~T_IV1 ~T_IV2  ~T_DR1 ~T_DR2  ~T_SR1 ~T_SR2  ~T_RE1 ~T_RE2 ~T_HS1 ~T_HS2
Ti:~RESET_PAGE          ^$Bใบตรวจสอบวงเงินสินเชื่อ                   $B^
He:                                                                   หน้า             ~PAGE
He:รหัสลูกค้า ~CUSCOD     ประเภทลูกค้า ~CUSTYP                        วันที่      \DATE
He:ชื่อลูกค้า ~CUSNAM
Bo:ที่อยู่    ~ADDR01                                                 พนง.ขาย  ~SLMNAM
Bo:           ~ADDR_02                                                เขต      ~AREA
Bo:           ~ADDR_03                                                ยอดยกมา       ~BEGBAL
Bo:โทร.       ~TELNUM                                                 ยอดขายเครดิต ~TOTSAL
Bo:เครดิต     ~TRM วัน เงื่อนไขการชำระเงิน ~PAYCOND                   ยอดชำระรวม   ~TOTRCV
Bo:หมายเหตุ   ~REMARK                                                 ยอดคงค้าง     $B~BALANCE     $B
Bo:                                                                   ยอดขายสด     ~TOTHSAL
Bo:$Eสถานะหนี้สิน$E ~CLRSUM
*
Ih:   ***ใบกำกับคงค้าง***                                       ;1 ARTRN->CUSCOD  ARMAS->CUSCOD
Ih:   เลขที่          วันที่     วันครบกำหนด        จำนวนเงิน
Ih:   ----------      --------   ----------    -------------
Ib: ~F~IVCNUM         ~IVCDAT    ~IVCDUE       ~IVCAMT          ;1
If:                                            -------------    ;1
If:   รวม                                      ~SUMIVC
If:                                            =============
If:
*
Ih:   ***ใบสั่งขายค้างส่ง***                                    ;2 OESOIT->CUSCOD  ARMAS->CUSCOD
Ih:   เลขที่          วันที่     วันที่จะส่ง ค้างส่ง        จำนวนเงิน   สินค้า
Ih:   ----------      --------   ----------  --------   -------------   -----------------------------------
Ib:   ~SONUM     ~N   ~SODAT     ~SODLV      ~SOREMQ    ~SOAMT          ~SOSTKDES ;2
If:                                                     -------------    ;2
If:   รวม                                               ~SUMSO
If:                                                     =============
If:   $Bหมายเหตุ:$B  เอกสารที่มีเครื่องหมาย '>' นำหน้า คือ เอกสารที่รออนุมัติให้เกินวงเงิน
If:
*
Ih:   ***เช็คที่ยังไม่ผ่านบัญชี***                              ;3 BKTRN->CUSCOD+BKTRN->CHQSTAT  ARMAS->CUSCOD+'0'
Ih:   วันที่เช็ค      เลขที่เช็ค    ธนาคาร          จำนวนเงิน     อ้างถึงใบกำกับ  จำนวนเงิน
Ih:   --------        ----------    ------     -------------
Ib:   ~CHQDAT         ~CHQNUM       ~BANK      ~CHQAMT          ;3
Ih::                                                            ;5 ARRCPCQ->CHQNUM  BKTRN->CHQNUM
Ib:                                                               ~REFIVC    ~REFAMT    ;5
If:                                            -------------    ;3
If:   รวม                                      ~SUMCHQ
If:                                            =============
If:
*
Ih:   ***รายการประวัติเช็คคืน***                                ;4 BKTRN->CUSCOD+BKTRN->CHQSTAT  ARMAS->CUSCOD+'2'
Ih:   วันที่เช็ค      เลขที่เช็ค    ธนาคาร          จำนวนเงิน  เหตุผลเช็คคืน
Ih:   --------        ----------    ------     -------------   --------------------------------------------
Ib:   ~CHQDAT         ~CHQNUM       ~BANK      ~RETAMT         ~CHQREM      ;4
*Ih::                                                           ;5 ARRCPCQ->CHQNUM  BKTRN->CHQNUM
*Ib:                                                               ~REFIVC    ~REFAMT   ;5
If:                                            -------------    ;4
If:   รวม                                      ~SUMRET
If:                                            =============
*
Ih:   ***เงินมัดจำคงเหลือ***                                ;6 ARTRNX->CUSCOD ARMAS->CUSCOD
Ih:   เลขที่          วันที่         จำนวนเงินเดิม    ยอดเงินคงเหลือ
Ih:   ----------      --------     -------------     -------------
Ib:   ~AINUM          ~AIDAT       ~AINET            ~AIAMT           ;6
If:                                                  -------------    ;6
If:   รวม                                            ~SUMAI
If:                                                  =============
*
Su:
Su:$Eสรุป$E
Su:   วงเงินอนุมัติ                            ~CRLINE           บาท
Su:     ใบกำกับคงค้าง       ~SUMIVC             ~SUMIVC_OK
Su:     เช็ครับในมือ        ~SUMCHQ             ~SUMCHQ_OK
Su:     รวมยอดคงค้าง        $B~TOTDEB          $B
Su:   เกินวงเงิน                               ~OVRLINE
Su:   บวก ใบสั่งขายค้างส่ง                     ~SUMSO
Su:   หัก  เงินมัดจำคงเหลือ                    $_~SUMAI        $_
Su:                                            -------------
Su:   เกินวงเงินสินเชื่อทั้งสิ้น               ~TOTOVR
Su:                                            =============
Su:
Su:
Su:       จัดทำโดย                             ตรวจสอบโดย                          อนุมัติโดย
Su:
Su:    ______________                        ______________                     ______________
[end frame]

[print options]
Top=0
Right=105
Lines=41
*Output=Select, Printer, Screen, File,
Output=Screen
File Name=ARMAST.TXT
Fix Foot Line=OFF
Select Scope=OFF
*Form=ON
Select Page=OFF
Select Paper=15_Inch, 8_Inch, Default
*8_Inch=\027\033\004
8_Inch=\027\033\000\027\103
15_Inch=\027\033\001
*Fix Summary Line=ON
*Condition=SLMCOD='1234567890'.and.AREACOD='12'

[range of report]
From=CUR

[master file]
File=ARMAS
Alias=A
Tag=ARMAS1
System=DATA_PATH
Filter=CRLINE > 0

[item file]
File=ARTRN
Alias=B
Tag=ARTRN9
System=DATA_PATH

File=OESOIT
Alias=C
Tag=OESOIT5
System=DATA_PATH
Filter=REMQTY > 0 .and. SORECTYP = '0'

File=BKTRN
Alias=D
Tag=BKTRN8
System=DATA_PATH

File=ARRCPCQ
Alias=E
Tag=ARRCPCQ2
System=DATA_PATH

File=ARTRNX
Clone From=ARTRN
Alias=X
Tag=ARTRN9
System=DATA_PATH
Filter=ARTRNX->RECTYP='0'.AND.ARTRNX->REMAMT#0

[relate file]
File=OESLM
Alias=R
Tag=OESLM1
System=DATA_PATH
Master file=ARMAS
Master-Related Field=SLMCOD

File=OESO
Alias=S
Tag=OESO1
System=DATA_PATH
Master file=OESOIT
Master-Related Field=SONUM

File=ARBAL
Alias=T
Tag=ARBAL1
System=DATA_PATH
Master file=ARMAS
Master-Related Field=CUSCOD

[data spec]
*               len  (0)default, (>0)cut, (<0)cut to new line
*~dat:          len,    "pict",             "data",                     "exp"
~T_IV1:         0,      "",                 "",                         "t_iv = ARBAL->IV1+ARBAL->IV2+ARBAL->IV3+ARBAL->IV4+ARBAL->IV5+ARBAL->IV6+ARBAL->IV7+ARBAL->IV8+ARBAL->IV9+ARBAL->IV10+ARBAL->IV11+ARBAL->IV12"
~T_IV2:         0,      "",                 "",                         "t_iv = t_iv +ARBAL->IV1NY+ARBAL->IV2NY+ARBAL->IV3NY+ARBAL->IV4NY+ARBAL->IV5NY+ARBAL->IV6NY+ARBAL->IV7NY+ARBAL->IV8NY+ARBAL->IV9NY+ARBAL->IV10NY+ARBAL->IV11NY+ARBAL->IV12NY"
~T_DR1:         0,      "",                 "",                         "t_dr = ARBAL->DR1+ARBAL->DR2+ARBAL->DR3+ARBAL->DR4+ARBAL->DR5+ARBAL->DR6+ARBAL->DR7+ARBAL->DR8+ARBAL->DR9+ARBAL->DR10+ARBAL->DR11+ARBAL->DR12"
~T_DR2:         0,      "",                 "",                         "t_dr = t_dr +ARBAL->DR1NY+ARBAL->DR2NY+ARBAL->DR3NY+ARBAL->DR4NY+ARBAL->DR5NY+ARBAL->DR6NY+ARBAL->DR7NY+ARBAL->DR8NY+ARBAL->DR9NY+ARBAL->DR10NY+ARBAL->DR11NY+ARBAL->DR12NY"
~T_SR1:         0,      "",                 "",                         "t_sr = ARBAL->SR1+ARBAL->SR2+ARBAL->SR3+ARBAL->SR4+ARBAL->SR5+ARBAL->SR6+ARBAL->SR7+ARBAL->SR8+ARBAL->SR9+ARBAL->SR10+ARBAL->SR11+ARBAL->SR12"
~T_SR2:         0,      "",                 "",                         "t_sr = t_sr +ARBAL->SR1NY+ARBAL->SR2NY+ARBAL->SR3NY+ARBAL->SR4NY+ARBAL->SR5NY+ARBAL->SR6NY+ARBAL->SR7NY+ARBAL->SR8NY+ARBAL->SR9NY+ARBAL->SR10NY+ARBAL->SR11NY+ARBAL->SR12NY"
~T_RE1:         0,      "",                 "",                         "t_re = ARBAL->RE1+ARBAL->RE2+ARBAL->RE3+ARBAL->RE4+ARBAL->RE5+ARBAL->RE6+ARBAL->RE7+ARBAL->RE8+ARBAL->RE9+ARBAL->RE10+ARBAL->RE11+ARBAL->RE12"
~T_RE2:         0,      "",                 "",                         "t_re = t_re +ARBAL->RE1NY+ARBAL->RE2NY+ARBAL->RE3NY+ARBAL->RE4NY+ARBAL->RE5NY+ARBAL->RE6NY+ARBAL->RE7NY+ARBAL->RE8NY+ARBAL->RE9NY+ARBAL->RE10NY+ARBAL->RE11NY+ARBAL->RE12NY"
~T_HS1:         0,      "",                 "",                         "t_hs = ARBAL->HS1+ARBAL->HS2+ARBAL->HS3+ARBAL->HS4+ARBAL->HS5+ARBAL->HS6+ARBAL->HS7+ARBAL->HS8+ARBAL->HS9+ARBAL->HS10+ARBAL->HS11+ARBAL->HS12"
~T_HS2:         0,      "",                 "",                         "t_hs = t_hs +ARBAL->HS1NY+ARBAL->HS2NY+ARBAL->HS3NY+ARBAL->HS4NY+ARBAL->HS5NY+ARBAL->HS6NY+ARBAL->HS7NY+ARBAL->HS8NY+ARBAL->HS9NY+ARBAL->HS10NY+ARBAL->HS11NY+ARBAL->HS12NY"

~RESET_PAGE:    0,      "",                 "",                         "page=0"
~PAGE:          0,      "999",              "page",                     "page=page+1"

~CUSCOD:        0,      "",                 "A->CUSCOD",                ""
~CUSTYP:        0,      "",                 "p_istab( A->CUSTYP,45,1,31)",      ""
~CUSNAM:        0,      "",                 "name",                     "name = A->PRENAM - ' ' - A->CUSNAM"
~ADDR01:        0,      "",                 "A->ADDR01",                ""
~ADDR02:        0,      "",                 "A->ADDR02",                ""
~ADDR03:        0,      "",                 "A->ADDR03",                ""
~ADDR_02:       0,      "",                 "addr_02",                  "addr_02 = IIF(A->ADDR03='     ', A->ADDR02 - '   ' - A->ZIPCOD, A->ADDR02+'        ')"
~ADDR_03:       0,      "",                 "addr_03",                  "addr_03 = IIF(A->ADDR03#'     ', A->ADDR03 - '   ' - A->ZIPCOD, A->ADDR03+'        ')"
~ADDR:          0,      "",                 "addr",                     "addr = A->ADDR01 - ' ' - A->ADDR02 - ' ' - A->ADDR03 - ' ' - A->ZIPCOD"
~ZIP:           0,      "",                 "ARMAS->ZIPCOD",            ""
~TELNUM:        0,      "",                 "A->TELNUM",                ""
~CONTRACT:      0,      "",                 "A->CONTRACT",              ""
~TRM:           0,      "",                 "A->PAYTRM",                ""
~PAYCOND:       0,      "",                 "A->PAYCOND",               ""
~REM_NB:        0,      "",                 "has_remark",               "has_remark=IIF(A->REMARK='          ',':       ','หมายเหตุ')"
~REMARK:        0,      "",                 "A->REMARK",                ""
~CRLINE:        0,      "99,999,999.99",    "A->CRLINE",                ""

~SLMCOD:        0,      "",                 "A->SLMCOD",                ""
~SLMNAM:       20,      "",                 "OESLM->SLMNAM",            ""
~AREA:         20,      "",                 "p_istab( A->AREACOD, 40, 1, 30 )",     ""
~BEGBAL:        0,      "99,999,999.99",    "ARBAL->BEGBAL",            ""
~TOTSAL:        0,      "999,999,999.99",   "totsal",                   "totsal=t_iv+t_dr"
~TOTRCV:        0,      "999,999,999.99",   "totrcv",                   "totrcv=t_sr+t_re"
~BALANCE:       0,      "99,999,999.99",    "A->BALANCE",               ""
~TOTHSAL:       0,      "999,999,999.99",   "tothsal",                  "tothsal=t_hs"

~CLRSUM:        0,      "",                 "",                         "sumivc=0; sumso=0; sumchq=0; sumret=0; sumai=0"

~F:             0,      "",                 "ovrline",                  "ovrline=IIF(ARTRN->DOCSTAT='O',' >','  ' )"
~IVCNUM:        0,      "",                 "ARTRN->DOCNUM",            ""
~IVCDAT:        0,      "",                 "dat",                      "dat=IIF(ARTRN->RECTYP='9',ARTRN->DUEDAT,ARTRN->DOCDAT)"
~IVCDUE:        0,      "",                 "dat",                      "dat=IIF(ARTRN->RECTYP='9',ARTRN->DOCDAT,ARTRN->DUEDAT)"
~IVCAMT:        0,      "99,999,999.99",    "ivcamt",                   "ivcamt=IIF(ARTRN->RECTYP='5',ARTRN->REMAMT*-1,ARTRN->REMAMT); sumivc=sumivc+ivcamt"
~IVCTRM:        0,      "",                 "ARTRN->PAYTRM",            ""
~IVCSLM:        0,      "",                 "ARTRN->SLMCOD",            ""
~SUMIVC:        0,      "99,999,999.99",    "sumivc",                   ""
~SUMIVC_OK:     0,      "",                 "sumivc_ok",                "sumivc_ok = IIF(STR(sumivc,15,2)=STR(ARMAS->BALANCE,15,2), '               ', '<-ยอดไม่ถูกต้อง')"

~SONUM:         0,      "",                 "OESOIT->SONUM",            ""
~N:             0,      "",                 "OESOIT->SEQNUM",           ""
~SODAT:         0,      "",                 "OESO->SODAT",              ""
~SODLV:         0,      "",                 "OESOIT->DLVDAT",           ""
~SOAMT:         0,      "99,999,999.99",    "remain",                   "remain=( OESOIT->TRNVAL / OESOIT->ORDQTY) * OESOIT->REMQTY; sumso=sumso+remain"
~SUMSO:         0,      "99,999,999.99",    "sumso",                    ""
~SOSTKDES:     35,      "",                 "OESOIT->STKDES",           ""
~SOREMQ:        0,      "9,999.99",         "soremq",                   "soremq=OESOIT->REMQTY"

~CHQDAT:        0,      "",                 "BKTRN->CHQDAT",            ""
~CHQNUM:        0,      "",                 "BKTRN->CHQNUM",            ""
~BANK:          0,      "",                 "p_istab( BKTRN->BNKCOD, 01, 0, 6 )",           ""
~CHQAMT:        0,      "99,999,999.99",    "BKTRN->NETAMT",            "sumchq=sumchq+BKTRN->NETAMT"
~CHQREM:       44,      "",                 "BKTRN->REMARK",            ""
~SUMCHQ:        0,      "99,999,999.99",    "sumchq",                   ""
~SUMCHQ_OK:     0,      "",                 "sumchq_ok",                "sumchq_ok = IIF(STR(sumchq,15,2)=STR(ARMAS->CHQRCV,15,2), '               ', '<-ยอดไม่ถูกต้อง')"

~REFIVC:        0,      "",                 "ARRCPCQ->RCPNUM",          ""
~REFAMT:        0,      "99,999,999.99",    "ARRCPCQ->RCVAMT",          ""

~RETAMT:        0,      "99,999,999.99",    "BKTRN->NETAMT",            "sumret=sumret+BKTRN->NETAMT"
~SUMRET:        0,      "99,999,999.99",    "sumret",                   ""

~TOTDEB:        0,      "99,999,999.99",    "totdeb",                   "totdeb = sumivc+sumchq"
~OVRLINE:       0,      "99,999,999.99",    "overline",                 "overline = ARMAS->BALANCE + ARMAS->CHQRCV - ARMAS->CRLINE; over=overline+sumso-sumai; overline=IIF(overline<=0, 0, overline)"
~TOTOVR:        0,      "**,***,**9.99",    "over",                     "over = IIF(over > 0, over, 0)"
*~TOTOVR:        0,      "**,***,**9.99",    "over",                     "over = IIF(overline > 0, overline+sumso, 0)"

~AINUM:        0,      "",                 "ainum",                   "ainum=ARTRNX->DOCNUM"
~AIDAT:        0,      "",                 "dat",                     "dat=ARTRNX->DOCDAT"
~AINET:        0,      "99,999,999.99",    "ainet",                   "ainet=ARTRNX->NETAMT"
~AIAMT:        0,      "99,999,999.99",    "aiamt",                   "aiamt=ARTRNX->REMAMT; sumai=sumai+aiamt"
~SUMAI:        0,      "99,999,999.99",    "sumai",                   ""

~HREM1:         0,      "",                 "x1",                       "x1=@p_hrem( A->CUSCOD,1 )"
~HREM2:         0,      "",                 "x2",                       "x2=@p_hrem( A->CUSCOD,2 )"
~HREM3:         0,      "",                 "x3",                       "x3=@p_hrem( A->CUSCOD,3 )"
~HREM4:         0,      "",                 "x4",                       "x4=@p_hrem( A->CUSCOD,4 )"
~HREM5:         0,      "",                 "x5",                       "x5=@p_hrem( A->CUSCOD,5 )"

[ppitaksu]

มีใบตรวจฝั่งลูกค้าแล้ว เลยคิดต่อ ทำฝั่งบริษัทผู้จำหน่ายด้วยเลย แถมให้ครับ Take it, modify it and use it as you like. Human's knowledge belongs to the world.  (ยืมคำมาจากในหนังน่ะ ฮะฮะ) อยากสร้างให้เป็น จุดศูนย์รวมควบคุมเจ้าหนี้ (และลูกหนี้) Control center for AP and AR ดูแล้วสะดวกดีเลยคันมือ ขีดขีดเขียนเขียนเล่นครับดีดนิ้วไม่กี่ที แต่มีประโยชน์ต่อมวลชน ถ้า Express อยากนำไปบรรจุไว้ในโปรแกรมก็เชิญได้ตามสบายเลยครับ (แปะชื่อ ppitaksu@yahoo.com ไว้หน่อยก็พอ ขอเอี่ยวแค่ชื่อ  อิอิ) นำรายงานนี้ไปทับใน เมนูจ่าหน้าซองเจ้าหนี้ (ซื้อข้อ6) ลองดูนะครับ ถ้าพบข้อผิดพลาดขอได้โปรดช่วยแก้ไขและแจ้งเพื่อทราบจักขอบคุณยิ่ง
* APMASCRE.RL -- พิมพ์ใบตรวจสอบวงเงินสินเชื่อ
*
[report frame]
Ti::~T_RR1 ~T_RR2  ~T_CP1 ~T_CP2  ~T_GR1 ~T_GR2  ~T_PS1 ~T_PS2 ~T_HP1 ~T_HP2
Ti:~RESET_PAGE          ^$Bใบตรวจสอบวงเงินสินเชื่อ                  $B^
Ti:                                                                  หน้า            ~PAGE
Ti:รหัสบริษัท ~SUPCOD    ประเภท  ~SUPTYP                            วันที่      \DATE
Ti:ชื่อ      ~SUPNAM
Bo:ที่อยู่    ~ADDR01                                               
Bo:          ~ADDR_02                                                ยอดยกมา        ~BEGBAL
Bo:โทร.      ~TELNUM                                                ยอดซื้อเครดิต ~TOTPUR
Bo:เครดิต    ~TRM วัน เงื่อนไขการชำระเงิน ~PAYCOND                  ยอดชำระรวม    ~TOTPS
Bo:หมายเหตุ  ~REMARK                                                ยอดคงค้าง      $B~BALANCE    $B
Bo:                                                                  ยอดซื้อสด    ~TOTHPUR
Bo:$Eสถานะหนี้สิน$E ~CLRSUM
*
Ih:  ***ใบกำกับคงค้าง***                                      ;1 APTRN->SUPCOD  APMAS->SUPCOD
Ih:  เลขที่          วันที่    เลขบิลเจ้าหนี้ วันครบกำหนด        จำนวนเงิน
Ih:  ----------      --------  ----------    ----------    -------------
*Ib: ~F~RRCNUM        ~RRCDAT    ~RRSNUM        ~RRCDUE      ~RRCAMT          ;1
Ib:  ~RRCNUM        ~RRCDAT    ~RRSNUM        ~RRCDUE      ~RRCAMT          ;1
If:                                                          -------------    ;1
If:  รวม                                                    ~SUMRRC
If:                                                          =============
If:
*
Ih:  ***ใบสั่งซื้อค้างรับ***                                    ;2 POPRIT->SUPCOD APMAS->SUPCOD
Ih:  เลขที่          วันที่    วันที่นัดรับ ค้างรับ      จำนวนเงิน  สินค้า
Ih:  ----------      --------  ----------  --------  -------------  -----------------------------------
Ib:  ~PONUM    ~N  ~PODAT    ~PORCV      ~POREMQ    ~POAMT          ~POSTKDES ;2
If:                                                    -------------    ;2
If:  รวม                                              ~SUMPO
If:                                                    =============
*If:  $Bหมายเหตุ:$B  เอกสารที่มีเครื่องหมาย '>' นำหน้า คือ เอกสารที่รออนุมัติให้เกินวงเงิน
If:
*
Ih:  ***เช็คที่ยังไม่ผ่านบัญชี***                              ;3 BKTRN->CUSCOD+BKTRN->CHQSTAT  APMAS->SUPCOD+'0'
Ih:  วันที่เช็ค      เลขที่เช็ค    ธนาคาร          จำนวนเงิน    อ้างถึงใบกำกับ  จำนวนเงิน
Ih:  --------        ----------    ------    -------------
Ib:  ~CHQDAT        ~CHQNUM      ~BANK      ~CHQAMT          ;3
Ih::                                                            ;5 APRCPCQ->CHQNUM  BKTRN->CHQNUM
Ib:                                                              ~REFRCP    ~REFAMT    ;5
If:                                            -------------    ;3
If:  รวม                                      ~SUMCHQ
If:                                            =============
If:
**
*Ih:  ***รายการประวัติเช็คคืน***                                ;4 BKTRN->CUSCOD+BKTRN->CHQSTAT  APMAS->SUPCOD+'2'
*Ih:  วันที่เช็ค      เลขที่เช็ค    ธนาคาร          จำนวนเงิน  เหตุผลเช็คคืน
*Ih:  --------        ----------    ------    -------------  --------------------------------------------
*Ib:  ~CHQDAT        ~CHQNUM      ~BANK      ~RETAMT        ~CHQREM      ;4
**Ih::                                                          ;5 APRCPCQ->CHQNUM  BKTRN->CHQNUM
**Ib:                                                              ~REFRCP    ~REFAMT  ;5
*If:                                            -------------    ;4
*If:  รวม                                      ~SUMRET
*If:                                            =============
Ih:  ***เงินมัดจำจ่ายคงเหลือ***                                ;6 APTRNX->SUPCOD  APMAS->SUPCOD
Ih:  เลขที่          วันที่            จำนวนเงินเดิม      จำนวนเงินคงเหลือ
Ih:  ----------      --------        -------------        --------------
Ib:  ~AENUM        ~AEDAT            ~AENET                ~AEAMT          ;6
If:                                                          --------------    ;6
If:  รวม                                                    ~SUMAE
If:                                                          ==============
If:
*
Su:
Su:$Eสรุป$E
Su:  วงเงินอนุมัติ                            ~CRLINE          บาท
Su:    ใบกำกับคงค้าง      ~SUMRRC            ~SUMRRC_OK
Su:    เช็คจ่ายยังไม่ผ่าน  ~SUMCHQ            ~SUMCHQ_OK
Su:    รวมยอดหนี้          $B~TOTDEB          $B
Su:  เกินวงเงิน                              ~OVRLINE
Su:                                            -------------
Su:  บวก ใบสั่งซื้อค้างรับ                    ~SUMPO
Su:  หัก  ใบจ่ายเงินมัดจำคงเหลือ              $_~SUMAE          $_
Su:                                            -------------
Su:  เกินวงเงินสินเชื่อทั้งสิ้น              ~TOTOVR
Su:                                            =============
Su: หมายเหตุ: ~HREM1
Su:          ~HREM2
Su:          ~HREM3
Su:          ~HREM4
Su:          ~HREM5
Su:
*Su:      จัดทำโดย                            ตรวจสอบโดย                          อนุมัติโดย
*Su:    ______________                        ______________                    ______________
[end frame]

[print options]
Top=0
Right=105
Lines=123
*Output=Select, Printer, Screen, File,
Output=Screen
File Name=APMAST.TXT
Fix Foot Line=OFF
Select Scope=OFF
*Form=ON
Select Page=OFF
Select Paper=15_Inch, 8_Inch, Default
*8_Inch=\027\033\004
8_Inch=\027\033\000\027\103
15_Inch=\027\033\001
*Fix Summary Line=ON
*Condition=SLMCOD='1234567890'.and.AREACOD='12'

[range of report]
From=CUR

[master file]
File=APMAS
Alias=A
Tag=APMAS1
System=DATA_PATH
Filter=CRLINE > 0

[item file]
File=APTRN
Alias=B
Tag=APTRN9
System=DATA_PATH

File=POPRIT
Alias=C
Index=POPRITT.TMP
Tag=POPRIT
Key=SUPCOD
System=DATA_PATH
*Filter=REMQTY > 0 .and. PORECTYP = '0'  <---ที่ฟิลเตอร์ ต้องระบุให้แสดงเฉพาะ เรคคอร์ดที่ไม่ถูกลบ ด้วย ตามบรรทัดล่างนี้
Filter=REMQTY > 0 .and. PORECTYP = '0' .and. .not.deleted()

File=BKTRN
Alias=D
Tag=BKTRN8
System=DATA_PATH

File=APRCPCQ
Alias=E
Tag=APRCPCQ2
System=DATA_PATH

File=APTRNX
Clone From=APTRN
Alias=X
Tag=APTRN9
System=DATA_PATH
Filter=APTRNX->RECTYP='0'.AND.APTRNX->REMAMT#0

[relate file]
*File=OESLM
*Alias=R
*Tag=OESLM1
*System=DATA_PATH
*Master file=ARMAS
*Master-Related Field=SLMCOD

File=POPR
Alias=S
Tag=POPR1
System=DATA_PATH
Master file=POPRIT
Master-Related Field=PONUM

File=APBAL
Alias=T
Tag=APBAL1
System=DATA_PATH
Master file=APMAS
Master-Related Field=SUPCOD

File=BKMAS
Alias=L
Tag=BKMAS1
System=DATA_PATH
Master file=BKTRN
Master-Related Field=BNKACC

[data spec]
*              len  (0)default, (>0)cut, (<0)cut to new line
*~dat:          len,    "pict",            "data",                    "exp"
~T_RR1:        0,      "",                "",                        "t_rr = APBAL->RR1+APBAL->RR2+APBAL->RR3+APBAL->RR4+APBAL->RR5+APBAL->RR6+APBAL->RR7+APBAL->RR8+APBAL->RR9+APBAL->RR10+APBAL->RR11+APBAL->RR12"
~T_RR2:        0,      "",                "",                        "t_rr = t_rr +APBAL->RR1NY+APBAL->RR2NY+APBAL->RR3NY+APBAL->RR4NY+APBAL->RR5NY+APBAL->RR6NY+APBAL->RR7NY+APBAL->RR8NY+APBAL->RR9NY+APBAL->RR10NY+APBAL->RR11NY+APBAL->RR12NY"
~T_CP1:        0,      "",                "",                        "t_cp = APBAL->CP1+APBAL->CP2+APBAL->CP3+APBAL->CP4+APBAL->CP5+APBAL->CP6+APBAL->CP7+APBAL->CP8+APBAL->CP9+APBAL->CP10+APBAL->CP11+APBAL->CP12"
~T_CP2:        0,      "",                "",                        "t_cp = t_cp +APBAL->CP1NY+APBAL->CP2NY+APBAL->CP3NY+APBAL->CP4NY+APBAL->CP5NY+APBAL->CP6NY+APBAL->CP7NY+APBAL->CP8NY+APBAL->CP9NY+APBAL->CP10NY+APBAL->CP11NY+APBAL->CP12NY"
~T_GR1:        0,      "",                "",                        "t_gr = APBAL->GR1+APBAL->GR2+APBAL->GR3+APBAL->GR4+APBAL->GR5+APBAL->GR6+APBAL->GR7+APBAL->GR8+APBAL->GR9+APBAL->GR10+APBAL->GR11+APBAL->GR12"
~T_GR2:        0,      "",                "",                        "t_gr = t_gr +APBAL->GR1NY+APBAL->GR2NY+APBAL->GR3NY+APBAL->GR4NY+APBAL->GR5NY+APBAL->GR6NY+APBAL->GR7NY+APBAL->GR8NY+APBAL->GR9NY+APBAL->GR10NY+APBAL->GR11NY+APBAL->GR12NY"
~T_PS1:        0,      "",                "",                        "t_ps = APBAL->PS1+APBAL->PS2+APBAL->PS3+APBAL->PS4+APBAL->PS5+APBAL->PS6+APBAL->PS7+APBAL->PS8+APBAL->PS9+APBAL->PS10+APBAL->PS11+APBAL->PS12"
~T_PS2:        0,      "",                "",                        "t_ps = t_ps +APBAL->PS1NY+APBAL->PS2NY+APBAL->PS3NY+APBAL->PS4NY+APBAL->PS5NY+APBAL->PS6NY+APBAL->PS7NY+APBAL->PS8NY+APBAL->PS9NY+APBAL->PS10NY+APBAL->PS11NY+APBAL->PS12NY"
~T_HP1:        0,      "",                "",                        "t_hp = APBAL->HP1+APBAL->HP2+APBAL->HP3+APBAL->HP4+APBAL->HP5+APBAL->HP6+APBAL->HP7+APBAL->HP8+APBAL->HP9+APBAL->HP10+APBAL->HP11+APBAL->HP12"
~T_HP2:        0,      "",                "",                        "t_hp = t_hp +APBAL->HP1NY+APBAL->HP2NY+APBAL->HP3NY+APBAL->HP4NY+APBAL->HP5NY+APBAL->HP6NY+APBAL->HP7NY+APBAL->HP8NY+APBAL->HP9NY+APBAL->HP10NY+APBAL->HP11NY+APBAL->HP12NY"

~RESET_PAGE:    0,      "",                "",                        "page=0"
~PAGE:          0,      "999",              "page",                    "page=page+1"

~SUPCOD:        0,      "",                "A->SUPCOD",                ""
~SUPTYP:        0,      "",                "p_istab( A->SUPTYP,46,1,40)",      ""
~SUPNAM:        0,      "",                "name",                    "name = A->PRENAM - ' ' - A->SUPNAM"
~ADDR01:        0,      "",                "A->ADDR01",                ""
~ADDR02:        0,      "",                "A->ADDR02",                ""
~ADDR03:        0,      "",                "A->ADDR03",                ""
~ADDR_02:      0,      "",                "addr_02",                  "addr_02 = IIF(A->ADDR03='    ', A->ADDR02 - '  ' - A->ZIPCOD, A->ADDR02+'        ')"
~ADDR_03:      0,      "",                "addr_03",                  "addr_03 = IIF(A->ADDR03#'    ', A->ADDR03 - '  ' - A->ZIPCOD, A->ADDR03+'        ')"
~ADDR:          0,      "",                "addr",                    "addr = A->ADDR01 - ' ' - A->ADDR02 - ' ' - A->ADDR03 - ' ' - A->ZIPCOD"
~ZIP:          0,      "",                "APMAS->ZIPCOD",            ""
~TELNUM:        0,      "",                "A->TELNUM",                ""
~CONTRACT:      0,      "",                "A->CONTRACT",              ""
~TRM:          0,      "",                "A->PAYTRM",                ""
~PAYCOND:      0,      "",                "A->PAYCOND",              ""
~REM_NB:        0,      "",                "has_remark",              "has_remark=IIF(A->REMARK='          ',':      ','หมายเหตุ')"
~REMARK:        0,      "",                "A->REMARK",                ""
~CRLINE:        0,      "99,999,999.99",    "A->CRLINE",                ""

*~SLMCOD:        0,      "",                "A->SLMCOD",                ""
*~SLMNAM:      20,      "",                "OESLM->SLMNAM",            ""
*~AREA:        20,      "",                "p_istab( A->AREACOD, 40, 1, 30 )",    ""
~BEGBAL:        0,      "99,999,999.99",    "APBAL->BEGBAL",            ""
~TOTPUR:        0,      "999,999,999.99",  "totpur",                  "totpur=t_rr+t_cp"
~TOTPS:        0,      "999,999,999.99",  "totps",                  "totps=t_gr+t_ps"
~BALANCE:      0,      "99,999,999.99",    "A->BALANCE",              ""
~TOTHPUR:      0,      "999,999,999.99",  "tothpur",                  "tothpur=t_hp"

~CLRSUM:        0,      "",                "",                        "sumrrc=0; sumpo=0; sumchq=0; sumret=0; sumae=0"

~F:            0,      "",                "ovrline",                  "ovrline=IIF(APTRN->DOCSTAT='O',' >','  ' )"
~RRCNUM:        0,      "",                "APTRN->DOCNUM",            ""
~RRSNUM:        0,      "",                "APTRN->REFNUM",            ""
~RRCDAT:        0,      "",                "dat",                      "dat=IIF(APTRN->RECTYP='9',APTRN->DUEDAT,APTRN->DOCDAT)"
~RRCDUE:        0,      "",                "dat",                      "dat=IIF(APTRN->RECTYP='9',APTRN->DOCDAT,APTRN->DUEDAT)"
~RRCAMT:        0,      "99,999,999.99",    "rrcamt",                  "rrcamt=IIF(APTRN->RECTYP='5',APTRN->REMAMT*-1,APTRN->REMAMT); sumrrc=sumrrc+rrcamt"
~RRCTRM:        0,      "",                "APTRN->PAYTRM",            ""
*~RRCSLM:        0,      "",                "APTRN->SLMCOD",            ""
~SUMRRC:        0,      "99,999,999.99",    "sumrrc",                  ""
~SUMRRC_OK:    0,      "",                "sumrrc_ok",                "sumrrc_ok = IIF(STR(sumrrc,15,2)=STR(APMAS->BALANCE,15,2), '              ', '<-ยอดไม่ถูกต้อง')"

~PONUM:        0,      "",                "POPRIT->PONUM",            ""
~N:            0,      "",                "POPRIT->SEQNUM",          ""
~PODAT:        0,      "",                "POPR->PODAT",              ""
~PORCV:        0,      "",                "POPRIT->RCVDAT",          ""
~POAMT:        0,      "99,999,999.99",    "remain",                  "remain=( POPRIT->TRNVAL / POPRIT->ORDQTY) * POPRIT->REMQTY; sumpo=sumpo+remain"
~SUMPO:        0,      "99,999,999.99",    "sumpo",                    ""
~POSTKDES:    35,      "",                "POPRIT->STKDES",          ""
~POREMQ:        0,      "9,999.99",        "poremq",                  "poremq=POPRIT->REMQTY"

~CHQDAT:        0,      "",                "BKTRN->CHQDAT",            ""
~CHQNUM:        0,      "",                "BKTRN->CHQNUM",            ""
*~BANK:          0,      "",                "p_istab( BKTRN->BNKCOD, 01, 0, 6 )",          ""
*~BANK:          0,      "",                "BKTRN->BNKACC",            ""
~BANK:          0,      "",                "BKMAS->SHORTNAM",          ""
~CHQAMT:        0,      "99,999,999.99",    "BKTRN->NETAMT",            "sumchq=sumchq+BKTRN->NETAMT"
~CHQREM:      44,      "",                "BKTRN->REMARK",            ""
~SUMCHQ:        0,      "99,999,999.99",    "sumchq",                  ""
~SUMCHQ_OK:    0,      "",                "sumchq_ok",                "sumchq_ok = IIF(STR(sumchq,15,2)=STR(APMAS->CHQPAY,15,2), '              ', '<-ยอดไม่ถูกต้อง')"

~REFRCP:        0,      "",                "APRCPCQ->RCPNUM",          ""
~REFAMT:        0,      "99,999,999.99",    "APRCPCQ->PAYAMT",          ""

~RETAMT:        0,      "99,999,999.99",    "BKTRN->NETAMT",            "sumret=sumret+BKTRN->NETAMT"
~SUMRET:        0,      "99,999,999.99",    "sumret",                  ""

~TOTDEB:        0,      "99,999,999.99",    "totdeb",                  "totdeb = sumrrc+sumchq"
~OVRLINE:      0,      "99,999,999.99",    "overline",                "overline = APMAS->BALANCE + APMAS->CHQPAY - APMAS->CRLINE; over=overline+sumpo-sumae; overline=IIF(overline<=0, 0, overline)"
~TOTOVR:        0,      "**,***,**9.99",    "over",                    "over = IIF(over > 0, over, 0)"

~AENUM:        0,      "",                "aenum",                  "aenum=APTRNX->DOCNUM"
~AEDAT:        0,      "",                "dat",                    "dat=APTRNX->DOCDAT"
~AENET:        0,      "99,999,999.99",    "aenet",                  "aenet=APTRNX->NETAMT"
~AEAMT:        0,      "99,999,999.99",    "aeamt",                  "aeamt=APTRNX->REMAMT; sumae=sumae+aeamt"
~SUMAE:        0,      "99,999,999.99",    "sumae",                  ""

~HREM1:        0,      "",                "x1",                      "x1=@p_hrem( A->SUPCOD,1 )"
~HREM2:        0,      "",                "x2",                      "x2=@p_hrem( A->SUPCOD,2 )"
~HREM3:        0,      "",                "x3",                      "x3=@p_hrem( A->SUPCOD,3 )"
~HREM4:        0,      "",                "x4",                      "x4=@p_hrem( A->SUPCOD,4 )"
~HREM5:        0,      "",                "x5",                      "x5=@p_hrem( A->SUPCOD,5 )"