BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: Guitar-hero ที่ ธันวาคม 25, 2012, 15:39:41 PM

หัวข้อ: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: Guitar-hero ที่ ธันวาคม 25, 2012, 15:39:41 PM

สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ คือผมต้องการ ให้รายงานสามารถ พิมพ์ตัวเลข ให้เป็น ตัวอักษรได้

เช่น  3500 > "สามพันห้าร้อยบาทถ้วน"

อย่างนี้สามารถทำได้อย่างไรบ้างครับ

หัวข้อ: Re: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: nutsuanplu ที่ ธันวาคม 25, 2012, 15:57:31 PM

ลองเอาไปประยุกต์ดูครับ
วางไว้ใน variable

Value :=  ThaiMoney(100);

หัวข้อ: Re: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: Guitar-hero ที่ ธันวาคม 25, 2012, 15:59:49 PM

ขอบคุณมากๆครับ

หัวข้อ: Re: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: Guitar-hero ที่ ธันวาคม 25, 2012, 16:05:16 PM

แล้วถ้าจะใส่คำว่า "ถ้วน" ต่อท้ายต้องทำอย่างไรครับ

หัวข้อ: Re: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: Farza ที่ ธันวาคม 25, 2012, 16:13:58 PM

Value :=  ThaiMoney(100)+' ถ้วน';

หัวข้อ: Re: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: nutsuanplu ที่ ธันวาคม 25, 2012, 16:25:12 PM

คงต้องเขียนคำสั่งขึ้นมา ตรวจสอบว่ามีค่าทศนิยมหรือไม่
ลองทำดูครับ (ผมไม่เคยทำ  ;D)

หัวข้อ: Re: สอบถามพี่ๆเกี่ยวกับ Report Design ของ hosxp ครับ
เริ่มหัวข้อโดย: nutsuanplu ที่ มกราคม 11, 2013, 11:56:09 AM

ลองๆ ค้นเจอ เลยเอามาฝากครับ เอาไปวางไว้ใน variable ประเภท string
variable1 เป็นประเภท Double นะครับ

if pos('.',CurrToStr(variable1.value))>0 then
  Value := '( '+ThaiMoney(variable1.value) +' )'
else
  Value := '( '+ThaiMoney(variable1.value)+ 'ถ้วน )';