ใบสั่งขาย แสดง ประวัติเช็คคืน

[Thammada.k]

คำถาม : แบบทดสอบใบสั่งขาย ต้องการนำ ประวัติเช็คคืน (ยอดรวม หรือ ITEM ) มาแสดง เขียนคำสั่งเพิ่มอย่างไรค่ะ
ได้นำตัวแปร ยอดคงเหลือ=~BALANCE และ เช็ครับล่วงหน้า ~CHQCRV มาได้แสดงได้แล้ว
ขอบคุณมากค่ะ

[suchai]

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

จริงๆ แล้ว ประวัติของลูกค้าทั้งหมด อยู่ในหน้า รายละเอียดลูกค้า ในส่วนของเครื่องพิมพ์สีเหลือง (ใบตรวจสอบวงเงินสินเชื่อ) แต่เสียดายที่หลายท่านไม่ได้เห็นแบบฟอร์มที่ฉลาดตัวนี้ เนื่องจาก ชุดคำสั่งดั้งเดิม ดันกำหนดให้มีการตรวจสอบวงเงินอนุมัติที่มากกว่า 0 จึงทำให้แบบฟอร์มไม่ทำงาน ซึ่งถ้าเราอยากเห็นรายละเอียดต่างๆ เราต้องใส่ค่าที่มากกว่า 0 คือ 1 ขึ้นไป (วงเงินอนุมัติผมลองใช้แล้ว ค่อนข้างสำคัญและควบคุมไม่ให้มีการขายเกินวงเงิน กำหนดระดับการอนุมัติได้ด้วย ค่อนข้างดีทีเดียว คือถ้าติดวงเงิน ต้องให้ผู้มีอำนาจมารับรองยอดขายเกินวงเงิน ซึ่งก็ยังแบ่งระดับได้อีก ว่า ผจก.ไม่เกิน 50,000 เจ้าของไม่เกิน 200,000 ภรรยาเจ้าของได้ไม่จำกัด 555555)

หรือเข้าไปแก้ไขแบบทดสอบ

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

ถ้าเราใส่ ดอกจันนำหน้า Fiter=CRLINE>0 จะเป็นการยกเลิกหรือเพิกเฉยบรรทัดนี้ ความฉลาดของแบบฟอร์มก็จะมาปรากฏให้เราเห็น และคำสั่งต่างๆ การเชื่อมต่อหลายๆ เรื่อง เช่น ใบกำกับคงค้าง ใบรับมัดจำ ใบสั่งขายค้างส่ง เช็คที่ยังไม่ผ่านบัญชี รายงานประวัติเช็คคืน เมื่อมีการทำแบบคำสั่งที่หลากหลายไว้ 6 ลักษณะ สามารถเอาไปต่อยอดได้เป็นสิบ เป็นร้อย เป็นพัน ตามใจต้องการ

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

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

[Thammada.k]

ใช้คำสั่ง จาก file ARMAS ตามนี้ค่ะ
~BALANCE: 0, "999,999.99", "ARMAS->BALANCE", ""
~CHQCRV: 0, "999,999.99", "ARMAS->CHQRCV", ""

ขอบคุณมากค่ะ สำหรับคำสั่ง *Filter=CRLINE > 0 เพื่อให้ออกรายงาน

[suchai]

He:$E\NAME $E
He:~ADDR
He:~TEL $Eใบสั่งขาย$E
He:เลขประจำตัวผู้เสียภาษี•~TAXID ~P_ORGTXT ~P_ORGSTR
He:~CHK วันที่เช็คคืน เลขที่เช็คคืน ธนาคาร จำนวนเงิน
He:~CHK ~CHQDAT ~CHQNUM ~BANK ~RETAMT
He:
He: ลูกค้า ~CUSCOD ~BILLTO เลขที่ใบสั่งขาย ~SONUM

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

File=stmas
Alias=C
Tag=stmas1
System=DATA_PATH
Master file=oesoit
Master-Related Field=STKCOD

File=stloc
Alias=L
Tag=stloc1
System=DATA_PATH
Master file=oesoit
Master-Related Field=STKCOD+LOCCOD

