cost_detail_edit.asp

财务预算管理 财务支出

<!--#include file="sysconfig.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
dim id,rs,isok,FoundErr,ErrMsg,updatetime

id=trim(request("id"))
FoundErr=False
if id="" then 
	response.Redirect("cost_detail.asp")
end if
sql="select * from cost_detail where id=" &id & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
isok=rs("isok")
if FoundErr=True then
	call WriteErrMsg()
else
%>

<script language = "JavaScript">
function CheckForm()
{
  	if (document.myform.cost_number.value=="")
  {
    alert("金额不能为空！");
	document.myform.cost_number.focus();
	return false;
  }
  }
</script>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="610" align="center" class="a2">
	<tr>
		<td class="a1" height="25" align="center"><strong>修 改 支 出 计 划</strong></td>
	</tr>
	<tr class="a4">
		<td align="center">
			<form method="POST" name="myform" onSubmit="return CheckForm();" action="cost_detail_Save.asp?action=Modify">
			<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
				<tr align="center">
					<td class="tdbg">
						<table width="100%" border="0" cellpadding="0" cellspacing="2">
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">支出计划ID：</td>
                  <td bgcolor="#E3E3E3"><%=id%>
                    <input name="id" type="hidden" id="id" value="<%=id%>" maxlength="4"></td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">所属情况：</td>
                  <td bgcolor="#E3E3E3"> 
                    <input name="s1" type="hidden" id="s1" value="<%=rs("guikou_id")%>" maxlength="4"> 
                    <%set rsguikou=conn.execute("select * from guikou where id="&rs("guikou_id")&"")%> <%=rsguikou("guikou_name")%> &gt;&gt; 
                    <input name="s2" type="hidden" id="s2" value="<%=rs("danwei_id")%>" maxlength="4">
                    <%set rsdanwei=conn.execute("select * from danwei where id="&rs("danwei_id")&"")%>
                    <%=rsdanwei("danwei_name")%> &gt;&gt; 
                    <input name="s3" type="hidden" id="s3" value="<%=rs("xiangmu_id")%>" maxlength="4">
                    <%set rsxiangmu=conn.execute("select * from xiangmu where id="&rs("xiangmu_id")&"")%> <%=rsxiangmu("xiangmu_name")%></td>
                </tr>
                <tr class="t1"> 
                  <td width="103" height="22" align="right" bgcolor="#C0C0C0">荆财采<% if isok=false then%>计<%else%>认<%end if%>[2008]</td>
                  <td width="491" bgcolor="#E3E3E3"> 
                    <% if isok=false then%>
                    <input name="cost_no" type="text" id="cost_no" value="<%=rs("cost_no_j")%>" size="10" maxlength="80">
                    <%else%>
                    <input name="cost_no" type="text" id="cost_no" value="<%=rs("cost_no_r")%>" size="10" maxlength="80"> 
                    <%end if%>
                    号 </td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">支出金额：</td>
                  <td bgcolor="#E3E3E3"> 
                    <% if isok=true then%>
                    <input name="cost_number" type="text" id="cost_number" onKeypress="if   (event.keyCode   <   46  ||   event.keyCode   >   57 )   event.returnValue   =   false;" value="<%=rs("cost_number_r")%>" size="30" maxlength="80">
                    <font color="#FF0000"> 
                    <%else%>
                    <input name="cost_number" type="text" id="cost_number" onKeypress="if   (event.keyCode   <   46  ||   event.keyCode   >   57 )   event.returnValue   =   false;" value="<%=rs("cost_number_j")%>" size="30" maxlength="80">
                    <%end if%>
                    *只允许数字</font> </td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">支出品目：</td>
                  <td bgcolor="#E3E3E3"> 
                    <% if isok<>1 then%>
                    <input name="pinmu" type="text" id="pinmu" value="<%=rs("pinmu_j")%>" maxlength="50">
                    <%else%>
                    <input name="pinmu" type="text" id="pinmu" value="<%=rs("pinmu_r")%>" maxlength="50"> 
                    <%end if%>
                  </td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">是否确认：</td>
                  <td bgcolor="#E3E3E3"> 
                    <% if isok=false then
					updatetime=rs("updatetime_j")%>
                    <input name="isok" type="checkbox" id="isok" value="<%=isok%>" maxlength="4">
                    <%else updatetime=rs("updatetime_r")%> 已确认<input name="isok" type="hidden" id="isok" value="1" maxlength="4" checked><%end if%></td>
                    
                    
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">添加人员：</td>
                  <td bgcolor="#E3E3E3"> 
                    <% if isok=false then%>
                    <%=rs("admin_j")%>
                    <%else%>
                    <%=rs("admin_r")%> 
                    <%end if%>
                    <input name="admin" type="hidden" id="admin" value="<%=Session("username")%>" maxlength="50">
                    修改后会替换为当前操作人员</td>
                </tr>
                <tr class="t1"> 
                  <td width="103" height="22" align="right" bgcolor="#C0C0C0">录入时间：</td>
                  <td width="491" bgcolor="#E3E3E3"> 
                    <input name="UpdateTime" type="text" id="UpdateTime" value="<%=updatetime%>" maxlength="50">
                    当前时间为：<%=now()%> 注意不要改变格式。</td>
                </tr>
              </table>
					</td>
				</tr>
			</table>
				<div align="center"><p>
				<input name="Save" type="submit"  id="Save" value="保存修改结果">
				</p></div>
			</form>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>