Q5/ws_objects/Ew_rs.pbl.src/f_idcard.srf

$PBExportHeader$f_idcard.srf
global type f_idcard from function_object
end type

forward prototypes
global subroutine f_idcard (string idcardcode, ref s_idcard_change s_idcard)
end prototypes

global subroutine f_idcard (string idcardcode, ref s_idcard_change s_idcard);DateTime ls_date
String ls_year,ls_mth,ls_day,ls_sex
String ls_homeplace_code,ls_homeplace_name

IF Len(Trim(idcardcode)) = 15 THEN
	
	ls_year = Mid(idcardcode,7,2)
	
	IF Mid(ls_year,1,1) = '0' THEN
		ls_year = '20'+ls_year
	ELSE
		ls_year = '19'+ls_year
	END IF
	
	ls_date = DateTime(Date(ls_year+'/'+Mid(idcardcode,9,2)+'/'+Mid(idcardcode,11,2)),Time('00:00:00'))
	
	IF Mod(Integer(Right(idcardcode,1)),2) = 1 THEN
		ls_sex = '男'
	ELSE
		ls_sex = '女'
	END IF
ELSE
	ls_year = Mid(idcardcode,7,4)
	
	ls_date = DateTime(Date(ls_year+'/'+Mid(idcardcode,11,2)+'/'+Mid(idcardcode,13,2)),Time('00:00:00'))
	
	IF Mod(Integer(Mid(idcardcode,17,1)),2) = 1 THEN
		ls_sex = '男'
	ELSE
		ls_sex = '女'
	END IF
END IF

ls_homeplace_code = Mid(idcardcode,1,2)
CHOOSE CASE ls_homeplace_code
	CASE '11'
		ls_homeplace_name = '北京'
	CASE '12'
		ls_homeplace_name = '天津'
	CASE '13'
		ls_homeplace_name = '河北'
	CASE '14'
		ls_homeplace_name = '山西'
	CASE '15'
		ls_homeplace_name = '内蒙古'
	CASE '21'
		ls_homeplace_name = '辽宁'
	CASE '22'
		ls_homeplace_name = '吉林'
	CASE '23'
		ls_homeplace_name = '黑龙江'
	CASE '31'
		ls_homeplace_name = '上海'
	CASE '32'
		ls_homeplace_name = '江苏'
	CASE '33'
		ls_homeplace_name = '浙江'
	CASE '34'
		ls_homeplace_name = '安徽'
	CASE '35'
		ls_homeplace_name = '福建'
	CASE '36'
		ls_homeplace_name = '江西'
	CASE '37'
		ls_homeplace_name = '山东'
	CASE '41'
		ls_homeplace_name = '河南'
	CASE '42'
		ls_homeplace_name = '湖北'
	CASE '43'
		ls_homeplace_name = '湖南'
	CASE '44'
		ls_homeplace_name = '广东'
	CASE '45'
		ls_homeplace_name = '广西'
	CASE '46'
		ls_homeplace_name = '海南'
	CASE '50'
		ls_homeplace_name = '重庆'
	CASE '51'
		ls_homeplace_name = '四川'
	CASE '52'
		ls_homeplace_name = '贵州'
	CASE '53'
		ls_homeplace_name = '云南'
	CASE '54'
		ls_homeplace_name = '西藏'
	CASE '61'
		ls_homeplace_name = '陕西'
	CASE '62'
		ls_homeplace_name = '甘肃'
	CASE '63'
		ls_homeplace_name = '青海'
	CASE '64'
		ls_homeplace_name = '宁夏'
	CASE '65'
		ls_homeplace_name = '新疆'
	CASE '71'
		ls_homeplace_name = '台湾'
	CASE '81'
		ls_homeplace_name = '香港'
	CASE '82'
		ls_homeplace_name = '澳门'
	CASE '91'
		ls_homeplace_name = '国外'
END CHOOSE

s_idcard.birthday = ls_date
s_idcard.sex = ls_sex
s_idcard.homeplace = ls_homeplace_name



end subroutine