เมื่อแก้ไข ค่าของ ตาราง Baby_item.vaccine_code อย่าลืมแก้ รายงาน SYSTEM-OPD-RG0110-2 นะครับ เพราะใช้ข้อมูลเดียวกัน เดี่ยว รง 0110 รง 5 หน้า 2 จะไม่ออกข้อมูล
if getsqlintegerdata('select count(*) as cc from baby_items where vaccine_code like "DTP%"')=0
then showmessage('Warning no DTP vaccine code defined please check table baby_items');
Value := getsqlintegerdata('select count(d.vn) as cc from baby_visit d,vn_stat v,baby_items i where v.vstdate between "' +
d1
+ '" and "' + d2 + '" ' +
' and v.vn=d.vn and v.pttype in (' + pc1 + ') and d.baby_code=i.baby_code and i.vaccine_code like "DTP%"');