File=BKTRN
Alias=K
Tag=BKTRN8
System=DATA_PATH
Master file=ARMAS
Master-Related Field=CUSCOD+'2'


~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", ""
~CHQREM: 0, "", "BKTRN->REMARK", ""
~RETAMT: 0, "99,999,999.99", "BKTRN->NETAMT", ""
~CHQREM: 0, "", "BKTRN->REMARK", ""
~CHK: 0, "", "CHK", "CHK=IIF(BKTRN->CHQNUM#' ',' ','}')"

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

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

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

[Thammada.k]

ขอบคุณมากค่ะ ที่สละเวลาเขียนเป็นวิทยาทาน โชคดีได้ร้บอานิสงส์กุศลของคุณครู ......... ขอบคุณอีกครั้งค่ะ

มีเนื้อที่ใบสั่งขาย จะเขียนรายการเช็คคืนทั้งหมดค่ะ

[Thammada.k]

รบกวนขอคำแนะนำเพิ่มเติมเกี่ยวกับ นำตัวแปรจาก รายละเอียดลูกค้า-->เช็คที่ยังไม่ผ่านบัญชี สถานะ 00 และ 02 นำมาแสดง ->ใบสั่งขาย
ใชคำสั่งเขียนโปรแกรมเงื่อนไขอย่างไรค่ะ
เขียนได้แล้ว
ยอดคงค้าง : xxx,xxx ---> ~BALANCE - ARMAS
เช็คที่ยังไม่ผ่านบัญชี (00) : 180,700 ---> ~CHQCRV - ARMAS
---------------------------------------------------------------------------------
ส่วนที่ยังทำไม่ได้ ขอคำแนะนำ
เช็คคืนยื่นใหม่ (02) : 42,800
--------------------------------------------------------------------------------
ขอบคุณมากน่ะค่ะ

[url][/url]

[suchai]

He:----------------------------------------------------------------------------------------------------------------------------------------------
He:ลำดับ รหัสสินค้า/รายการสินค้า จำนวน หน่วยนับ ราคาต่อหน่วย จำนวนเงิน
He:----------------------------------------------------------------------------------------------------------------------------------------------
Bo::
Ih:: ;1 bktrn->CUSCOD+bktrn->CHQSTAT oeso->cuscod+'0'
Ib: ~CHQSTAT ~CHQDAT ~CHQNUM ~BANK ~RETAMT ;1
Ih:: ;2 oesoit->sonum oeso->sonum
Ib: ~N ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~TRNVAL ;2

[item file]
File=oesoit
Alias=B
Tag=oesoit1
System=DATA_PATH

File=artrnrm
Alias=C
Tag=artrnrm1
System=DATA_PATH

File=stcrd
Alias=D
Tag=stcrd10
System=DATA_PATH

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

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

File=stmas
Alias=C
Tag=stmas1
System=DATA_PATH
Master file=oesoit
Master-Related Field=STKCOD

File=stloc
Alias=L
Tag=stloc1
System=DATA_PATH
Master file=oesoit
Master-Related Field=STKCOD+LOCCOD


~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", ""
~CHQREM: 0, "", "BKTRN->REMARK", ""
~RETAMT: 0, "99,999,999.99", "BKTRN->NETAMT", ""
~CHQSTAT: 0, "", "BKTRN->CHQSTAT", ""

ผมไม่อธิบาย และไม่ Sum ยอดให้ ลองเอาไปใช้ดู แต่ไม่เหมือนกับครั้งที่แล้ว เพราะทำแบบ Relate เช็คคืน รหัส 20
แต่คราวนี้ เล่นแบบแจกแจง Item เอาแต่รหัส 00 กับ 02

ถ้าคุณไม่เอาไฟล์ bktrn ที่ทำ Relate ไว้ออก แต่ไปเพิ่ม bktrn เป็น Item ด้วยก็ตัวใครตัวมัน ผมไม่เกี่ยว เพราะตั้งแต่ Item File จนถึง Relate File ผมคัดลอกทั้งหมดมาแสดงให้ดูทั้งหมด

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

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