« ตอบกลับ #5 เมื่อ: กรกฎาคม 24, 2011, 13:19:28 PM »
0
และตอนออกรายงานผมเลือกแค่เดือนเดียว แต่ทำไมรายงานออกมาหลายเดือนครับ...
procedure GlobalOnCreate;
var i: integer;
begin
dm_clinic:=GetSQLStringData('select sys_value from sys_var where sys_name = "ht_clinic_code"');
GetDateRangeDialog(d1,d2);
ds1:=formatdatetime('yyyy-mm-dd',d1);
ds2:=formatdatetime('yyyy-mm-dd',d2);
dm1:=GetSQLDateData('select date(date_add('''+ds1+''', interval 0 month)) ');
dm2:=GetSQLDateData('select date(date_add('''+ds1+''', interval 1 month)) ');
dm3:=GetSQLDateData('select date(date_add('''+ds1+''', interval 2 month)) ');
dm4:=GetSQLDateData('select date(date_add('''+ds1+''', interval 3 month)) ');
dm5:=GetSQLDateData('select date(date_add('''+ds1+''', interval 4 month)) ');
dm6:=GetSQLDateData('select date(date_add('''+ds1+''', interval 5 month)) ');
dm7:=GetSQLDateData('select date(date_add('''+ds1+''', interval 6 month)) ');
dm8:=GetSQLDateData('select date(date_add('''+ds1+''', interval 7 month)) ');
dm9:=GetSQLDateData('select date(date_add('''+ds1+''', interval 8 month)) ');
dm10:=GetSQLDateData('select date(date_add('''+ds1+''', interval 9 month)) ');
dm11:=GetSQLDateData('select date(date_add('''+ds1+''', interval 10 month)) ');
dm12:=GetSQLDateData('select date(date_add('''+ds1+''', interval 11 month)) ');
ChangeReportSQL('select m.*,concat(p.pname,p.fname," ",p.lname) as patient_name '+
' from clinicmember m '+
' left outer join patient p on p.hn = m.hn '+
' where m.clinic = "'+dm_clinic+'"');
end;
รายงานอ้างจาก ds1 ย้อนหลังไป 11 month
« แก้ไขครั้งสุดท้าย: กรกฎาคม 24, 2011, 13:22:44 PM โดย มนตรี เทพไพศาล บอย[ด่านมะขามเตี้ย] »
บันทึกการเข้า
เริ่ม11พย.2548OPD-Paperlessพร้อมHOSxPลดโลกร้อน
IPD-Lesspaper1ตค2560ระบบDmsByNeoNetwork
IPD-Paperless1พ.ค2562ระบบHOSxPXE4
MT-Oracle9.3+MariaDB-10.4.xx,SL-Oracle9.3+MariaDB-11.0.xx
LOG=MySQL-8.4.xx,INV=PostgreSQL11