แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
var
fvn : string;
begin
fvn:= GetGlobalValue('VN');
if getsqldata('select count(*) from opdscreen where vn = "'fvn'" and smoking_type_id between "1" and "3"' )>0 then
begin
showmessage('1234');
end;
end; 
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
ds1 := FormatDatetime('yyyy-mm-dd',date1);
ds2 := FormatDatetime('yyyy-mm-dd',date2);
an := GetUserParameter(0);
hn := GetSQLStringData('select hn from ipt where an = "'+an+'"');
count_record := GetSQLIntegerData('select count(op.icode) from opitemrece op '+
' left outer join drugitems di on di.icode = op.icode'+
' left outer join sp_use sp on op.sp_use = sp.sp_use'+
' where an="'+an+'" and op.rxdate between "'+ds1+'" and "'+ds2+'"'+
' and NOT(op.drugusage = "" '+
' and op.sp_use = "")');
{showmessage(IntToStr(count_record));}
sql := 'select concat(di.name," ",di.strength),op.drugusage, op.sp_use'+
' from opitemrece op '+
' left outer join drugitems di on di.icode = op.icode'+
' left outer join sp_use sp on op.sp_use = sp.sp_use'+
' where an="'+an+'" and op.rxdate between "'+ds1+'" and "'+ds2+'"'+
' and NOT(op.drugusage = "" '+
' and op.sp_use = "")';
while count_record >= 6 do
begin
count_record := count_record-6;
end;
if count_record<>0 then
newline := 6-count_record;
while newline > 0 do
begin
sql := sql + ' union select "","'+IntToStr(newline) +'"' ;
newline := newline - 1;
end;
{showmessage(sql);}
ChangeReportSQL(sql);
end;
select d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600313154324" and d1.print_mode= "2" and d1.icode like "1%"
group by d1.icode
order by d1.doctor_order_print_code
select d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600227075506" and d1.print_server="OPD" and d1.icode like "1%" and d1.print_status <> 'Y'
group by d1.icodeselect d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600227082424" and d1.print_server="OPD" and d1.icode like "1%"
group by d1.icodeselect d1.*,v1.*,o1.*
from doctor_order_print d1
left outer join vn_stat v1 on v1.vn=d1.vn
left outer join ovst o1 on o1.vn=d1.vn
where d1.vn="600223134457" and d1.print_server="OPD" and d1.icode like "1%"
group by d1.icode
Value := GetSQLStringData('select therapeutic from drugitems where icode =" ' +DBPipeline1['icode']+' " '); Value := GetSQLStringData('select hintcode_eng from drugitems where icode =" ' +DBPipeline1['icode']+' " '); Value := GetSQLStringData('select therapeutic_eng from drugitems where icode =" ' +DBPipeline1['icode']+' " ');
ปกติแค่เอาเมาส์กดก็จะดึงค่าแล็ปมาให้เลยครับ ตอนนี้กดแล้วไม่มีอะไรเกิดขึ้นเลย Hosxp เวอร์ชั่นเก่าจะเกี่ยวมั้ยครับ