var
date1,date2:tdatetime;
dt1,dt2,ds1,ds2:string;
procedure GlobalOnCreate;
begin
GetDateTimeRangeDialog(date1, date2);
dt1:= FormatDateTime('yyyy-mm-dd 16:00:00',date1);//เนื่องจากงาน ER ขอให้ใส่เวลา กำกับไปด้วยครับ
dt2:= FormatDateTime('yyyy-mm-dd 08:00:00',date2);//เนื่องจากงาน ER ขอให้ใส่เวลา กำกับไปด้วยครับ
ds1:= getsqlstringdata('select unix_timestamp("'+dt1+'")');
ds2:= getsqlstringdata('select unix_timestamp("'+dt2+'")');
ChangeReportSQL('select a.icode,concat(b.name," ",strength," (",b.units,")") as drugname , '+
'sum(a.qty) as total,dosageform '+
'from opitemrece a '+
'left outer join drugitems b on a.icode=b.icode '+
'where unix_timestamp(concat(a.vstdate," ",a.vsttime)) between "'+ds1+'" and "'+ds2+'" '+
'and a.icode like"1%" '+
'and dep_code in ("011","009") '+
'group by a.icode,b.name,strength,b.units,dosageform '+
'order by dosageform,b.name ');
end;