cost_detail_show.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">
				<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%> </td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0">所属情况：</td>
                <td bgcolor="#E3E3E3"> <%set rsguikou=conn.execute("select * from guikou where id="&rs("guikou_id")&"")%> <%=rsguikou("guikou_name")%> &gt;&gt; <%set rsdanwei=conn.execute("select * from danwei where id="&rs("danwei_id")&"")%> <%=rsdanwei("danwei_name")%> &gt;&gt; <%set rsxiangmu=conn.execute("select * from xiangmu where id="&rs("xiangmu_id")&"")%> <%=rsxiangmu("xiangmu_name")%></td>
              </tr>
              <% if isok=true then%>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0">是否确认：</td>
                <td bgcolor="#E3E3E3"> 已确认 </td>
              </tr>
              <tr class="t1"> 
                <td width="103" height="22" align="right" bgcolor="#C0C0C0">荆财采认[2008]</td>
                <td width="491" bgcolor="#E3E3E3"> <%=rs("cost_no_r")%> 号 </td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0">确认支出金额：</td>
                <td bgcolor="#E3E3E3"><font color="#FF0000"> <%=rs("cost_number_r")%> </font></td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0">确认支出品目：</td>
                <td bgcolor="#E3E3E3"> <%=rs("pinmu_r")%> </td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0">确认添加人员：</td>
                <td bgcolor="#E3E3E3"> <%=rs("admin_r")%> </td>
              </tr>
              <tr class="t1"> 
                <td width="103" height="22" align="right" bgcolor="#C0C0C0">确认录入时间：</td>
                <td width="491" bgcolor="#E3E3E3"> <%=rs("updatetime_r")%> </td>
              </tr>
              <%end if%>
              <tr class="t1"> 
                <td width="103" height="22" align="right" bgcolor="#C0C0C0"><font color="#FF0000">荆财采计[2008]</font></td>
                <td width="491" bgcolor="#E3E3E3"> <%=rs("cost_no_j")%> 号 </td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0"><font color="#FF0000">计划支出金额：</font></td>
                <td bgcolor="#E3E3E3"> <font color="#FF0000"> <%=rs("cost_number_j")%> </font></td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0"><font color="#FF0000">计划支出品目：</font></td>
                <td bgcolor="#E3E3E3"> <%=rs("pinmu_j")%> </td>
              </tr>
              <tr class="t1"> 
                <td height="22" align="right" bgcolor="#C0C0C0"><font color="#FF0000">计划添加人员：</font></td>
                <td bgcolor="#E3E3E3"> <%=rs("admin_j")%> </td>
              </tr>
              <tr class="t1"> 
                <td width="103" height="22" align="right" bgcolor="#C0C0C0"><font color="#FF0000">计划录入时间：</font></td>
                <td width="491" bgcolor="#E3E3E3"> <%=rs("updatetime_j")%> </td>
              </tr>
            </table>
					</td>
				</tr>
			</table>
				<div align="center">
          <p> 
            <%if admin_quanli=1 then%>
            <a href="cost_detail_edit.asp?id=<%=rs("id")%>">修改</a> <a href="cost_detail_Del.asp?id=<%=rs("id")%>&Action=Del" onClick="return ConfirmDel();">删除</a> 
            <%else if  admin_quanli=2 and rs("guikou_id")=admin_guikou_id then %>
            <a href="cost_detail_edit.asp?id=<%=rs("id")%>">修改</a> 
            <%else%>
            <%end if%>
            <%end if%>
          </p>
        </div>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>