แก้ฟอร์มใบกำกับภาษี สินค้าชุดพิเศษ แต่ไม่ลำดับสินค้าตัวลูก ?

[newer_ll]

ในเมนูขายเชื่อ มีการขายสินค้าทั้งแบบทั่วไป และสินค้าชุดพิเศษ
สินค้าชุดพิเศษไม่ต้องการให้ลำดับตัวลูก ต้องทำยังไงคะ
ตัวอย่าง
สินค้า A (สร้างในรายละเอียดสินค้า)
สินค้า S (สร้างในรายละเอียดสินค้าชุด เป็นสินค้าชุดพิเศษ)
ประกอบด้วย สินค้า ก จำนวน 2 ชิ้น
สินค้า ข จำนวน 3 ชิ้น
สินค้า ค จำนวน 1 ชิ้น
ในใบกำกับภาษีต้องการแสดง
ลำดับ....... ชื่อสินค้า...........จำนวน......ราคาต่อหน่วย........รวม
1........สินค้า A ...............2 ชิ้น..........@100 .......... 200
2........สินค้า S ............... 3 ชิ้น..........@ 500........ 1500
........สินค้า ก ...............6 ชิ้น
........สินค้า ข ............... 9 ชิ้น
........ สินค้า ค ...............3 ชิ้น
3.......สินค้า C ............... 1 ชิ้น..........@ 200 .......... 200

ปล. ใส่เป็นรูปหรือpdf ได้ยังไงคะ ข้อความตามตัวอย่างออกมาติดกัน เกรงว่าจะอ่านไม่เข้าใจน่ะค่ะ

[suchai]

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

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

ลองเพิ่มคำสั่งสีแดงเข้าไปดูครับ

*~N: 0, "ZZZ", "seq", "seq=seq+1"
~N: 0, "ZZZ", "seq", "seq=seq+IIF(STCRD->UNITPR=0.AND.STCRD->FREE#'Y',0,1)",0,1

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

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

คุณ newer_II หาโจทย์ที่ไม่ค่อยง่ายเลย

[newer_ll]

ขอบพระคุณอย่างสูงค่ะ

[suchai]

ใช้ภาษาธรรมดาก็ได้ครับ

ขอบคุณค่ะ

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

ไม่ได้

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

เหมือนวิธีคิดเมื่อ 4 ปี พอเปิด สินค้าชุดพิเศษ ก็ไปเริ่มคิดว่า ต้องเริ่มจาก STMAS->STKTYP='2' เท่านั้นเอง (เริ่มผิดทางจะหลงทางไปนาน) กลายเป็นมหากาพย์ ต้องไปแยก ทั้งสินค้าธรรมดา สินค้าชุดธรรมดา สินค้าชุดพิเศษ ให้วุ่นวาย หลบไปหลบมา เหมือนมาถึงหน้าเขาวัง เพชรบุรี ก็รีบๆ เดินขึ้นด้วยขา ถึงก็จริง แต่ก็แทบสลบ หยุดคิดนิดนึง รอบนี้ไปตีตั่วขึ้นด้วยรถกระเช้าไฟฟ้า ถึงเหมือนกัน สบายด้วย

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

[newer_ll]

รู้สึกเหมือนคุณ suchai เป็นอาจารย์ค่ะ เลยเกร็งไปหน่อย

[newer_ll]

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

1. สินค้า S
1. สินค้า ก
สินค้า ข
สินค้า ค
2. สินค้า A
3. สินค้า S1
สินค้า ก
สินค้า ข
แสดงแบบนี้น่ะค่ะ

[suchai]

แสดงว่า เอาไปใช้จริง ผมก็พยายามฉีกแนวเดิม แต่....อืม พบว่า ฟังก์ชั่น พรางตัวซ้ำ ,0,1 งอแง เล็กน้อย

เอาใหม่ แต่ก็ยังต้องใช้เทคนิคเดิมๆ แสดงว่า ของเก่า บางอย่างก็ยังใช้ได้ดีอยู่

Ih:: ;1 stcrd->docnum artrn->docnum
Ib::~N ;1
Ib:~NN ~ARTICLE ~QTY ~TQUCOD ~UNITPR ~NETAMT_I ;1



~INIT: 0, "", "", "seq=0; sumamt0=0; sumamt1=0;NN=0 "


~N: 0, "ZZZ", "seq", "seq=seq+IIF(STCRD->UNITPR=0.AND.STCRD->FREE#'Y',0,1);NN=IIF(STCRD->UNITPR=0.AND.STCRD->FREE#'Y',0,seq)"

~NN: 0, "ZZZ", "NN", ""


ผมลองดูแล้ว ใช้ได้ครับ

[newer_ll]

ขอบคุณค่ะ