2020-09-23

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