โดย sutthipongr เมื่อ จันทร์ ก.ค. 19, 2010 10:08 am
code เดิม p_order ของหมอสุมิตร download ได้ที่หน้า download
ดูตรงแถวๆนี้ครับ
if fdrug0 > 0
select 14
go fdrug0
lpp=1
more=0
do while hn=h.and.vstdate=d.and.times=t.and.lpp > 0
sumd1=sumd1+price
if j.print <> "0"
if isdigit(drug_code)
do case
CASE n.true_price$"XN"
? "(ยาหมด)"
CASE n.true_price = "B"
? "(งดจ่าย)"
CASE n.true_price = "R"
? "(คืนยา)"
other
? space(7)
endcase
?? iif(doctor=register,"/ ","- ")+iif(!empty(j.print_name),j.print_name,left(j.drug_name,25))+" "+iif(left(d_status(),1)$"","===="+left(d_status()+space(9),9)+"====",str(amount,10,0)+" *"+j.unit)+" Sig."+alltrim(use)+" "+alltrim( iif( dose-int(dose) <>0,str(dose,10,2),str(dose,10,0)))+" "+alltrim(d_unit)+" "+alltrim(dose_man)
else
? iif(empty(j.cscd_code),space(8)," ["+j.cscd_code+"]")+iif(!empty(j.print_name),j.print_name,left(j.drug_name,25))+" "+str(amount,10,0)+" "+j.unit+" "+iif(d_unit=" ","",alltrim( iif( dose-int(dose) <>0,str(dose,10,2),str(dose,10,0)))+" "+alltrim(d_unit))+" ราคา "+str(price,10,2)+" บาท."
endif
lpp=lpp+1
endif
if !(doctor $ drx)
drx=doctor+","+drx
endif
skip 1
lpp2=lpp
if lpp >= nn.and.hn=h.and.vstdate=d.and.times=t
lpp=0
lpp2=nn
fdrug0=recno(14)
more=2
endif
msexr=iif(inkey()=27,0,msexr)
if msexr=0
show wind mess
endif
enddo
endif
ไปแทรก p_order ของเราด้วยตัวสีแดงเข้ม ครับ
***เราพิสูจน์ได้ด้วย ผลงานของเรา***
พอเพียง และ เพียงพอ ตามรอยพ่อของแผ่นดิน