BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: panus_t ที่ กรกฎาคม 09, 2012, 14:49:48 PM

หัวข้อ: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: panus_t ที่ กรกฎาคม 09, 2012, 14:49:48 PM

แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
ทำรายงานใน win7 เป็น ค.ศ.
ตัวนี้ผมยังแก้ไขไม่เป็นครับ
 ;D

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: nahos ที่ กรกฎาคม 09, 2012, 15:08:30 PM

อุปกรณ์หาปลา ;D

การดึงวันที่เลือกข้อมูลมาใส่ในรายงาน
แบบที่ 1 ใช้ label
(สร้าง  Lebel ไปที่ calc >events> select lebel>ongetTexe > copy>past
 Text := 'ข้อมูลช่วงวันที่   '+ISO2Date(GetUserParameter(0),'dd mmmm eee')+ '  ถึง  '+
          ISO2Date(GetUserParameter(1),'dd mmmm eee') ;

แบบที่2 สร้าง Variable 
Value := FormatThaiDate('dd/mm/eeee',td1);  และ
Value := FormatThaiDate('dd/mm/eeee',td2);
       
หมายเหตุ ใน วันที่ win7 จะใช้ dd mm eee ไม่ได้
ต้องใช้ function กำกับใน report คือ formatthaidate('d mmmm yyyy',date1);

ตัวอย่าง  Variable 
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['vstdate'])
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['expiredate'])
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['regdate'])
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['DOB'])
Value := FormatThaiDate('d mmmm yyyy',CurrentDate)       

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: udomchok ที่ กรกฎาคม 09, 2012, 17:43:14 PM

อ้างจาก: nahos ที่ กรกฎาคม 09, 2012, 15:08:30 PM

อุปกรณ์หาปลา ;D

การดึงวันที่เลือกข้อมูลมาใส่ในรายงาน
แบบที่ 1 ใช้ label
(สร้าง  Lebel ไปที่ calc >events> select lebel>ongetTexe > copy>past
 Text := 'ข้อมูลช่วงวันที่   '+ISO2Date(GetUserParameter(0),'dd mmmm eee')+ '  ถึง  '+
          ISO2Date(GetUserParameter(1),'dd mmmm eee') ;

แบบที่2 สร้าง Variable 
Value := FormatThaiDate('dd/mm/eeee',td1);  และ
Value := FormatThaiDate('dd/mm/eeee',td2);
       
หมายเหตุ ใน วันที่ win7 จะใช้ dd mm eee ไม่ได้
ต้องใช้ function กำกับใน report คือ formatthaidate('d mmmm yyyy',date1);

ตัวอย่าง  Variable 
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['vstdate'])
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['expiredate'])
Value := FormatThaiDate('d mmmm yyyy', DBPipeline['regdate'])
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['DOB'])
Value := FormatThaiDate('d mmmm yyyy',CurrentDate)       

ทำถูกแล้วครับ  ;D ;D ;D ;D

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: panus_t ที่ กรกฎาคม 10, 2012, 08:52:06 AM

ปัญหาอยู่ที่ตัว variable ของรายงานตัวนี้มันเป็น   Value :=  rxdate1;

มาจาก
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
rxdate1:=date1;
rxdate2:=date2;
{year_th:=InputQuery('กรุณาใส่ปีงบประมาณ พ.ศ.', 'ปีงบประมาณ พ.ศ.'); }
{showMessage(year_th);}
end;

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: Khuad ที่ กรกฎาคม 10, 2012, 09:02:08 AM

อ้างจาก: panus_t ที่ กรกฎาคม 10, 2012, 08:52:06 AM

ปัญหาอยู่ที่ตัว variable ของรายงานตัวนี้มันเป็น   Value :=  rxdate1;

มาจาก
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
rxdate1:=date1;
rxdate2:=date2;
{year_th:=InputQuery('กรุณาใส่ปีงบประมาณ พ.ศ.', 'ปีงบประมาณ พ.ศ.'); }
{showMessage(year_th);}
end;


... จากตรงสีแดงนะครับ ...  :D ...

    Value := FormatThaiDate('d mmmm yyyy',date1);

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: panus_t ที่ กรกฎาคม 10, 2012, 09:49:24 AM

ผมลองเอาคำสั่ง
Value := FormatThaiDate('d mmmm yyyy',date1);
ไปแทนที่ใน Variable1 แล้วครับยังไม่ได้ขึ้น Error ครับ

 ???

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: udomchok ที่ กรกฎาคม 10, 2012, 22:02:35 PM

ลองเอาตัวอย่างนี้ไปศึกษาดูนะครับ

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: nahos ที่ มกราคม 29, 2013, 11:01:18 AM

มีปัญหาที่ WIndows 8
จะแสดง เดือนออกมา เป็นภาษาอังกฤษ  แก้ยังไงดีครับ

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: Guitar-hero ที่ มิถุนายน 05, 2014, 14:19:10 PM

ผมอยากทราบว่าถ้าผมต้องการกำหนดดังนี้
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])

เพื่อให้ windows7 พิมพ์ ค.ศ. เป็นภาษาไทย ผมจะต้องเอา code นี้
ไปวางตรงส่วนไหนของรายงาน ครับ

หัวข้อ: Re: แก้ไข ค.ศ.ให้เป็น พ.ศ.ให้หน่อยครับ
เริ่มหัวข้อโดย: udomchok ที่ มิถุนายน 07, 2014, 12:25:19 PM

อ้างจาก: Guitar-hero ที่ มิถุนายน 05, 2014, 14:19:10 PM

ผมอยากทราบว่าถ้าผมต้องการกำหนดดังนี้
Value := FormatThaiDate('d mmmm yyyy',DBPipeline['birthday'])

เพื่อให้ windows7 พิมพ์ ค.ศ. เป็นภาษาไทย ผมจะต้องเอา code นี้
ไปวางตรงส่วนไหนของรายงาน ครับ

มีตัวอย่าง....เอาไว้ให้ศึกษา อยู่ข้างบนนี้แล้วครับ

หรือลองดูที่ http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=31921.0