BMS-HOSxP Community
HOSxP => Report Exchange => ข้อความที่เริ่มโดย: k_toedkiets ที่ ธันวาคม 01, 2011, 15:47:01 PM
-
คือว่าผมได้เปลี่ยนรายงานจากผล fbs เป็นผล bp แต่ไม่ทราบว่าต้องแก้คำสั่งตรงไหนถึงจะมีผล bp ขึ้นครับ...
-
เปลี่ยน FBS1,FBS2 เป็น bpd กับ bps ครับ
-
Value := 'ªèǧ BP ·ÕèàÅ×Í¡ '+bpd +' - '+bps ;
เปลี่ยนแล้ว error ครับ
Error: Variable2OnCalc, Line 1 :Undeclared identifier: 'bpd'
-
เปลี่ยนใน Declarations ด้วยครับ
-
อยู่ตรงไหน...บอกหน่อย...admin มือใหม่ครับ ยังไม่ชำนาญเรื่องนี้ครับ
-
:) :)
-
error ครับ
-
เอา bp ไหนเป็นหลักครับมันมี
bps และ bpd ครับ
-
Value := 'ªèǧ BP ·ÕèàÅ×Í¡ '+bpd +' - '+bps ;
เปลี่ยนแล้ว error ครับ
Error: Variable2OnCalc, Line 1 :Undeclared identifier: 'bpd'
ลองเช็ค
'+bpd+'-'+bps; ดูครับ คำสังมันไม่จบเลยทำให้ error
-
ช่วยแก้ให้หน่อยได้ไหมครับ...ขอบคุณครับ
-
ช่วยแก้ให้หน่อยได้ไหมครับ...ขอบคุณครับ
ChangeReportSQL('select o.bpd,o.bps,v.pdx, v.vstdate,v.hn,v.pdx,i.name,v.age_y,v.age_m,aid,v.moopart, '+
' concat(p.pname,p.fname," ",p.lname)as ptname ,t.full_name '+
' from opdscreen o ,vn_stat v ,icd101 i ,patient p,thaiaddress t,clinicmember c '+
' where v.vn = o.vn and v.pdx=i.code and p.hn =v.hn and v.aid = t.addressid and c.hn =v.hn '+
' and v.vstdate between "'+formatdatetime('yyyy-mm-dd',rxdate1)+'" and "'+formatdatetime('yyyy-mm-dd',rxdate2)+'" '+
' and v.pdx <> "" and o.bpd <> 0 and o.bpd is not null and o.bpd >= "'+fbs1+'" and o.bps <= "'+fbs2+'" and o.hn in ('+clinic_hn+')');
อาจจะเพิ่มเงื่อนไขอื่นเข้าไปเพราะผมไม่รู้ว่ารายงานต้องการอะไร
แล้วก็แก้ข้อความตรง inputquery นิดหน่อย ก็น่าจะได้แล้วครับ
ส่วนตรง design ก็ นำค่า bpd กับ bps มาวางแทน fbs ครับ
ถ้าลองแล้วไม่ได้ลองแจ้งมานะครับ
-
แก้ไขแล้วยัง error เหมือนเดิมครับ
-
เรื่องของเรื่อง คือ อยากรู้ว่าต้องแก้ไขยังไงบ้างนะคับ
เพื่อเอาไปเป็นแนวทางในการเขียนรายงานของหน่วยงานเองนะคับ
ส่วน variables ประกาศ
var
clinic_hn,clinic,clinicname,ward:string;
rxdate1,rxdate2:tdatetime;
date1,date2:tdatetime;
income : string;
fbs1,fbs2,ix2:string;
bps1,bps2,bpd1,bpd2 : string;
ส่วน Events
procedure GlobalOnCreate;
begin
GetDateRangeDialog(date1, date2);
rxdate1:=date1;
rxdate2:=date2;
bps1 := inputquery('BP ªèǺ¹àÃÔèÁµé¹','BPs1') ;
bps2 := inputquery('BP ªèǺ¹ÊÔé¹ÊØ´','BPs2') ;
bpd1 := inputquery('BP ªèÇÅèÒàÃÔèÁµé¹','BPd1') ;
bpd2 := inputquery('BP ªèÇÅèÒÊÔé¹ÊØ´','BPd2') ;
clinicname:= getpickuplist('select name from clinic where chronic="Y" order by name');
clinic:=getsqlstringdata('select clinic from clinic where name="'+clinicname+'"');
clinic_hn := getsqlsubquerydata('select hn from clinicmember where clinic="'+clinic+'"');
clinic_hn := getsqlsubquerydata('select hn from ovst where vstdate between "'+formatdatetime('yyyy-mm-dd',rxdate1)+'" and "'+formatdatetime('yyyy-mm-dd',rxdate2)+'" and hn in ('+clinic_hn+') ');
ChangeReportSQL('SELECT o.bpd,o.bps,CONCAT(FORMAT(o.bps,000),"/",FORMAT(o.bpd,000)) AS BP, o.fbs,v.pdx, v.vstdate, '+
'v.hn,v.pdx,i.name,v.age_y,v.age_m,aid,v.moopart, '+
'concat(p.pname,p.fname," ",p.lname)as ptname ,t.full_name '+
'FROM opdscreen o '+
'INNER JOIN vn_stat v ON v.vn = o.vn '+
'INNER JOIN icd101 i ON i.`code` = v.main_pdx '+
'INNER JOIN patient p ON p.hn = o.hn '+
'INNER JOIN thaiaddress t ON t.addressid = v.aid '+
'INNER JOIN clinicmember c ON c.hn = o.hn '+
'WHERE (o.vstdate BETWEEN "'+formatdatetime('yyyy-mm-dd',rxdate1)+'" and "'+formatdatetime('yyyy-mm-dd',rxdate2)+'" ) '+
'AND v.main_pdx <> "" AND (o.bps BETWEEN "'+ bps1 +'" AND "'+ bps2 +'") AND (o.bpd BETWEEN "'+ bpd1 +'" AND "'+ bpd2 +'") and o.hn in ('+clinic_hn+') ');
end;
-
ไม่เป็นไรครับ...เอาไว้รอ อ.เกื้อกูล หรือ อ.ท่านอื่น...ตอบให้ครับ...Thank You...
-
ตกลงตอนนี้ได้หรือยังครับ
-
ยังไม่ได้เลยครับ... ??? ??? ???
-
ลองดูครับ
จริง ๆ มันไม่ยากเลยนะครับ
ก็เอา bps,bpd ไปแทน fbs เฉย
ทำตามกระทู้ที่อาจารย์ท่านอื่นตอบไว้ก็น่าจะได้แล้ว
;D
-
เดี๋ยวจะลองทำดูอีกทีครับ...ขอบคุณ อ.ทั้งหลาย
-
ได้แล้วครับ...ขอบคุณ อ.ทั้งหลาย
-
แต่ทำไมตอนออกรายงานถึงขึ้นข้อมูลซ้ำกันในแต่ละคนครับ เช่นบางคนขึ้น 2 ครั้งบ้าง บางคนขึ้น 3 ครั้งบ้างครับ
-
ลองใส่ group by o.vn เข้าไปนะครับ ประมาณนี้
in ('+clinic_hn+') group by o.vn ');
:)
-
ขอบคุณ อ. nahos มากครับ
แต่ group by o.vn เข้าไปนะครับ ประมาณนี้
in ('+clinic_hn+') group by o.vn ');
ตัวแปลนี้สามารถใส่ทุกรายงานที่ข้อมูลซ้ำกัน ได้ไหมครับ