BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: The Kop ที่ ธันวาคม 07, 2006, 03:08:16 AM

หัวข้อ: เกี่ยวกับ 12 แฟ้มไม่มีค่าห้อง
เริ่มหัวข้อโดย: The Kop ที่ ธันวาคม 07, 2006, 03:08:16 AM

เรียน อ.ชัยพรและผู้รู้ทุกท่าน คือตอนนี้ผมติดปัญหา ค่าห้องไม่ออกใน 12 แฟ้ม อ.เคยบอกว่าให้ใส่ค่าใน field  drg_group ด้วย เลยสงสัยว่าจะเอาค่าไหนมาใส่  เอาตรงตาม group ของ income เลย หรือว่าอิงตามอะไรครับ  ตอนนี้ใช้ส่งออก 12  แฟ้ม แล้ว นำไปโอนข้อมูลเข้า NHSO ขอตัวอย่างการลงด้วยครับ ขอบคุณครับ

หัวข้อ: Re: เกี่ยวกับ 12 แฟ้มไม่มีค่าห้อง
เริ่มหัวข้อโดย: manoi ที่ ธันวาคม 07, 2006, 09:09:01 AM

ใช้ code นี้เป็น guide ในการ Update drg_group จาก Income_group ครับ

โค๊ด: Delphi

1. case strtoint(tc.fieldbyname('income_group').asstring) of
2.             1: tc.fieldbyname('drg_group').asstring := '02';
3.             2: tc.fieldbyname('drg_group').asstring := '09';
4.             3: tc.fieldbyname('drg_group').asstring := '02';
5.             4: tc.fieldbyname('drg_group').asstring := '01';
6.             5: tc.fieldbyname('drg_group').asstring := '04';
7.             6: tc.fieldbyname('drg_group').asstring := '03';
8.             7: tc.fieldbyname('drg_group').asstring := '03';
9.             8: tc.fieldbyname('drg_group').asstring := '09';
10.             9: tc.fieldbyname('drg_group').asstring := '09';
11.             10: tc.fieldbyname('drg_group').asstring := '09';
12.             11: tc.fieldbyname('drg_group').asstring := '04';
13.             12: tc.fieldbyname('drg_group').asstring := '05';
14.             13: tc.fieldbyname('drg_group').asstring := '04';
15.             14: tc.fieldbyname('drg_group').asstring := '09';
16.             15: tc.fieldbyname('drg_group').asstring := '06';
17.             16: tc.fieldbyname('drg_group').asstring := '07';
18.             17: tc.fieldbyname('drg_group').asstring := '09';
19.           end;
20.