รบกวนขอตัวอย่าง script ได้ไหมครับอาจารย์
ลองเอาไปปรับใช้ดูนะครับ
เป็นแบบขีดเส้นใต้ไว้ ใบสุดท้ายครับ
var doctor_check :string;
begin
doctor_check := GetSQLStringData('select d1.doctor_order_print_code '+
' from doctor_order_print d1 '+
' where d1.vn="'+DBPipeline['vn']+'" and print_server="'+DBPipeline['print_server']+'" and print_mode="2" order by item_no desc limit 1');
if DBPipeline['doctor_order_print_code'] = doctor_check then
line1.visible := true
else
line1.visible := false;
end;
มีตัวอย่าง ฟอร์มชื่อ FORM-Sticker-OPD-Detail--
COMCENTER1 สีแดงเป็นชื่อเครื่องคอมฯ ที่จะพิมพ์ออกเฉพาะเครื่องนั้น ๆ นะครับ
ตัวอย่างครับ
http://www.mediafire.com/?5kzgyb89j23s5zy