1、读了身份证以后性别识别为男,然后如果选了女套餐分组以后性别会自动变成女,现在要求是如果选了和性别不符的套餐分组后做一个弹框提示"选择的套餐分组与性别不符是否继续"
// 修改:该人性别默认来自分组的性别
//--------------------------------------------------------------------
//====================================================================
// string ls_xb2
// ls_xb2 = trim(dw_1.object.xb[dw_1.getrow()])
// IF ls_xb1 <> '%' Or ls_xb2 = '' Or isnull(ls_xb2) THEN
// dw_1.setitem(dw_1.getrow(),'xb',ls_xb1)
// END IF
// 套餐分组和性别不符时
string ls_xb2
integer net
ls_xb2 = trim(dw_1.object.xb[dw_1.getrow()])
IF ls_xb1 <> '%' Or ls_xb2 = '' Or isnull(ls_xb2) THEN
if ls_xb2 <> '' then
if ls_xb1 <> ls_xb2 then
net = MessageBox("温馨提示","选择的套餐分组与性别不符,是否继续?", Exclamation!, YESNO!, 2)
if net =1 then
dw_1.setitem(dw_1.getrow(),'xb',ls_xb1)
end if
end if
else
dw_1.setitem(dw_1.getrow(),'xb',ls_xb1)
end if
END IF
2、体检人员的体检日期现在不是他第一个项目的检查日期;
登记的时候有的人的抽血材料(固定耗材费,检查标志默认为1)会自动保存,有的不会,如果自动保存的话,这个体检日期就不是医院想要的体检日期,需要弄成不自动保存的
抽血及材料费
检查医生诊台ue_save
long li_count1=0
datetime ldt_jstime
ldt_jstime = datetime(today(),now())
SELECT COUNT(1)
INTO :li_count1
FROM TJ_TJJLB
Where tjbh = :is_tjbh And tjcs = :ii_tjcs And isover = '1' And TJXMBH <> '0104' Using sqlca;
IF sqlca.SQLCode < 0 THEN
ROLLBACK Using sqlca;
MessageBox('错误','检查体检日期错误,错误信息:' + sqlca.SQLErrText,stopsign!)
RETURN
END IF
if li_count1 = 0 then
update TJ_TJDJB SET TJRQ = :ldt_jstime,SUMOVER = '2'
WHERE tjbh = :is_tjbh AND tjcs = :ii_tjcs Using sqlca;
IF sqlca.SQLNRows < 1 THEN
ROLLBACK Using sqlca;
RETURN
END IF
end if