<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
ProjectCode=request.querystring("Code")
again=Request.QueryString ("again")
if not ProjectCode="" then
	if again="again" then'重新申報
		strsql="update xt_td_project set 退回標志='20' where 項目編碼='"&ProjectCode&"'"
		conn.execute strsql,1
		Response.Redirect "Project_EditList.asp?strsql="+server.URLEncode ("select * from XT_VD_ProjectName where 項目負責人='"&session("usercode")&"'")
	else'申請推薦
		set rst=server.createobject("ADODB.recordset")
		Strsql="select 項目編碼,項目進度 from XT_VD_ProjectName where 項目編碼='"&ProjectCode&"'"
		rst.open Strsql,strconn
		JD=rst("項目進度")
		rst.Close
if JD<>"申報" then'已提交
%>
<script Language="JavaScript">
<!--
alert("您已提交申請了！");
history.back(-1);
// -->
</script>
<%'		Response.Redirect "Project_Edit1.asp?ProjectInfo=您已提交申請了！"
else			
	dim errorStr'錯誤提示
	errorStr=""
	'項目基本表
	Strsql="select 項目編碼 from XT_VD_ProjectBasic where 項目編碼='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第三頁項目基本情況沒有填完整!!"&"<a href='Project_Edit3.asp?ProjectInfo=項目基本情況沒有填完整！'>返回第三頁</a><br>"
	rst.Close 
	
	'人員情況表
	Strsql="select 項目編碼 from xt_VD_ProjectPerson where 項目編碼='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第四頁人員基本情況沒有填完整!!"&"<a href='Project_Edit4.asp?ProjectInfo=人員情況沒有填完整！'>返回第四頁</a><br>"
	rst.Close 
	
	'經費來源表
	Strsql="select 項目編碼 from xt_VD_ProjectFee where 項目編碼='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第五頁經費來源情況沒有填完整!!"&"<a href='Project_Edit5.asp?ProjectInfo=經費來源情況沒有填完整！'>返回第五頁</a><br>"
	rst.Close 
	

	'經費數量
	Strsql="select 項目編碼 from xt_VD_ProjectFeeNum where 項目編碼='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"第五頁經費數量情況沒有填完整!!"&"<a href='Project_Edit5.asp?ProjectInfo=經費數量情況沒有填完整！'>返回第五頁</a><br>"
	rst.Close 

	'附件表
	'Strsql="select 項目編碼 from xt_VD_ProjectAffix where 項目編碼='"&ProjectCode&"'"
	'rst.open Strsql,strconn
	'if rst.EOF then errorStr=errorStr&"第五頁經費情況沒有填完整<br>"
	'rst.Close 
	
	'可行性報告
	Strsql="select 項目編碼 from xt_VD_ProjectName where 項目編碼='"&ProjectCode&"'"
	rst.open Strsql,strconn
	if rst.EOF then errorStr=errorStr&"沒有提交可行性報告!!"&"<a href='Project_Edit5.asp?ProjectInfo=經費數量情況沒有填完整！'>返回第五頁</a><br>"
	rst.Close 

		if errorStr="" then'記錄均填寫完整
			strsql="update XT_TD_Project set 項目進度='推薦' where 項目編碼="+"'"+ProjectCode+"'"
			conn.Execute strsql,1
			Response.Redirect "Project_EditList.asp?strsql="+server.URLEncode ("select * from XT_VD_ProjectName where 項目負責人='"&session("usercode")&"'")
		else'仍需修改
			Response.Write ErrorStr
		end if 
	end if
end if
else'項目編碼為空
		Response.Redirect "Project_Edit1.asp?ProjectInfo=申報書沒有填寫完整，不能申請推薦！"
end if
set rst=nothing
%>