📄 caiwu_upd.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(82)
CaiWu_ID = Request("CaiWu_ID")
Set CWData = Conn.Query("EfangCaiWu","CaiWu_ID=" & CaiWu_ID)
if CWData.BOF or CWData.EOF then ShowErMsg("财务记录不存在！")
If CWData("CaiWu_State")="作废" And Mid(session("SessAdminPOP"),86,1)<>1 then ShowErMsg("财务记录已作废！")
If CWData("CaiWu_WUSer")<>LgData("Admin_User") And Mid(session("SessAdminPOP"),92,1)="0" And Len(CWData("CaiWu_WUSer"))>0 Then
ShowErMsg("您无权查看此财务记录！")
End If
If Cmd="Upd" then
Call PopCheck(83)
CaiWu_WUser = Request("CaiWu_WUser")
CaiWu_Cben = Request("CaiWu_Cben")
If IsNumeric(CaiWu_Cben)=False Then CaiWu_Cben = 0
CaiWu_HTime = Request("CaiWu_HTime")
If IsDate(CaiWu_HTime)=False Then CaiWu_HTime = Efang.DateTime("Y-m-d")
CaiWu_NRong = Request("CaiWu_NRong")
CaiWu_Memo = Request("CaiWu_Memo")
EfsValue=EfsValue & "CaiWu_WUser='" & CaiWu_WUser & "',"
EfsValue=EfsValue & "CaiWu_Cben=" & CaiWu_Cben & ","
If CWData("CaiWu_State") = "未审核" Then
EfsValue=EfsValue & "CaiWu_HTime='" & CaiWu_HTime & "',"
End If
EfsValue=EfsValue & "CaiWu_NRong='" & CaiWu_NRong & "',"
EfsValue=EfsValue & "CaiWu_Memo='" & CaiWu_Memo & "'"
call Conn.Update("EfangCaiWu",EfsValue,"CaiWu_ID=" & CaiWu_ID)
Call ShowErMsgGo("修改财务记录成功！","?CaiWu_ID=" & CaiWu_ID)
Elseif Cmd = "Del" then
Call PopCheck(84)
EfsValue = "CaiWu_State='作废',CaiWu_DelAUser='" & LgData("Admin_User") & "'"
call Conn.Update("EfangCaiWu",EfsValue,"CaiWu_ID=" & CaiWu_ID)
Call UpdYufu(CWData("CaiWu_User"))
Call ShowErMsgGo("财务记录已经成功作废！","CaiWu_List.asp")
Elseif Cmd = "Audit" then
Call PopCheck(85)
EfsValue = "CaiWu_State='已审核',CaiWu_AuditUser='" & LgData("Admin_User") & "'"
call Conn.Update("EfangCaiWu",EfsValue,"CaiWu_ID=" & CaiWu_ID)
Call UpdYufu(CWData("CaiWu_User"))
Call ShowErMsgGo("财务记录已经成功审核！","?CaiWu_ID=" & CaiWu_ID)
End if
%>
<html>
<head>
<title>修改财务记录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
<%=Efs_Cfg_PHeader%>
<style type="text/css">
<!--
.unnamed1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<script language="JavaScript" src="../inc_DateSelect.js" type="text/JavaScript"></script>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="财务记录修改">
</form>
<form action="?Cmd=Upd" method="POST" name="EForm" onSubmit="return CheckForm(this)">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">财务管理>> 财务操作 >> <b></b><b></b><b>财务记录修改</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img id="id_locate" alt="帮助" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src" src="images/toolbar_help.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" height="300" border="0" align="center" cellpadding="0" cellspacing="0" class="datalist">
<tr>
<td class="DataGroup" valign="middle">
<table width="96%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<tr align="center">
<td height="30" colspan="2"> <span class="105pt"><b>财务记录修改</b></span></td>
</tr>
<tr>
<td width="87" height="28" align="right"> <p align="right">会员帐号：</td>
<td width="344"> <%=CWData("CaiWu_User")%> <input name="CaiWu_ID" type="hidden" id="CaiWu_ID" value="<%=CaiWu_ID%>"></td>
</tr>
<tr>
<td height="28" align="right"> <p align="right">入帐类型：</td>
<td><%=CWData("CaiWu_Kind")%> </td>
</tr>
<tr>
<td height="28" align="right"> <p align="right">状态：</td>
<td><%=CWData("CaiWu_State")%> </td>
</tr>
<tr>
<td width="87" height="28" align="right"> <p align="right">金 额：</td>
<td width="344"><%=CWData("CaiWu_Sum")%> 元</td>
</tr>
<tr>
<td height="28" align="right">成本金额：</td>
<td> <input name="CaiWu_Cben" type="text" class="InputOne" id="CaiWu_CBen" value="<%=CWData("CaiWu_Cben")%>" size="10" maxlength="6">
元 </td>
</tr>
<% If Len(CWData("CaiWu_YSign")) > 0 Then %>
<tr>
<td height="28" align="right">对应业务：</td>
<td> <a href=YeWu_Upd.asp?Sign=<%=CWData("CaiWu_YSign")%>><%=CWData("CaiWu_YSign")%> </a></td>
</tr>
<tr>
<td height="28" align="right">商品名称：</td>
<td> <%=Conn.QueryItem("EfangPdt","Pdt_Name","Pdt_Sign='" & CWData("CaiWu_PSign") &"'")%> - <%=CWData("CaiWu_PSign")%></td>
</tr>
<tr>
<td height="28" align="right">商品类目：</td>
<td><%=Conn.QueryItem("EfangPdtSort","PSort_Name","PSort_Sign='" & CWData("CaiWu_PSort") &"'")%> - <%=CWData("CaiWu_PSort")%></td>
</tr>
<% End If %>
<tr>
<td width="87" height="28" align="right"> <p align="right">
付款途径：</td>
<td width="344"> <%=CWData("CaiWu_Path")%> <span class="10pt"> </span> </td>
</tr>
<tr>
<td height="28" align="right">入款时间： </td>
<td><%=CWData("CaiWu_CTime")%></td>
</tr>
<tr>
<td width="87" height="28" align="right">付款时间： </td>
<td width="344"><%If CWData("CaiWu_State") = "未审核" Then%> <input onfocus="setday(this)" name="CaiWu_HTime" type="text" class="InputOne" id="CaiWu_HTime" value="<%=CWData("CaiWu_HTime")%>" size="20">
<%Else%>
<%=CWData("CaiWu_HTime")%>
<%End If%> </td>
</tr>
<tr>
<td height="28" align="right">加款人：</td>
<td>
<%
If Len(CWData("CaiWu_AddUser")) = 0 Then
Response.Write "客户"
Else
%>
<a href=SysUser_Upd.asp?Admin_User=<%=CWData("CaiWu_AddUser")%>><%=CWData("CaiWu_AddUser")%></a>
<%End If%></td>
</tr>
<% If Len(CWData("CaiWu_AuditUser")) > 0 Then %>
<tr>
<td height="28" align="right">审核人：</td>
<td><a href=SysUser_Upd.asp?Admin_User=<%=CWData("CaiWu_AuditUser")%>><%=CWData("CaiWu_AuditUser")%></a></td>
</tr>
<%End If%>
<% If Len(CWData("CaiWu_DelAUser")) > 0 Then %>
<tr>
<td height="28" align="right">作废人：</td>
<td><a href=SysUser_Upd.asp?Admin_User=<%=CWData("CaiWu_DelAUser")%>><%=CWData("CaiWu_DelAUser")%></a></td>
</tr>
<%End If%>
<tr>
<td height="28" align="right">服务专员：</td>
<td><input name="CaiWu_WUser" type="text" class="InputOne" id="CaiWu_WUser" value="<%=CWData("CaiWu_WUser")%>" size="10">
<span class="10pt">
<%
Set ALData = Conn.Query("EfangAdmin")
Do while not (ALData.EOF or ALData.BOF)
WUserList = WUserList & "<option value=" & ALData("Admin_User") & ">" & ALData("Admin_User") & "</option>"
ALData.movenext
Loop
Set ALData=Nothing
%>
<select name="WUSer_Pick" size="1" id="select4" style="width: 79px" onClick="PickWUser(this.options[this.options.selectedIndex].value);">
<option value="">未选择</option>
<%=WUserList%>
</select>
<script language="JavaScript">
<!--
EForm.WUSer_Pick.value = "<%=CWData("CaiWu_WUser")%>";
function PickWUser(ppid){
EForm.CaiWu_WUser.value = ppid;
}
-->
</script>
</span> </td>
</tr>
<tr>
<td height="28" align="right">内容：</td>
<td><input name="CaiWu_NRong" type="text" class="InputOne" value="<%=CWData("CaiWu_NRong")%>" size="40">
（客户可看到）</td>
</tr>
<tr>
<td width="87" height="28" align="right">备 注：</td>
<td width="344"> <textarea name="CaiWu_Memo" cols="40" rows="5" wrap="VIRTUAL" class="input"><%=CWData("CaiWu_Memo")%></textarea> </td>
</tr>
<tr align="center">
<td colspan="2" height="33">
<% If Mid(session("SessAdminPOP"),83,1)=1 Then %>
<script language="JavaScript">
function CheckForm(Form)
{
if (Form.CaiWu_HTime.value.length==0) {
alert("请填写付款时间！");
Form.CaiWu_HTime.focus();
return false;
}
return true;
}
</script>
<input type="submit" name="B1" value=" 修 改 " class="ButtonOne">
<%End If%>
<% If Mid(session("SessAdminPOP"),84,1)=1 Then %>
<%If CWData("CaiWu_State") <> "作废" Then%> <input class="ButtonOne" name="delete" type=button value=" 作 废 " onClick="if(!confirm('确认要作废此财务记录吗？')){return false;}else{document.location='?Cmd=Del&CaiWu_ID=<%=CaiWu_ID%>';}">
<%End If%>
<%End If%>
<% If Mid(session("SessAdminPOP"),85,1)=1 Then %>
<%If CWData("CaiWu_State") = "未审核" Then%> <input class="ButtonOne" name="delete2" type=button value=" 审 核 " onClick="if(!confirm('确认要通过对此财务记录的审核吗？')){return false;}else{document.location='?Cmd=Audit&CaiWu_ID=<%=CaiWu_ID%>';}">
<%End If%>
<%End If%> </td>
</tr>
</table></td>
</tr>
</table></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%Set UData = Nothing%>
<br>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -